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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41e7b1acf4d987486f57894dc5ac72b8d54ee682..3d2d75f61ef61ba49f568a32f65a0616d41d6a4b 100644 (file)
--- 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 02661c55517f4bec4508bb7f73e2f466bae03404..8c384028e177da1aa6ce744dc419b1b6495f4faa 100644 (file)
--- 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