Mercurial > emacs
changeset 92203:c50ae6f34d03
(tool-bar): Rquire tool-bar.
(compilation-mode-tool-bar-map): New variable.
(compilation-mode): Use compilation-mode-tool-bar-map.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Mon, 25 Feb 2008 10:52:09 +0000 |
| parents | c54b46f3dbb6 |
| children | ab425a596ec9 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Mon Feb 25 10:50:20 2008 +0000 +++ b/lisp/progmodes/compile.el Mon Feb 25 10:52:09 2008 +0000 @@ -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 @@ "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 @@ (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)