1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00

(Man-follow-manual-reference): Don't require match

when calling completing-read.
This commit is contained in:
Richard M. Stallman 2003-04-16 05:03:13 +00:00
parent a7113309ba
commit f1e4bcdb0c

View File

@ -1198,7 +1198,7 @@ Specify which REFERENCE to use; default is based on word at point."
(aheadsym Man-refpages-alist)))
chosen
(prompt (concat "Refer to: (default " default ") ")))
(setq chosen (completing-read prompt Man-refpages-alist nil t))
(setq chosen (completing-read prompt Man-refpages-alist))
(if (or (not chosen)
(string= chosen ""))
default