comparison lisp/progmodes/compile.el @ 90199:bb71c6cf2009

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-67 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 447-458) - Update from CVS - Update from CVS: lisp/subr.el (add-to-ordered-list): Doc fix. - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 83-85) - Merge from emacs--cvs-trunk--0 - Update from CVS

90198:97f6c3a96df1

  :group 'font-lock-highlighting-faces
  :version "22.1")
;; backward-compatibility alias
(put 'compilation-info-face 'face-alias 'compilation-info)

(defvar compilation-message-face nil
  "Face name to use for whole messages.
Faces `compilation-error-face', `compilation-warning-face',
`compilation-info-face', `compilation-line-face' and
`compilation-column-face' get prepended to this, when applicable.")

(defvar compilation-error-face 'font-lock-warning-face
  "Face name to use for file name in error messages.")

(defvar compilation-warning-face 'compilation-warning
  "Face name to use for file name in warning messages.")

(defvar compilation-info-face 'compilation-info
  "Face name to use for file name in informational messages.")

(defvar compilation-line-face 'font-lock-variable-name-face
  "Face name to use for line number in message.")

(defvar compilation-column-face 'font-lock-type-face
  "Face name to use for column number in message.")

;; same faces as dired uses
(defvar compilation-enter-directory-face 'font-lock-function-name-face
  "Face name to use for column number in message.")

    (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
    ;; Force mode line redisplay soon.
    (force-mode-line-update)
    (if (and opoint (< opoint omax))
	(goto-char opoint))
    (if compilation-finish-function
	(funcall compilation-finish-function (current-buffer) msg))
    (let ((functions compilation-finish-functions))
      (while functions
	(funcall (car functions) (current-buffer) msg)
	(setq functions (cdr functions))))))

(defun compilation-find-buffer (&optional avoid-current)
  (next-error-find-buffer avoid-current 'compilation-buffer-internal-p))

;;;###autoload
(defun compilation-next-error-function (n &optional reset)
  (interactive "p")
  (set-buffer (compilation-find-buffer))
  (when reset
    (setq compilation-current-error nil))
  (let* ((columns compilation-error-screen-columns) ; buffer's local value
	 (last 1)
	 (loc (compilation-next-error (or n 1) nil

90199:bb71c6cf2009

  :group 'font-lock-highlighting-faces
  :version "22.1")
;; backward-compatibility alias
(put 'compilation-info-face 'face-alias 'compilation-info)

(defface compilation-error-file-name
  '((default :inherit font-lock-warning-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-warning-file-name
  '((default :inherit font-lock-warning-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-info-file-name
  '((default :inherit compilation-info)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-line-number
  '((default :inherit font-lock-variable-name-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-column-number
  '((default :inherit font-lock-type-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defvar compilation-message-face nil
  "Face name to use for whole messages.
Faces `compilation-error-face', `compilation-warning-face',
`compilation-info-face', `compilation-line-face' and
`compilation-column-face' get prepended to this, when applicable.")

(defvar compilation-error-face 'compilation-error-file-name
  "Face name to use for file name in error messages.")

(defvar compilation-warning-face 'compilation-warning-file-name
  "Face name to use for file name in warning messages.")

(defvar compilation-info-face 'compilation-info-file-name
  "Face name to use for file name in informational messages.")

(defvar compilation-line-face 'compilation-line-number
  "Face name to use for line number in message.")

(defvar compilation-column-face 'compilation-column-number
  "Face name to use for column number in message.")

;; same faces as dired uses
(defvar compilation-enter-directory-face 'font-lock-function-name-face
  "Face name to use for column number in message.")

    (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
    ;; Force mode line redisplay soon.
    (force-mode-line-update)
    (if (and opoint (< opoint omax))
	(goto-char opoint))
    (with-no-warnings
      (if compilation-finish-function
	  (funcall compilation-finish-function (current-buffer) msg)))
    (let ((functions compilation-finish-functions))
      (while functions
	(funcall (car functions) (current-buffer) msg)
	(setq functions (cdr functions))))))

(defun compilation-find-buffer (&optional avoid-current)
  (next-error-find-buffer avoid-current 'compilation-buffer-internal-p))

;;;###autoload
(defun compilation-next-error-function (n &optional reset)
  "Advance to the next error message and visit the file where the error was.
This is the value of `next-error-function' in Compilation buffers."
  (interactive "p")
  (when reset
    (setq compilation-current-error nil))
  (let* ((columns compilation-error-screen-columns) ; buffer's local value
	 (last 1)
	 (loc (compilation-next-error (or n 1) nil