emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 7677136: Enable "Continue Tags Search" menu item only when it c


From: Eli Zaretskii
Subject: emacs-27 7677136: Enable "Continue Tags Search" menu item only when it can be used
Date: Sat, 26 Sep 2020 04:51:49 -0400 (EDT)

branch: emacs-27
commit 767713682c21b2e96abdce11741c065899656f75
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Enable "Continue Tags Search" menu item only when it can be used
    
    * lisp/menu-bar.el (menu-bar-search-menu) <tags-continue>: Enable
    only when there was a previous tags search.  (Bug#43569)
    (menu-bar-replace-menu) <tags-repl-continue>: Enable only when
    there was a previous tags-replace.
---
 lisp/menu-bar.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 37e046f..ef64c74 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -333,6 +333,8 @@
 
     (bindings--define-key menu [tags-continue]
       '(menu-item "Continue Tags Search" fileloop-continue
+                  :enable (and (featurep 'fileloop)
+                               (not (eq fileloop--operate-function 'ignore)))
                   :help "Continue last tags search operation"))
     (bindings--define-key menu [tags-srch]
       '(menu-item "Search Tagged Files..." tags-search
@@ -382,6 +384,8 @@
   (let ((menu (make-sparse-keymap "Replace")))
     (bindings--define-key menu [tags-repl-continue]
       '(menu-item "Continue Replace" fileloop-continue
+                  :enable (and (featurep 'fileloop)
+                               (not (eq fileloop--operate-function 'ignore)))
                   :help "Continue last tags replace operation"))
     (bindings--define-key menu [tags-repl]
       '(menu-item "Replace in Tagged Files..." tags-query-replace



reply via email to

[Prev in Thread] Current Thread [Next in Thread]