mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

* lisp/net/dictionary.el (context-menu-dictionary): Move menu item down.

Browse Source 
Place the dictionary menu item after middle-separator (bug#50552).
This commit is contained in:
Juri Linkov 2021-10-02 22:22:41 +03:00
parent bb209cd5ab
commit 55dadbc57e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/net/dictionary.el
View File

@ -1382,10 +1382,12 @@ When you add this function to `context-menu-functions',
the context menu will contain an item that searches
the word at mouse click."
(when (thing-at-mouse click 'word)
(define-key menu [dictionary-separator] menu-bar-separator)
(define-key menu [dictionary-search-word-at-mouse]
(define-key-after menu [dictionary-separator] menu-bar-separator
'middle-separator)
(define-key-after menu [dictionary-search-word-at-mouse]
'(menu-item "Dictionary Search" dictionary-search-word-at-mouse
:help "Search the word at mouse click in dictionary")))
:help "Search the word at mouse click in dictionary")
'dictionary-separator))
menu)
(provide 'dictionary)