Optionally suppress recentf open file messages (bug#78666)

* etc/NEWS: Announce new user option.

* lisp/recentf.el (recentf-suppress-open-file-help): New defcustom.
(recentf-dialog-goto-first): Use it; otherwise, make calling
'widget-move' suppress message only for interactive recentf use.
(recentf-forward, recentf-backward): New commands, wrappers around
'widget-{forward, backward}' using 'recentf-suppress-open-file-help'.
(recentf-dialog): Use them in locally remapped key bindings.

* lisp/wid-edit.el (widget-forward, widget-backward): Add optional
argument to suppress :help-echo message and pass it to 'widget-move'.

1 files changed, 10 insertions, 6 deletions

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index db241ca914a..311e39f4c0f 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1383,19 +1383,23 @@ nothing is shown in the echo area."
     (widget-echo-help (point)))
   (run-hooks 'widget-move-hook))
 
-(defun widget-forward (arg)
+(defun widget-forward (arg &optional suppress-echo)
   "Move point to the next field or button.
-With optional ARG, move across that many fields."
+With optional ARG, move across that many fields.
+When the second optional argument is non-nil,
+nothing is shown in the echo area."
   (interactive "p")
   (run-hooks 'widget-forward-hook)
-  (widget-move arg))
+  (widget-move arg suppress-echo))
 
-(defun widget-backward (arg)
+(defun widget-backward (arg &optional suppress-echo)
   "Move point to the previous field or button.
-With optional ARG, move across that many fields."
+With optional ARG, move across that many fields.
+When the second optional argument is non-nil,
+nothing is shown in the echo area."
   (interactive "p")
   (run-hooks 'widget-backward-hook)
-  (widget-move (- arg)))
+  (widget-move (- arg) suppress-echo))
 
 ;; Since the widget code uses a `field' property to identify fields,
 ;; ordinary beginning-of-line does the right thing.