diff options
| author | Hong Xu <hong@topbug.net> | 2019-10-07 06:13:27 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-07 06:13:27 +0200 |
| commit | cfbd1255c21ed28df8facc9b0f9ff257d70505c4 (patch) | |
| tree | c4a0353debd87d69a8bc68e5aee9a4266ea1b1d4 /lisp/progmodes/etags.el | |
| parent | 273dd6542d96e09f90308187bac341ebaa0c770d (diff) | |
| download | emacs-cfbd1255c21ed28df8facc9b0f9ff257d70505c4.tar.gz | |
tags-complete-tags-table-file doc string fix
* lisp/progmodes/etags.el (tags-complete-tags-table-file): Doc
string fix (bug#37538).
Diffstat (limited to 'lisp/progmodes/etags.el')
| -rw-r--r-- | lisp/progmodes/etags.el | 9 |
1 files 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 () |