mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-31 11:13:50 +00:00
Code Issues Releases Activity

(compilation-mode-tool-bar-map): Check if tool-bar-map has been

Browse Source 
initialized before setting it up.
This commit is contained in:
Chong Yidong 2008-10-12 13:46:28 +00:00
parent 30b724916f
commit b4bd2cbe6d
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/progmodes/compile.el
View File

@ -1471,25 +1471,28 @@ Returns the compilation buffer created."
`compilation-minor-mode-map' is a parent of this.")
(defvar compilation-mode-tool-bar-map
(let ((map (butlast (copy-keymap tool-bar-map)))
(help (last tool-bar-map))) ;; Keep Help last in tool bar
(tool-bar-local-item
"left-arrow" 'previous-error-no-select 'previous-error-no-select map
:rtl "right-arrow"
:help "Goto previous error")
(tool-bar-local-item
"right-arrow" 'next-error-no-select 'next-error-no-select map
:rtl "left-arrow"
:help "Goto next error")
(tool-bar-local-item
"cancel" 'kill-compilation 'kill-compilation map
:enable '(let ((buffer (compilation-find-buffer)))
(get-buffer-process buffer))
:help "Stop compilation")
(tool-bar-local-item
"refresh" 'recompile 'recompile map
:help "Restart compilation")
(append map help)))
;; When bootstrapping, tool-bar-map is not properly initialized yet,
;; so don't do anything.
(when (keymapp (butlast tool-bar-map))
(let ((map (butlast (copy-keymap tool-bar-map)))
(help (last tool-bar-map))) ;; Keep Help last in tool bar
(tool-bar-local-item
"left-arrow" 'previous-error-no-select 'previous-error-no-select map
:rtl "right-arrow"
:help "Goto previous error")
(tool-bar-local-item
"right-arrow" 'next-error-no-select 'next-error-no-select map
:rtl "left-arrow"
:help "Goto next error")
(tool-bar-local-item
"cancel" 'kill-compilation 'kill-compilation map
:enable '(let ((buffer (compilation-find-buffer)))
(get-buffer-process buffer))
:help "Stop compilation")
(tool-bar-local-item
"refresh" 'recompile 'recompile map
:help "Restart compilation")
(append map help))))
(put 'compilation-mode 'mode-class 'special)