comparison lisp/progmodes/compile.el @ 94168:c9abaca676e7

(compile-internal): Add WHEN to obsolescence declaration.

94167:3f795454be96

	 (append file-regexp-alist (or error-regexp-alist
				       compilation-error-regexp-alist)))
	(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)

;;;###autoload
(defun compilation-start (command &optional mode name-function highlight-regexp)
  "Run compilation command COMMAND (low level interface).
If COMMAND starts with a cd command, that becomes the `default-directory'.

			 shell-file-name)
		       nil `("-c" ,command))))
		 (start-file-process-shell-command (downcase mode-name)
						   outbuf command))))
	  ;; Make the buffer's mode line show process state.
	  (setq mode-line-process 
		(list (propertize ":%s" 'face 'compilation-warning)))
	  (set-process-sentinel proc 'compilation-sentinel)
	  (set-process-filter proc 'compilation-filter)
	  ;; Use (point-max) here so that output comes in
	  ;; after the initial text,

(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 
	 "left-arrow" 'previous-error-no-select 'previous-error-no-select map
	 :rtl "right-arrow"
	 :help "Goto previous error")
	(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 
	 "cancel" 'kill-compilation 'kill-compilation map
	 :enable '(let ((buffer (compilation-find-buffer)))
		    (get-buffer-process buffer))
	 :help "Stop compilation")
	(tool-bar-local-item 
	 "refresh" 'recompile 'recompile map
	 :help "Restart compilation")
	(append map help))))

(put 'compilation-mode 'mode-class 'special)

94168:c9abaca676e7

	 (append file-regexp-alist (or error-regexp-alist
				       compilation-error-regexp-alist)))
	(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 "22.1")

;;;###autoload
(defun compilation-start (command &optional mode name-function highlight-regexp)
  "Run compilation command COMMAND (low level interface).
If COMMAND starts with a cd command, that becomes the `default-directory'.

			 shell-file-name)
		       nil `("-c" ,command))))
		 (start-file-process-shell-command (downcase mode-name)
						   outbuf command))))
	  ;; Make the buffer's mode line show process state.
	  (setq mode-line-process
		(list (propertize ":%s" 'face 'compilation-warning)))
	  (set-process-sentinel proc 'compilation-sentinel)
	  (set-process-filter proc 'compilation-filter)
	  ;; Use (point-max) here so that output comes in
	  ;; after the initial text,

(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
	 "left-arrow" 'previous-error-no-select 'previous-error-no-select map
	 :rtl "right-arrow"
	 :help "Goto previous error")
	(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
	 "cancel" 'kill-compilation 'kill-compilation map
	 :enable '(let ((buffer (compilation-find-buffer)))
		    (get-buffer-process buffer))
	 :help "Stop compilation")
	(tool-bar-local-item
	 "refresh" 'recompile 'recompile map
	 :help "Restart compilation")
	(append map help))))

(put 'compilation-mode 'mode-class 'special)