diff lisp/progmodes/compile.el @ 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 6598459f3056
children 07fb6a1d5233
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))))