From ca449fb1c1f86589cbf4da49cda1750ffdb2cad4 Mon Sep 17 00:00:00 2001
From: Stephen Leake <stephen_leake@stephe-leake.org>
Date: Sun, 14 Apr 2019 09:23:24 -0700
Subject: [PATCH] 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.
---
 etc/NEWS       |  2 +-
 lisp/simple.el | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 9e3d993cab0..f41db027b28 100644
--- 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.
 
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 37f92540dde..fb667350dcf 100644
--- 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)))))
 
-- 
2.39.5