Mercurial > emacs
comparison lisp/progmodes/compile.el @ 98630:a4dc0840f5dd
(compilation-mode-tool-bar-map): Initialize it unconditionally.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 11 Oct 2008 19:59:11 +0000 |
| parents | 573274f314a9 |
| children | cfea943367ab |
comparison
equal
deleted
inserted
replaced
| 98629:05cb109b16cb | 98630:a4dc0840f5dd |
|---|---|
| 1469 map) | 1469 map) |
| 1470 "Keymap for compilation log buffers. | 1470 "Keymap for compilation log buffers. |
| 1471 `compilation-minor-mode-map' is a parent of this.") | 1471 `compilation-minor-mode-map' is a parent of this.") |
| 1472 | 1472 |
| 1473 (defvar compilation-mode-tool-bar-map | 1473 (defvar compilation-mode-tool-bar-map |
| 1474 (if (display-graphic-p) | 1474 (let ((map (butlast (copy-keymap tool-bar-map))) |
| 1475 (let ((map (butlast (copy-keymap tool-bar-map))) | 1475 (help (last tool-bar-map))) ;; Keep Help last in tool bar |
| 1476 (help (last tool-bar-map))) ;; Keep Help last in tool bar | 1476 (tool-bar-local-item |
| 1477 (tool-bar-local-item | 1477 "left-arrow" 'previous-error-no-select 'previous-error-no-select map |
| 1478 "left-arrow" 'previous-error-no-select 'previous-error-no-select map | 1478 :rtl "right-arrow" |
| 1479 :rtl "right-arrow" | 1479 :help "Goto previous error") |
| 1480 :help "Goto previous error") | 1480 (tool-bar-local-item |
| 1481 (tool-bar-local-item | 1481 "right-arrow" 'next-error-no-select 'next-error-no-select map |
| 1482 "right-arrow" 'next-error-no-select 'next-error-no-select map | 1482 :rtl "left-arrow" |
| 1483 :rtl "left-arrow" | 1483 :help "Goto next error") |
| 1484 :help "Goto next error") | 1484 (tool-bar-local-item |
| 1485 (tool-bar-local-item | 1485 "cancel" 'kill-compilation 'kill-compilation map |
| 1486 "cancel" 'kill-compilation 'kill-compilation map | 1486 :enable '(let ((buffer (compilation-find-buffer))) |
| 1487 :enable '(let ((buffer (compilation-find-buffer))) | 1487 (get-buffer-process buffer)) |
| 1488 (get-buffer-process buffer)) | 1488 :help "Stop compilation") |
| 1489 :help "Stop compilation") | 1489 (tool-bar-local-item |
| 1490 (tool-bar-local-item | 1490 "refresh" 'recompile 'recompile map |
| 1491 "refresh" 'recompile 'recompile map | 1491 :help "Restart compilation") |
| 1492 :help "Restart compilation") | 1492 (append map help))) |
| 1493 (append map help)))) | |
| 1494 | 1493 |
| 1495 (put 'compilation-mode 'mode-class 'special) | 1494 (put 'compilation-mode 'mode-class 'special) |
| 1496 | 1495 |
| 1497 ;;;###autoload | 1496 ;;;###autoload |
| 1498 (defun compilation-mode (&optional name-of-mode) | 1497 (defun compilation-mode (&optional name-of-mode) |