/[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.10.2.11 by miles, Tue May 11 02:36:01 2004 UTC revision 1.10.2.12 by miles, Tue Jul 6 09:14:30 2004 UTC
# Line 2339  comint mode, which see." Line 2339  comint mode, which see."
2339    ;; Don't put repeated commands in command history many times.    ;; Don't put repeated commands in command history many times.
2340    (set (make-local-variable 'comint-input-ignoredups) t)    (set (make-local-variable 'comint-input-ignoredups) t)
2341    (make-local-variable 'paragraph-start)    (make-local-variable 'paragraph-start)
2342    (set (make-local-variable 'gud-delete-prompt-marker) (make-marker)))    (set (make-local-variable 'gud-delete-prompt-marker) (make-marker))
2343      (add-hook 'kill-buffer-hook 'gud-kill-buffer-hook nil t))
2344    
2345  ;; Cause our buffers to be displayed, by default,  ;; Cause our buffers to be displayed, by default,
2346  ;; in the selected window.  ;; in the selected window.
# Line 2546  It is saved for when this flag is not se Line 2547  It is saved for when this flag is not se
2547               (set-buffer obuf))))))               (set-buffer obuf))))))
2548    
2549  (defun gud-kill-buffer-hook ()  (defun gud-kill-buffer-hook ()
2550    (if gud-minor-mode    (setq gud-minor-mode-type gud-minor-mode)
2551        (setq gud-minor-mode-type gud-minor-mode)))    (condition-case nil
2552          (kill-process (get-buffer-process gud-comint-buffer))
2553  (add-hook 'kill-buffer-hook 'gud-kill-buffer-hook)      (error nil)))
2554    
2555  (defun gud-reset ()  (defun gud-reset ()
2556    (dolist (buffer (buffer-list))    (dolist (buffer (buffer-list))

Legend:
Removed from v.1.10.2.11  
changed lines
  Added in v.1.10.2.12

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