mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

Avoid potential extensive verbosity in gnus-summary-browse-url

Browse Source 
* lisp/wid-edit.el (widget-move): Accept suppress-echo argument.
* lisp/gnus/gnus-sum.el (gnus-collect-urls): Use it.
This commit is contained in:
Sam Steingold 2019-07-24 12:08:38 -04:00
parent 7da926ce3c
commit fd86149b1a
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/gnus-sum.el
View File

@ -9438,7 +9438,7 @@ With optional ARG, move across that many fields."
"Return the list of URLs in the buffer after (point).
The 1st element is the one named 'Link', if any."
(let ((pt (point)) urls link)
(while (progn (widget-move 1)
(while (progn (widget-move 1 t) ; no echo
;; `widget-move' wraps around to top of buffer.
(> (point) pt))
(setq pt (point))

9
lisp/wid-edit.el
View File

@ -1040,9 +1040,11 @@ POS defaults to the value of (point)."
"If non-nil, use overlay change functions to tab around in the buffer.
This is much faster.")
(defun widget-move (arg)
(defun widget-move (arg &optional suppress-echo)
"Move point to the ARG next field or button.
ARG may be negative to move backward."
ARG may be negative to move backward.
When the second optional argument is non-nil,
nothing is shown in the echo area."
(or (bobp) (> arg 0) (backward-char))
(let ((wrapped 0)
(number arg)
@ -1084,7 +1086,8 @@ ARG may be negative to move backward."
(while (eq (widget-tabable-at) new)
(backward-char)))
(forward-char))
(widget-echo-help (point))
(unless suppress-echo
(widget-echo-help (point)))
(run-hooks 'widget-move-hook))
(defun widget-forward (arg)