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

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Charalampos Mitrodimas <charmitro <at> posteo.net>
Subject: bug#69619: closed (Re: bug#69619: [PATCH] Do interactive mode
 tagging for locate.el)
Date: Sat, 09 Mar 2024 07:29:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#69619: [PATCH] Do interactive mode tagging for locate.el

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 69619 <at> debbugs.gnu.org.

-- 
69619: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=69619
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

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.

[Message part 3 (message/rfc822, inline)]

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)

Previous Next

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