Commit ca449fb1 authored by Stephen Leake's avatar Stephen Leake

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.
parent 7ba7def5
......@@ -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.
......
......@@ -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)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment