(gud-minor-mode-type): Move defvar up.

This commit is contained in:
Richard M. Stallman 2003-06-04 09:42:37 +00:00
parent 83b5c8e0e3
commit 97bccfe5f8

View file

@ -2434,6 +2434,8 @@ It is saved for when this flag is not set.")
(if gud-filter-pending-text
(gud-filter proc ""))))))
(defvar gud-minor-mode-type nil)
(defun gud-sentinel (proc msg)
(cond ((null (buffer-name (process-buffer proc)))
;; buffer killed
@ -2475,8 +2477,6 @@ It is saved for when this flag is not set.")
;; if obuf is the gud buffer.
(set-buffer obuf))))))
(defvar gud-minor-mode-type nil)
(defun gud-kill-buffer-hook ()
(if gud-minor-mode
(setq gud-minor-mode-type gud-minor-mode)))