diff options
| author | Juri Linkov <juri@linkov.net> | 2021-10-02 22:22:41 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-10-02 22:22:41 +0300 |
| commit | 55dadbc57e5e89bd6aa67d26c5dc1a32a0a279fc (patch) | |
| tree | f3b811e5484087ebcdddb9c133a1112b0534ab35 /lisp/net/dictionary.el | |
| parent | bb209cd5ab819c72784de7278092705e59ff41d5 (diff) | |
| download | emacs-55dadbc57e5e89bd6aa67d26c5dc1a32a0a279fc.tar.gz emacs-55dadbc57e5e89bd6aa67d26c5dc1a32a0a279fc.tar.bz2 emacs-55dadbc57e5e89bd6aa67d26c5dc1a32a0a279fc.zip | |
* lisp/net/dictionary.el (context-menu-dictionary): Move menu item down.
Place the dictionary menu item after middle-separator (bug#50552).
Diffstat (limited to 'lisp/net/dictionary.el')
| -rw-r--r-- | lisp/net/dictionary.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index 86447c2c351..1d07989ef57 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el @@ -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) |