diff options
| author | Stefan Kangas | 2022-09-24 01:45:54 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-09-24 11:26:06 +0200 |
| commit | 7bac1d0b60bbc942a65a16635b49bab8ce52ffa9 (patch) | |
| tree | dab4063f176d59762ba14ac08cfe34eb9bb63131 | |
| parent | b74ee91122ed65411949f992022d2af72b551f90 (diff) | |
| download | emacs-7bac1d0b60bbc942a65a16635b49bab8ce52ffa9.tar.gz emacs-7bac1d0b60bbc942a65a16635b49bab8ce52ffa9.zip | |
image-dired: Use command substitution for tags bindings
* lisp/image/image-dired-tags.el
(image-dired-dired-edit-comment-and-tags): Use substitute-command-keys
| -rw-r--r-- | lisp/image/image-dired-tags.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/image/image-dired-tags.el b/lisp/image/image-dired-tags.el index 7a837875ce4..dfd64732859 100644 --- a/lisp/image/image-dired-tags.el +++ b/lisp/image/image-dired-tags.el | |||
| @@ -293,11 +293,14 @@ easy-to-use form." | |||
| 293 | (remove-overlays) | 293 | (remove-overlays) |
| 294 | ;; Some help for the user. | 294 | ;; Some help for the user. |
| 295 | (widget-insert | 295 | (widget-insert |
| 296 | "\nEdit comments and tags for each image. Separate multiple tags | 296 | (substitute-command-keys |
| 297 | with a comma. Move forward between fields using TAB or RET. | 297 | "\\<widget-field-keymap> |
| 298 | Move to the previous field using backtab (S-TAB). Save by | 298 | Edit comments and tags for each image. Separate multiple tags |
| 299 | activating the Save button at the bottom of the form or cancel | 299 | with a comma. Move forward between fields using \\[widget-forward] \ |
| 300 | the operation by activating the Cancel button.\n\n") | 300 | or \\[widget-field-activate]. |
| 301 | Move to the previous field using \\[widget-backward]. Save by | ||
| 302 | activating the \"Save\" button at the bottom of the form or | ||
| 303 | cancel the operation by activating the \"Cancel\" button.\n\n")) | ||
| 301 | ;; Here comes all images and a comment and tag field for each | 304 | ;; Here comes all images and a comment and tag field for each |
| 302 | ;; image. | 305 | ;; image. |
| 303 | (let (thumb-file img comment-widget tag-widget) | 306 | (let (thumb-file img comment-widget tag-widget) |