From 56ab610b006ae0e586ee7750abc174c5ada74348 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 2 Oct 2005 03:33:02 +0000 Subject: [PATCH] (next-error-internal): New function. --- lisp/simple.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/simple.el b/lisp/simple.el index 760d8cde744..96ca1cc7ea1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -261,6 +261,14 @@ See variables `compilation-parse-errors-function' and (funcall next-error-function (prefix-numeric-value arg) reset) (run-hooks 'next-error-hook)))) +(defun next-error-internal () + "Visit the source code corresponding to the `next-error' message at point." + (setq next-error-last-buffer (current-buffer)) + ;; we know here that next-error-function is a valid symbol we can funcall + (with-current-buffer next-error-last-buffer + (funcall next-error-function 0 nil) + (run-hooks 'next-error-hook))) + (defalias 'goto-next-locus 'next-error) (defalias 'next-match 'next-error) -- 2.39.5