changeset 6197:8ddddba0de43

(compile-goto-error): Push the mark before calling next-error.
author Roland McGrath <roland@gnu.org>
date Fri, 04 Mar 1994 06:11:51 +0000
parents 390dfe557c7d
children d941186e8fb9
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.