masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* 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
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 context menu will contain an item that searches
the word at mouse click." the word at mouse click."
(when (thing-at-mouse click 'word) (when (thing-at-mouse click 'word)
(define-key menu [dictionary-separator] menu-bar-separator) (define-key-after menu [dictionary-separator] menu-bar-separator
(define-key menu [dictionary-search-word-at-mouse] 'middle-separator)
(define-key-after menu [dictionary-search-word-at-mouse]
'(menu-item "Dictionary Search" 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) menu)
(provide 'dictionary) (provide 'dictionary)