[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112849: * progmodes/compile.el (comp
From: |
Leo Liu |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112849: * progmodes/compile.el (compile-goto-error): Add optional arg NOMSG. |
Date: |
Wed, 05 Jun 2013 07:52:06 +0800 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112849
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Wed 2013-06-05 07:52:06 +0800
message:
* progmodes/compile.el (compile-goto-error): Add optional arg NOMSG.
(compilation-auto-jump): Suppress the "Mark set" message to give
way to exit message.
modified:
lisp/ChangeLog
lisp/progmodes/compile.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-06-03 23:34:27 +0000
+++ b/lisp/ChangeLog 2013-06-04 23:52:06 +0000
@@ -1,3 +1,9 @@
+2013-06-04 Leo Liu <address@hidden>
+
+ * progmodes/compile.el (compile-goto-error): Add optional arg NOMSG.
+ (compilation-auto-jump): Suppress the "Mark set" message to give
+ way to exit message.
+
2013-06-03 Tassilo Horn <address@hidden>
* eshell/em-term.el (cl-lib): Require `cl-lib'.
=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2013-04-24 13:50:22 +0000
+++ b/lisp/progmodes/compile.el 2013-06-04 23:52:06 +0000
@@ -1002,7 +1002,7 @@
(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 @@
(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 @@
(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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112849: * progmodes/compile.el (compile-goto-error): Add optional arg NOMSG.,
Leo Liu <=