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)
This commit is contained in:
parent
74ddfe811f
commit
11126c6d30
1 changed files with 2 additions and 1 deletions
|
@ -524,7 +524,8 @@ Some context functions add menu items below the separator."
|
||||||
(i 0))
|
(i 0))
|
||||||
(dolist (item (reverse yank-menu))
|
(dolist (item (reverse yank-menu))
|
||||||
(when (consp item)
|
(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)
|
`(menu-item ,(cadr item)
|
||||||
,(lambda () (interactive)
|
,(lambda () (interactive)
|
||||||
(mouse-yank-from-menu click (car item)))))))
|
(mouse-yank-from-menu click (car item)))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue