mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 12:10:55 +00:00
Code Issues Releases Activity

* progmodes/gud.el (gud-mode): Silence --without-x compilation.

Browse Source 
(tooltip-mode): Declare.
This commit is contained in:
Glenn Morris 2013-09-17 22:19:28 -07:00
parent 30810a057c
commit 12679bfd15
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -20,7 +20,9 @@
* mail/rmailmm.el (rmail-mime-set-bulk-data):
Silence --without-x compilation.
* progmodes/gud.el (gud-find-file): Silence --without-x compilation.
* progmodes/gud.el (gud-find-file, gud-mode):
Silence --without-x compilation.
(tooltip-mode): Declare.
* wdired.el (dired-backup-overwrite): Remove declaration.
(wdired-mode-map): Add doc string.

7
lisp/progmodes/gud.el
View File

@ -321,7 +321,7 @@ Uses `gud-<MINOR-MODE>-directories' to find the source files."
;; Copy `gud-minor-mode' to the found buffer to turn on the menu.
(with-current-buffer buf
(setq-local gud-minor-mode minor-mode)
(if (boundp 'tool-bar-map)
(if (boundp 'tool-bar-map) ; not --without-x
(setq-local tool-bar-map gud-tool-bar-map))
(when (and gud-tooltip-mode
(eq gud-minor-mode 'gdbmi))
@ -2482,7 +2482,8 @@ comint mode, which see."
(setq mode-line-process '(":%s"))
(define-key (current-local-map) "\C-c\C-l" 'gud-refresh)
(set (make-local-variable 'gud-last-frame) nil)
(set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
(if (boundp 'tool-bar-map) ; not --without-x
(setq-local tool-bar-map gud-tool-bar-map))
(make-local-variable 'comint-prompt-regexp)
;; Don't put repeated commands in command history many times.
(set (make-local-variable 'comint-input-ignoredups) t)
@ -3282,6 +3283,8 @@ Treats actions as defuns."
;;; Customizable settings
(defvar tooltip-mode)
;;;###autoload
(define-minor-mode gud-tooltip-mode
"Toggle the display of GUD tooltips.