# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 762761511 0
# Node ID 8ddddba0de43a32824b51a152d4f68cae2e00c18
# Parent  390dfe557c7de1e9981e4dce86c629447a9b7a20
(compile-goto-error): Push the mark before calling next-error.

diff -r 390dfe557c7d -r 8ddddba0de43 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Mar 04 04:42:04 1994 +0000
+++ b/lisp/progmodes/compile.el	Fri Mar 04 06:11:51 1994 +0000
@@ -679,7 +679,7 @@
 
 (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 @@
 	;; but we didn't want to do that.
 	(set-buffer compilation-last-buffer)))
 
+  (push-mark)
   (next-error 1))
 
 ;; Return a compilation buffer.