]> git.eshelyaron.com Git - emacs.git/commitdiff
Rename default function to next-error-buffer-unnavigated-current (bug#40919)
authorJuri Linkov <juri@linkov.net>
Tue, 16 Jun 2020 23:14:12 +0000 (02:14 +0300)
committerJuri Linkov <juri@linkov.net>
Tue, 16 Jun 2020 23:14:12 +0000 (02:14 +0300)
* 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

index 1555b376a36a30215515de8d7a90b8b13984eb49..e4958de113ec946eb59143f45c0abb4447ce7393 100644 (file)
@@ -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