From: Juri Linkov Date: Sat, 2 Oct 2021 19:22:41 +0000 (+0300) Subject: * lisp/net/dictionary.el (context-menu-dictionary): Move menu item down. X-Git-Tag: emacs-28.0.90~455 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55dadbc57e5e89bd6aa67d26c5dc1a32a0a279fc;p=emacs.git * lisp/net/dictionary.el (context-menu-dictionary): Move menu item down. Place the dictionary menu item after middle-separator (bug#50552). --- 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)