From 31efa7c9f6a228e55c62f37b7bbec8bf884f2398 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 4 Mar 1994 06:11:51 +0000 Subject: [PATCH] (compile-goto-error): Push the mark before calling next-error. --- lisp/progmodes/compile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.5