Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 03:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(tool-bar): Rquire tool-bar.

Browse source 
(compilation-mode-tool-bar-map): New variable.
(compilation-mode): Use compilation-mode-tool-bar-map.
This commit is contained in:
Jan Djärv 2008-02-25 10:52:09 +00:00
parent c96a0d6455
commit c45e48d29a
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/progmodes/compile.el
View file

@ -73,6 +73,7 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'tool-bar)
(defvar font-lock-extra-managed-props)
(defvar font-lock-keywords)
@ -1377,6 +1378,26 @@ Returns the compilation buffer created."
"Keymap for compilation log buffers.
`compilation-minor-mode-map' is a parent of this.")
(defvar compilation-mode-tool-bar-map
(if (display-graphic-p)
(let ((map (butlast (copy-keymap tool-bar-map)))
(help (last tool-bar-map))) ;; Keep Help last in tool bar
(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
"left-arrow" 'previous-error-no-select 'previous-error-no-select map
:rtl "right-arrow"
:help "Goto previous error")
(tool-bar-local-item
"cancel" 'kill-compilation 'kill-compilation map
:help "Stop compilation")
(tool-bar-local-item
"refresh" 'recompile 'recompile map
:help "Restart compilation")
(append map help))))
(put 'compilation-mode 'mode-class 'special)
;;;###autoload
@ -1392,6 +1413,7 @@ Runs `compilation-mode-hook' with `run-mode-hooks' (which see).
(interactive)
(kill-all-local-variables)
(use-local-map compilation-mode-map)
(set (make-local-variable 'tool-bar-map) compilation-mode-tool-bar-map)
(setq major-mode 'compilation-mode
mode-name (or name-of-mode "Compilation"))
(set (make-local-variable 'page-delimiter)