[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org c12175003a 2/3: org-ctags: Fix interactive calls to
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org c12175003a 2/3: org-ctags: Fix interactive calls to `visit-tags-table' |
Date: |
Mon, 31 Oct 2022 02:57:59 -0400 (EDT) |
branch: externals/org
commit c12175003a23bcc1b8d7899e3e496848e3e9ae60
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-ctags: Fix interactive calls to `visit-tags-table'
* lisp/org-ctags.el (org-ctags-get-filename-for-tag):
(org-ctags-all-tags-in-current-tags-table):
(org-ctags-rebuild-tags-file-then-find-tag): Fix the calls.
---
lisp/org-ctags.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/org-ctags.el b/lisp/org-ctags.el
index c5b22b56d7..ecf16f333b 100644
--- a/lisp/org-ctags.el
+++ b/lisp/org-ctags.el
@@ -230,7 +230,7 @@ If the tag is found, return a list containing the filename,
line number, and
buffer position where the tag is found."
(interactive "sTag: ")
(unless tags-file-name
- (call-interactively (visit-tags-table)))
+ (call-interactively #'visit-tags-table))
(save-excursion
(visit-tags-table-buffer 'same)
(when tags-file-name
@@ -257,7 +257,7 @@ Return the list."
(interactive)
(let ((taglist nil))
(unless tags-file-name
- (call-interactively (visit-tags-table)))
+ (call-interactively #'visit-tags-table))
(save-excursion
(visit-tags-table-buffer 'same)
(with-current-buffer (get-file-buffer tags-file-name)
@@ -439,7 +439,7 @@ to append a new topic."
Like ORG-CTAGS-FIND-TAG, but calls the external ctags program first,
to rebuild (update) the TAGS file."
(unless tags-file-name
- (call-interactively (visit-tags-table)))
+ (call-interactively #'visit-tags-table))
(when (buffer-file-name)
(org-ctags-create-tags))
(org-ctags-find-tag name))