diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-06-05 07:52:06 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-06-05 07:52:06 +0800 |
| commit | f1da3c8807ef0a03eb684b546341be430f99a7bc (patch) | |
| tree | 6d69f044b883097ec99eeec10d546bd6d778e207 /lisp/progmodes/compile.el | |
| parent | ba59bd80a234985ecc1c65533c0471791d5b8d62 (diff) | |
| download | emacs-f1da3c8807ef0a03eb684b546341be430f99a7bc.tar.gz emacs-f1da3c8807ef0a03eb684b546341be430f99a7bc.tar.bz2 emacs-f1da3c8807ef0a03eb684b546341be430f99a7bc.zip | |
* progmodes/compile.el (compile-goto-error): Add optional arg NOMSG.
(compilation-auto-jump): Suppress the "Mark set" message to give
way to exit message.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d6f136ec92d..d9c482330cc 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1002,7 +1002,7 @@ POS and RES.") (let ((win (get-buffer-window buffer 0))) (if win (set-window-point win pos))) (if compilation-auto-jump-to-first-error - (compile-goto-error)))) + (compile-goto-error nil t)))) ;; This function is the central driver, called when font-locking to gather ;; all information needed to later jump to corresponding source code. @@ -2317,7 +2317,7 @@ Prefix arg N says how many files to move backwards (or forwards, if negative)." (defalias 'compile-mouse-goto-error 'compile-goto-error) -(defun compile-goto-error (&optional event) +(defun compile-goto-error (&optional event nomsg) "Visit the source for the error message at point. Use this command in a compilation log buffer. Sets the mark at point there." (interactive (list last-input-event)) @@ -2328,7 +2328,7 @@ Use this command in a compilation log buffer. Sets the mark at point there." (if (get-text-property (point) 'compilation-directory) (dired-other-window (car (get-text-property (point) 'compilation-directory))) - (push-mark) + (push-mark nil nomsg) (setq compilation-current-error (point)) (next-error-internal))) |