Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 19:07:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Bind C-c C-c and C-c C-k in recentf-dialog-mode

Browse source 
* lisp/recentf.el (recentf-dialog-mode-map): Prefer defvar-keymap.
Bind `C-c C-c' and `C-c C-k' to confirm/cancel the dialog.
(recentf-cancel-dialog, recentf-edit-list-validate): Add
interactive mode tags for 'recentf-dialog-mode'.
(recentf-dialog-mode): Mark as non-interactive.
(recentf-edit-list): Display key binding.
This commit is contained in:
Stefan Kangas 2022-06-22 13:36:19 +02:00
parent ec1fffdeca
commit feb88fa8ab
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/recentf.el
View file

@ -1050,7 +1050,7 @@ That is, remove a non kept file from the recent list."
(defun recentf-cancel-dialog (&rest _ignore)
"Cancel the current dialog.
IGNORE arguments."
(interactive)
(interactive nil recentf-dialog-mode)
(kill-buffer (current-buffer))
(message "Dialog canceled"))
@ -1068,19 +1068,20 @@ Go to the beginning of buffer if not found."
(error
(goto-char (point-min)))))
(defvar recentf-dialog-mode-map
(let ((km (copy-keymap recentf--shortcuts-keymap)))
(set-keymap-parent km widget-keymap)
(define-key km "q" #'recentf-cancel-dialog)
(define-key km "n" #'next-line)
(define-key km "p" #'previous-line)
km)
"Keymap used in recentf dialogs.")
(defvar-keymap recentf-dialog-mode-map
:doc "Keymap used in recentf dialogs."
:parent (make-composed-keymap recentf--shortcuts-keymap widget-keymap)
"q" #'recentf-cancel-dialog
"n" #'next-line
"p" #'previous-line
"C-c C-c" #'recentf-edit-list-validate
"C-c C-k" #'recentf-cancel-dialog)
(define-derived-mode recentf-dialog-mode nil "recentf-dialog"
"Major mode of recentf dialogs.
\\{recentf-dialog-mode-map}"
:interactive nil
:syntax-table nil
:abbrev-table nil
(setq truncate-lines t))
@ -1117,6 +1118,7 @@ IGNORE other arguments."
(defun recentf-edit-list-validate (&rest _ignore)
"Process the recent list when the edit list dialog is committed.
IGNORE arguments."
(interactive nil recentf-dialog-mode)
(if recentf-edit-list
(let ((i 0))
(dolist (e recentf-edit-list)
@ -1136,8 +1138,8 @@ IGNORE arguments."
(widget-insert
(format-message
(substitute-command-keys
"Click on OK to delete selected files from the recent list.
Click on Cancel or type \\[recentf-cancel-dialog] to cancel.\n")))
"Click on \"OK\" or type \\[recentf-edit-list-validate] to delete selected files from the recent list.
Click on \"Cancel\" or type \\[recentf-cancel-dialog] to cancel.\n")))
;; Insert the list of files as checkboxes
(dolist (item recentf-list)
(widget-create 'checkbox