[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el [lexbind]

[Miles Bader]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.10.2.11 
emacs/lisp/progmodes/gud.el:1.10.2.12
*** emacs/lisp/progmodes/gud.el:1.10.2.11       Tue May 11 02:36:01 2004
--- emacs/lisp/progmodes/gud.el Tue Jul  6 09:14:30 2004
***************
*** 2339,2345 ****
    ;; Don't put repeated commands in command history many times.
    (set (make-local-variable 'comint-input-ignoredups) t)
    (make-local-variable 'paragraph-start)
!   (set (make-local-variable 'gud-delete-prompt-marker) (make-marker)))
  
  ;; Cause our buffers to be displayed, by default,
  ;; in the selected window.
--- 2339,2346 ----
    ;; Don't put repeated commands in command history many times.
    (set (make-local-variable 'comint-input-ignoredups) t)
    (make-local-variable 'paragraph-start)
!   (set (make-local-variable 'gud-delete-prompt-marker) (make-marker))
!   (add-hook 'kill-buffer-hook 'gud-kill-buffer-hook nil t))
  
  ;; Cause our buffers to be displayed, by default,
  ;; in the selected window.
***************
*** 2546,2555 ****
             (set-buffer obuf))))))
  
  (defun gud-kill-buffer-hook ()
!   (if gud-minor-mode
!       (setq gud-minor-mode-type gud-minor-mode)))
! 
! (add-hook 'kill-buffer-hook 'gud-kill-buffer-hook)
  
  (defun gud-reset ()
    (dolist (buffer (buffer-list))
--- 2547,2556 ----
             (set-buffer obuf))))))
  
  (defun gud-kill-buffer-hook ()
!   (setq gud-minor-mode-type gud-minor-mode)
!   (condition-case nil
!       (kill-process (get-buffer-process gud-comint-buffer))
!     (error nil)))
  
  (defun gud-reset ()
    (dolist (buffer (buffer-list))