changeset 60747:86c528510d44

(Man-follow-manual-reference): If current-word returns nil, use "".
author Eli Zaretskii <eliz@gnu.org>
date Sat, 19 Mar 2005 14:36:43 +0000
parents 23533546bb38
children e83f2fedadd4
files lisp/man.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Sat Mar 19 14:35:59 2005 +0000
+++ b/lisp/man.el	Sat Mar 19 14:36:43 2005 +0000
@@ -1305,7 +1305,9 @@
        (error "There are no references in the current man page")
      (list (let* ((default (or
 			    (car (all-completions
-				  (let ((word (Man-possibly-hyphenated-word)))
+				  (let ((word
+					 (or (Man-possibly-hyphenated-word)
+					     "")))
 				    ;; strip a trailing '-':
 				    (if (string-match "-$" word)
 					(substring word 0