diff options
Diffstat (limited to 'lisp/progmodes/gud.el')
-rw-r--r-- | lisp/progmodes/gud.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 8c35a13ac53..ef35b118be8 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -2533,7 +2533,7 @@ comint mode, which see." (gud-set-buffer)) (defun gud-set-buffer () - (when (eq major-mode 'gud-mode) + (when (derived-mode-p 'gud-mode) (setq gud-comint-buffer (current-buffer)))) (defvar gud-filter-defer-flag nil @@ -3344,10 +3344,8 @@ only tooltips in the buffer containing the overlay arrow." ACTIVATEP non-nil means activate mouse motion events." (if activatep (progn - (make-local-variable 'gud-tooltip-mouse-motions-active) - (setq gud-tooltip-mouse-motions-active t) - (make-local-variable 'track-mouse) - (setq track-mouse t)) + (set (make-local-variable 'gud-tooltip-mouse-motions-active) t) + (set (make-local-variable 'track-mouse) t)) (when gud-tooltip-mouse-motions-active (kill-local-variable 'gud-tooltip-mouse-motions-active) (kill-local-variable 'track-mouse)))) |