mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-mode-tool-bar-map): Initialize it unconditionally.

Browse source
This commit is contained in:
Chong Yidong 2008-10-11 19:59:11 +00:00
parent ecad93d232
commit dac05b9cae
1 changed files with 19 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lisp/progmodes/compile.el
View file

@ -1471,26 +1471,25 @@ Returns the compilation buffer created."
`compilation-minor-mode-map' is a parent of this.") `compilation-minor-mode-map' is a parent of this.")
(defvar compilation-mode-tool-bar-map (defvar compilation-mode-tool-bar-map
(if (display-graphic-p) (let ((map (butlast (copy-keymap tool-bar-map)))
(let ((map (butlast (copy-keymap tool-bar-map))) (help (last tool-bar-map))) ;; Keep Help last in tool bar
(help (last tool-bar-map))) ;; Keep Help last in tool bar (tool-bar-local-item
(tool-bar-local-item "left-arrow" 'previous-error-no-select 'previous-error-no-select map
"left-arrow" 'previous-error-no-select 'previous-error-no-select map :rtl "right-arrow"
:rtl "right-arrow" :help "Goto previous error")
:help "Goto previous error") (tool-bar-local-item
(tool-bar-local-item "right-arrow" 'next-error-no-select 'next-error-no-select map
"right-arrow" 'next-error-no-select 'next-error-no-select map :rtl "left-arrow"
:rtl "left-arrow" :help "Goto next error")
:help "Goto next error") (tool-bar-local-item
(tool-bar-local-item "cancel" 'kill-compilation 'kill-compilation map
"cancel" 'kill-compilation 'kill-compilation map :enable '(let ((buffer (compilation-find-buffer)))
:enable '(let ((buffer (compilation-find-buffer))) (get-buffer-process buffer))
(get-buffer-process buffer)) :help "Stop compilation")
:help "Stop compilation") (tool-bar-local-item
(tool-bar-local-item "refresh" 'recompile 'recompile map
"refresh" 'recompile 'recompile map :help "Restart compilation")
:help "Restart compilation") (append map help)))
(append map help))))
(put 'compilation-mode 'mode-class 'special) (put 'compilation-mode 'mode-class 'special)