From: Roland McGrath <roland@gnu.org>
Date: Fri, 4 Mar 1994 06:11:51 +0000 (+0000)
Subject: (compile-goto-error): Push the mark before calling next-error.
X-Git-Tag: emacs-19.34~9655
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31efa7c9f6a228e55c62f37b7bbec8bf884f2398;p=emacs.git

(compile-goto-error): Push the mark before calling next-error.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 0e3b30e5691..f72b0b6eb07 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -679,7 +679,7 @@ Does NOT find the source line like \\[next-error]."
 
 (defun compile-goto-error (&optional argp)
   "Visit the source for the error message point is on.
-Use this command in a compilation log buffer.
+Use this command in a compilation log buffer.  Sets the mark at point there.
 \\[universal-argument] as a prefix arg means to reparse the buffer's error messages first;
 other kinds of prefix arguments are ignored."
   (interactive "P")
@@ -707,6 +707,7 @@ other kinds of prefix arguments are ignored."
 	;; but we didn't want to do that.
 	(set-buffer compilation-last-buffer)))
 
+  (push-mark)
   (next-error 1))
 
 ;; Return a compilation buffer.