diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2023-04-08 20:10:49 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-04-08 20:10:49 +0300 |
| commit | 11126c6d30aa17c3e672706ed3956f89214aa80f (patch) | |
| tree | b7eefca0e7233f3053230d57b6fd4aa9fdca7890 /lisp/mouse.el | |
| parent | 74ddfe811f980122816ba831bea18ca18afedb85 (diff) | |
| download | emacs-11126c6d30aa17c3e672706ed3956f89214aa80f.tar.gz emacs-11126c6d30aa17c3e672706ed3956f89214aa80f.tar.bz2 emacs-11126c6d30aa17c3e672706ed3956f89214aa80f.zip | |
Fix 'C-h k' for "Paste from Kill Menu" in context menus
* lisp/mouse.el (context-menu-region): Make the entries be
symbols, not just integers, to prevent "C-h c" from interpreting
them as character keys. (Bug#62626)
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d93594deb04..60542e47448 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -524,7 +524,8 @@ Some context functions add menu items below the separator." (i 0)) (dolist (item (reverse yank-menu)) (when (consp item) - (define-key submenu (vector (setq i (1+ i))) + (define-key submenu + (vector (intern (format "kill-%d" (setq i (1+ i))))) `(menu-item ,(cadr item) ,(lambda () (interactive) (mouse-yank-from-menu click (car item))))))) |