aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2020-06-17 02:14:12 +0300
committerJuri Linkov2020-06-17 02:14:12 +0300
commitcd4f75bb86e160158786b0d5a07319a49c3ad7b8 (patch)
tree1ef135c29a521a917085999fca9558d015c3c5ca
parent1dff0a89497fec15297a97fcd643ea8475f704da (diff)
downloademacs-cd4f75bb86e160158786b0d5a07319a49c3ad7b8.tar.gz
emacs-cd4f75bb86e160158786b0d5a07319a49c3ad7b8.zip
Rename default function to next-error-buffer-unnavigated-current (bug#40919)
* lisp/simple.el (next-error-find-buffer-function): Rename default function from next-error-no-navigation-try-current to next-error-buffer-unnavigated-current.
-rw-r--r--lisp/simple.el11
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 1555b376a36..e4958de113e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -199,7 +199,7 @@ rejected, and the function returns nil."
199 (and extra-test-inclusive 199 (and extra-test-inclusive
200 (funcall extra-test-inclusive)))))) 200 (funcall extra-test-inclusive))))))
201 201
202(defcustom next-error-find-buffer-function #'next-error-no-navigation-try-current 202(defcustom next-error-find-buffer-function #'next-error-buffer-unnavigated-current
203 "Function called to find a `next-error' capable buffer. 203 "Function called to find a `next-error' capable buffer.
204This functions takes the same three arguments as the function 204This functions takes the same three arguments as the function
205`next-error-find-buffer', and should return the buffer to be 205`next-error-find-buffer', and should return the buffer to be
@@ -212,7 +212,7 @@ all other buffers."
212 (const :tag "Single next-error capable buffer on selected frame" 212 (const :tag "Single next-error capable buffer on selected frame"
213 next-error-buffer-on-selected-frame) 213 next-error-buffer-on-selected-frame)
214 (const :tag "Current buffer if next-error capable and outside navigation" 214 (const :tag "Current buffer if next-error capable and outside navigation"
215 next-error-no-navigation-try-current) 215 next-error-buffer-unnavigated-current)
216 (function :tag "Other function")) 216 (function :tag "Other function"))
217 :group 'next-error 217 :group 'next-error
218 :version "27.1") 218 :version "27.1")
@@ -242,10 +242,9 @@ from which next-error navigated, and a target buffer TO-BUFFER."
242 (if (eq (length window-buffers) 1) 242 (if (eq (length window-buffers) 1)
243 (car window-buffers)))) 243 (car window-buffers))))
244 244
245(defun next-error-no-navigation-try-current (&optional 245(defun next-error-buffer-unnavigated-current (&optional avoid-current
246 avoid-current 246 extra-test-inclusive
247 extra-test-inclusive 247 extra-test-exclusive)
248 extra-test-exclusive)
249 "Try the current buffer when outside navigation. 248 "Try the current buffer when outside navigation.
250But return nil if we navigated to the current buffer by the means 249But return nil if we navigated to the current buffer by the means
251of `next-error' command. Othewise, return it if it's next-error 250of `next-error' command. Othewise, return it if it's next-error