* 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 86447c2c351a14996a068e132e6fdcf3918a2a13..1d07989ef57fb6aeb0ce5eb38a00d8985256fa47 100644 (file)
--- 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)