# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1111243003 0
# Node ID 86c528510d4455cb7bfe9415fb1c148462e1b279
# Parent  23533546bb3850c507ff133830af8136882bb699
(Man-follow-manual-reference): If current-word returns nil, use "".

diff -r 23533546bb38 -r 86c528510d44 lisp/man.el
--- 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