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

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

Browse Source 
when calling completing-read.
This commit is contained in:
Richard M. Stallman 2003-04-16 05:03:13 +00:00
parent a7113309ba
commit f1e4bcdb0c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/man.el
View File

@ -1198,7 +1198,7 @@ Specify which REFERENCE to use; default is based on word at point."
(aheadsym Man-refpages-alist))) (aheadsym Man-refpages-alist)))
chosen chosen
(prompt (concat "Refer to: (default " default ") "))) (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) (if (or (not chosen)
(string= chosen "")) (string= chosen ""))
default default