Adjust occur-context-menu and elisp-context-menu

* lisp/progmodes/elisp-mode.el (elisp-context-menu): Add separator
only when there is a symbol at mouse click.

* lisp/replace.el (occur-context-menu): Insert items in the middle
of the menu after mark-whole-buffer.

diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 917a7ad9afd2d285e9935138712363dcc0c72c09..a4c8d8671dd3e4934fbf0ad1469d5ce204de7d6a 100644 (file)
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -154,9 +154,9 @@ All commands in `lisp-mode-shared-map' are inherited by this map.")
      :selected (bound-and-true-p eldoc-mode)]))
 
 (defun elisp-context-menu (menu click)
-  (define-key-after menu [elisp-separator] menu-bar-separator
-    'mark-whole-buffer)
   (when (thing-at-mouse click 'symbol)
+    (define-key-after menu [elisp-separator] menu-bar-separator
+      'mark-whole-buffer)
     (define-key-after menu [describe-symbol]
       '(menu-item "Describe Symbol"
                   (lambda (click) (interactive "e")

diff --git a/lisp/replace.el b/lisp/replace.el
index 63b3e213ce8c8b7ea0563d44ffea9ae208e5744b..63b58c9b454725f9fae495477e004fd8ca4d091f 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2385,13 +2385,16 @@ To be added to `context-menu-functions'."
   (let ((word (thing-at-mouse click 'word))
         (sym (thing-at-mouse click 'symbol)))
     (when (or word sym)
-      (define-key-after menu [occur-separator] menu-bar-separator)
-      (when word
-        (define-key-after menu [occur-word-at-mouse]
-          '(menu-item "Occur Word" occur-word-at-mouse)))
+      (define-key-after menu [occur-separator] menu-bar-separator
+        'mark-whole-buffer)
       (when sym
         (define-key-after menu [occur-symbol-at-mouse]
-          '(menu-item "Occur Symbol" occur-symbol-at-mouse)))))
+          '(menu-item "Occur Symbol" occur-symbol-at-mouse)
+          'occur-separator))
+      (when word
+        (define-key-after menu [occur-word-at-mouse]
+          '(menu-item "Occur Word" occur-word-at-mouse)
+          'occur-separator))))
   menu)
 
 \f