From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 19 Mar 2005 14:37:59 +0000 (+0000)
Subject: (Man-follow-manual-reference): If current-word returns nil, use "".
X-Git-Tag: ttn-vms-21-2-B4~1689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=580a2a02051154cf9c12ffa9cf1c9a25019ce747;p=emacs.git

(Man-follow-manual-reference): If current-word returns nil, use "".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41e7b1acf4d..3d2d75f61ef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-03-19  Yoichi NAKAYAMA  <yoichi@geiin.org>  (tiny changes)
+
+	* finder.el (finder-current-item): Throw an error on an empty
+	line.
+
+	* man.el (Man-follow-manual-reference): If current-word returns
+	nil, use "".
+
 2005-03-19  Matt Hodges  <MPHodges@member.fsf.org>
 
 	* simple.el (goto-line): Doc fix.
diff --git a/lisp/man.el b/lisp/man.el
index 02661c55517..8c384028e17 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1305,7 +1305,9 @@ Specify which REFERENCE to use; default is based on word at point."
        (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