[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-27 7677136: Enable "Continue Tags Search" menu item only when it can be used,
Eli Zaretskii <=