From cfbd1255c21ed28df8facc9b0f9ff257d70505c4 Mon Sep 17 00:00:00 2001 From: Hong Xu Date: Mon, 7 Oct 2019 06:13:27 +0200 Subject: [PATCH] tags-complete-tags-table-file doc string fix * lisp/progmodes/etags.el (tags-complete-tags-table-file): Doc string fix (bug#37538). --- lisp/progmodes/etags.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 5edced5080e..c40422dbc5c 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1843,13 +1843,18 @@ For non-interactive use, superceded by `fileloop-initialize-replace'." delimited) (fileloop-continue)) -(defun tags-complete-tags-table-file (string predicate what) ; Doc string? +(defun tags-complete-tags-table-file (string predicate what) + "Complete STRING from file names in the current tags table. +The meaning of the arguments are the same as the function form of +COLLECTION as explained in Info node `(elisp) Programmed +Completion', except that if WHAT does not equal t, it is treated +as if it were nil." (save-excursion ;; If we need to ask for the tag table, allow that. (let ((enable-recursive-minibuffers t)) (visit-tags-table-buffer)) (if (eq what t) - (all-completions string (tags-table-files) predicate) + (all-completions string (tags-table-files) predicate) (try-completion string (tags-table-files) predicate)))) (defun tags--get-current-buffer-name-in-tags-file () -- 2.39.5