From cd4f75bb86e160158786b0d5a07319a49c3ad7b8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 17 Jun 2020 02:14:12 +0300 Subject: [PATCH] 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. --- lisp/simple.el | 11 +++++------ 1 file 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." (and extra-test-inclusive (funcall extra-test-inclusive)))))) -(defcustom next-error-find-buffer-function #'next-error-no-navigation-try-current +(defcustom next-error-find-buffer-function #'next-error-buffer-unnavigated-current "Function called to find a `next-error' capable buffer. This functions takes the same three arguments as the function `next-error-find-buffer', and should return the buffer to be @@ -212,7 +212,7 @@ all other buffers." (const :tag "Single next-error capable buffer on selected frame" next-error-buffer-on-selected-frame) (const :tag "Current buffer if next-error capable and outside navigation" - next-error-no-navigation-try-current) + next-error-buffer-unnavigated-current) (function :tag "Other function")) :group 'next-error :version "27.1") @@ -242,10 +242,9 @@ from which next-error navigated, and a target buffer TO-BUFFER." (if (eq (length window-buffers) 1) (car window-buffers)))) -(defun next-error-no-navigation-try-current (&optional - avoid-current - extra-test-inclusive - extra-test-exclusive) +(defun next-error-buffer-unnavigated-current (&optional avoid-current + extra-test-inclusive + extra-test-exclusive) "Try the current buffer when outside navigation. But return nil if we navigated to the current buffer by the means of `next-error' command. Othewise, return it if it's next-error -- 2.39.5