From 8cdba32b6c064e3812944ca7d36fbd2e70dfeba8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Aug 2009 00:57:17 +0000 Subject: [PATCH] (next-error-move-function): New variable. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 9 ++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2084098d0c8..cf1fc8c0aa8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-08-13 Richard Stallman + + * simple.el (next-error-move-function): New variable. + 2009-08-12 Juri Linkov * progmodes/grep.el (lgrep): Ensure that `default-directory' is diff --git a/lisp/simple.el b/lisp/simple.el index ad8e71fc6b5..a01073c5d70 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -183,9 +183,16 @@ of the errors before moving. Major modes providing compile-like functionality should set this variable to indicate to `next-error' that this is a candidate buffer and how to navigate in it.") - (make-variable-buffer-local 'next-error-function) +(defvar next-error-move-function nil + "Function to use to move to an error locus. +It takes two arguments, a buffer position in the error buffer +and a buffer position in the error locus buffer. +The buffer for the error locus should already be current. +nil means use goto-char using the second argument position.") +(make-variable-buffer-local 'next-error-move-function) + (defsubst next-error-buffer-p (buffer &optional avoid-current extra-test-inclusive -- 2.39.2