Mercurial > emacs
changeset 94168:c9abaca676e7
(compile-internal): Add WHEN to obsolescence declaration.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Apr 2008 10:33:17 +0000 |
| parents | 3f795454be96 |
| children | aa2d9460ed1e |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Fri Apr 18 10:32:16 2008 +0000 +++ b/lisp/progmodes/compile.el Fri Apr 18 10:33:17 2008 +0000 @@ -1103,7 +1103,7 @@ (compilation-error (replace-regexp-in-string "^No more \\(.+\\)s\\.?" "\\1" error-message))) (compilation-start command nil name-function highlight-regexp))) -(make-obsolete 'compile-internal 'compilation-start) +(make-obsolete 'compile-internal 'compilation-start "22.1") ;;;###autoload (defun compilation-start (command &optional mode name-function highlight-regexp) @@ -1248,7 +1248,7 @@ (start-file-process-shell-command (downcase mode-name) outbuf command)))) ;; Make the buffer's mode line show process state. - (setq mode-line-process + (setq mode-line-process (list (propertize ":%s" 'face 'compilation-warning))) (set-process-sentinel proc 'compilation-sentinel) (set-process-filter proc 'compilation-filter) @@ -1419,7 +1419,7 @@ (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 + (tool-bar-local-item "left-arrow" 'previous-error-no-select 'previous-error-no-select map :rtl "right-arrow" :help "Goto previous error") @@ -1427,12 +1427,12 @@ "right-arrow" 'next-error-no-select 'next-error-no-select map :rtl "left-arrow" :help "Goto next error") - (tool-bar-local-item + (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 + (tool-bar-local-item "refresh" 'recompile 'recompile map :help "Restart compilation") (append map help))))