Rename new user variable `next-error-verbosity' to `next-error-verbose'

* etc/NEWS: Update entry to match renaming.

* lisp/simple.el (next-error-verbose): Rename.
(next-error, next-error-internal): Match rename.

diff --git a/etc/NEWS b/etc/NEWS
index 9e3d993cab0b09004482a0923ce9dcad072cae40..f41db027b282effb9cf5d6320e4d383409a867fc 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -309,7 +309,7 @@ and directory-local variables.
 longer.
 
 ---
-** next-error-verbosity controls when `next-error' outputs a message
+** next-error-verbose controls when `next-error' outputs a message
    about the error locus.
 
 \f

diff --git a/lisp/simple.el b/lisp/simple.el
index 37f92540dde4feccf3babb77bfe0ec67a9709954..fb667350dcf148544bafbc1c205a45b913f1e934 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -110,9 +110,9 @@ If non-nil, the value is passed directly to `recenter'."
   :type 'hook
   :group 'next-error)
 
-(defcustom next-error-verbosity nil
-  "If nil, `next-error' always outputs the current error buffer.
-If non-nil, the message is output only when the error buffer
+(defcustom next-error-verbose t
+  "If non-nil, `next-error' always outputs the current error buffer.
+If nil, the message is output only when the error buffer
 changes."
   :group 'next-error
   :type 'boolean
@@ -323,7 +323,7 @@ To control which errors are matched, customize the variable
         (funcall next-error-function (prefix-numeric-value arg) reset)
         (let ((prev next-error-last-buffer))
           (next-error-found buffer (current-buffer))
-          (when (or (not next-error-verbosity)
+          (when (or next-error-verbose
                     (not (eq prev next-error-last-buffer)))
             (message "%s locus from %s"
                      (cond (reset                             "First")
@@ -339,7 +339,7 @@ To control which errors are matched, customize the variable
     (funcall next-error-function 0 nil)
     (let ((prev next-error-last-buffer))
       (next-error-found buffer (current-buffer))
-      (when (or (not next-error-verbosity)
+      (when (or next-error-verbose
                 (not (eq prev next-error-last-buffer)))
         (message "Current locus from %s" next-error-last-buffer)))))