mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

Make `next-error' output fewer messages about locus

Browse Source 
* lisp/simple.el (next-error-verbosity): New user variable.
(next-error, next-error-internal): Use it to control only outputting
locus message if locus changed.
This commit is contained in:
Stephen Leake 2019-04-11 13:58:36 -07:00
parent b29b79efd9
commit 7768581172
2 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/NEWS
View File

@ -303,6 +303,10 @@ and directory-local variables.
'with-connection-local-profiles'. No argument 'profiles' needed any 'with-connection-local-profiles'. No argument 'profiles' needed any
longer. longer.
---
** next-error-verbosity controls when `next-error' outputs a message
about the error locus.
* Editing Changes in Emacs 27.1 * Editing Changes in Emacs 27.1

19
lisp/simple.el
View File

@ -110,6 +110,15 @@ If non-nil, the value is passed directly to `recenter'."
:type 'hook :type 'hook
:group 'next-error) :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
changes."
:group 'next-error
:type 'boolean
:safe #'booleanp
:version "27.1")
(defvar next-error-highlight-timer nil) (defvar next-error-highlight-timer nil)
(defvar next-error-overlay-arrow-position nil) (defvar next-error-overlay-arrow-position nil)
@ -312,21 +321,27 @@ To control which errors are matched, customize the variable
;; We know here that next-error-function is a valid symbol we can funcall ;; We know here that next-error-function is a valid symbol we can funcall
(with-current-buffer buffer (with-current-buffer buffer
(funcall next-error-function (prefix-numeric-value arg) reset) (funcall next-error-function (prefix-numeric-value arg) reset)
(let ((prev next-error-last-buffer))
(next-error-found buffer (current-buffer)) (next-error-found buffer (current-buffer))
(when (or (not next-error-verbosity)
(not (eq prev next-error-last-buffer)))
(message "%s locus from %s" (message "%s locus from %s"
(cond (reset "First") (cond (reset "First")
((eq (prefix-numeric-value arg) 0) "Current") ((eq (prefix-numeric-value arg) 0) "Current")
((< (prefix-numeric-value arg) 0) "Previous") ((< (prefix-numeric-value arg) 0) "Previous")
(t "Next")) (t "Next"))
next-error-last-buffer))))) next-error-last-buffer)))))))
(defun next-error-internal () (defun next-error-internal ()
"Visit the source code corresponding to the `next-error' message at point." "Visit the source code corresponding to the `next-error' message at point."
(let ((buffer (current-buffer))) (let ((buffer (current-buffer)))
;; We know here that next-error-function is a valid symbol we can funcall ;; We know here that next-error-function is a valid symbol we can funcall
(funcall next-error-function 0 nil) (funcall next-error-function 0 nil)
(let ((prev next-error-last-buffer))
(next-error-found buffer (current-buffer)) (next-error-found buffer (current-buffer))
(message "Current locus from %s" next-error-last-buffer))) (when (or (not next-error-verbosity)
(not (eq prev next-error-last-buffer)))
(message "Current locus from %s" next-error-last-buffer)))))
(defun next-error-found (&optional from-buffer to-buffer) (defun next-error-found (&optional from-buffer to-buffer)
"Function to call when the next locus is found and displayed. "Function to call when the next locus is found and displayed.