/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by nickrob, Sun Oct 9 20:22:43 2005 UTC revision 1.58 by nickrob, Mon Oct 10 12:25:04 2005 UTC
# Line 352  t means that there is no stack, and we a Line 352  t means that there is no stack, and we a
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
# Line 389  required by the caller." Line 392  required by the caller."
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
# Line 454  required by the caller." Line 459  required by the caller."
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  ;; ======================================================================  ;; ======================================================================
# Line 2569  It is saved for when this flag is not se Line 2575  It is saved for when this flag is not se
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)))

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26