352 |
(define-key gud-speedbar-key-map "j" 'speedbar-edit-line) |
(define-key gud-speedbar-key-map "j" 'speedbar-edit-line) |
353 |
(define-key gud-speedbar-key-map "e" 'speedbar-edit-line) |
(define-key gud-speedbar-key-map "e" 'speedbar-edit-line) |
354 |
(define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line) |
(define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line) |
355 |
|
(define-key gud-speedbar-key-map " " 'speedbar-toggle-line-expansion) |
356 |
|
(define-key gud-speedbar-key-map "[" 'speedbar-expand-line-descendants) |
357 |
|
(define-key gud-speedbar-key-map "]" 'speedbar-contract-line-descendants) |
358 |
(define-key gud-speedbar-key-map "D" 'gdb-var-delete)) |
(define-key gud-speedbar-key-map "D" 'gdb-var-delete)) |
359 |
|
|
360 |
(speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items |
(speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items |
392 |
gud-comint-buffer |
gud-comint-buffer |
393 |
;; gud-comint-buffer might be killed |
;; gud-comint-buffer might be killed |
394 |
(buffer-name gud-comint-buffer)) |
(buffer-name gud-comint-buffer)) |
395 |
(let ((minor-mode (with-current-buffer buffer gud-minor-mode))) |
(let* ((minor-mode (with-current-buffer buffer gud-minor-mode)) |
396 |
|
(window (get-buffer-window (current-buffer) 0)) |
397 |
|
(p (window-point window))) |
398 |
(cond |
(cond |
399 |
((memq minor-mode '(gdbmi gdba)) |
((memq minor-mode '(gdbmi gdba)) |
400 |
(when (or gdb-var-changed |
(when (or gdb-var-changed |
459 |
'gud-gdb-goto-stackframe) |
'gud-gdb-goto-stackframe) |
460 |
(t (error "Should never be here"))) |
(t (error "Should never be here"))) |
461 |
frame t)))) |
frame t)))) |
462 |
(setq gud-last-speedbar-stackframe gud-last-last-frame))))))) |
(setq gud-last-speedbar-stackframe gud-last-last-frame)))) |
463 |
|
(set-window-point window p)))) |
464 |
|
|
465 |
|
|
466 |
;; ====================================================================== |
;; ====================================================================== |
2575 |
;; Stop displaying an arrow in a source file. |
;; Stop displaying an arrow in a source file. |
2576 |
(setq gud-overlay-arrow-position nil) |
(setq gud-overlay-arrow-position nil) |
2577 |
(set-process-buffer proc nil) |
(set-process-buffer proc nil) |
2578 |
|
(if (featurep 'speedbar) |
2579 |
|
(speedbar-change-initial-expansion-list |
2580 |
|
speedbar-previously-used-expansion-list-name)) |
2581 |
(if (memq gud-minor-mode-type '(gdbmi gdba)) |
(if (memq gud-minor-mode-type '(gdbmi gdba)) |
2582 |
(gdb-reset) |
(gdb-reset) |
2583 |
(gud-reset))) |
(gud-reset))) |