GNU bug report logs - #69619
[PATCH] Do interactive mode tagging for locate.el

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 69619 in the body.
You can then email your comments to 69619 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Charalampos Mitrodimas <charmitro <at> posteo.net>
To: bug-gnu-emacs <at> gnu.org
Cc: Charalampos Mitrodimas <charmitro <at> posteo.net>
Subject: [PATCH] Do interactive mode tagging for locate.el
Date: Thu,  7 Mar 2024 18:38:15 +0000

* lisp/locate.el (locate-tags) (locate-find-directory,
locate-find-directory-other-window): Do interactive mode tagging.
---
 lisp/locate.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/locate.el b/lisp/locate.el
index d86e7fa678f..70328d5184e 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -559,7 +559,7 @@ locate-insert-header
 
 (defun locate-tags ()
   "Visit a tags table in `*Locate*' mode."
-  (interactive)
+  (interactive nil locate-mode)
   (if (locate-main-listing-line-p)
       (let ((tags-table (locate-get-filename)))
 	(and (y-or-n-p (format "Visit tags table %s? " tags-table))
@@ -589,7 +589,7 @@ locate-update
 
 (defun locate-find-directory ()
   "Visit the directory of the file mentioned on this line."
-  (interactive)
+  (interactive nil locate-mode)
   (if (locate-main-listing-line-p)
       (let ((directory-name (locate-get-dirname)))
 	(if (file-directory-p directory-name)
@@ -601,7 +601,7 @@ locate-find-directory
 
 (defun locate-find-directory-other-window ()
   "Visit the directory of the file named on this line in other window."
-  (interactive)
+  (interactive nil locate-mode)
   (if (locate-main-listing-line-p)
       (find-file-other-window (locate-get-dirname))
     (message "This command only works inside main listing.")))
-- 
2.39.3 (Apple Git-146)

Message #10 received at 69619-done <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Charalampos Mitrodimas <charmitro <at> posteo.net>
Cc: 69619-done <at> debbugs.gnu.org
Subject: Re: bug#69619: [PATCH] Do interactive mode tagging for locate.el
Date: Sat, 09 Mar 2024 09:27:23 +0200

> Cc: Charalampos Mitrodimas <charmitro <at> posteo.net>
> From: Charalampos Mitrodimas <charmitro <at> posteo.net>
> Date: Thu,  7 Mar 2024 18:38:15 +0000
> 
> * lisp/locate.el (locate-tags) (locate-find-directory,
> locate-find-directory-other-window): Do interactive mode tagging.

Thanks, installed on the master branch, and closing the bug.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.