# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1064243726 0
# Node ID 22ddccd48cc0100e2f4d24eac900cf927ebcbf27
# Parent  38d8d37f129abd6544ac0d2ee92587ccef31aaf0
(woman-file-name, woman-follow-word):
If current-word returns nil, use "".

diff -r 38d8d37f129a -r 22ddccd48cc0 lisp/woman.el
--- a/lisp/woman.el	Mon Sep 22 15:11:02 2003 +0000
+++ b/lisp/woman.el	Mon Sep 22 15:15:26 2003 +0000
@@ -1221,7 +1221,7 @@
 		   ;; Was let-bound when file loaded, so ...
 		   (setq woman-topic-at-point woman-topic-at-point-default)))
 	     (setq topic
-		   (current-word t))	; only within or adjacent to word
+		   (or (current-word t) ""))	; only within or adjacent to word
 	     (assoc topic woman-topic-all-completions))
 	(setq topic
 	      (completing-read
@@ -1230,7 +1230,7 @@
 	       ;; Initial input suggestion (was nil), with
 	       ;; cursor at left ready to kill suggestion!:
 	       (and woman-topic-at-point
-		    (cons (current-word) 0)) ; nearest word
+		    (cons (or (current-word) "") 0)) ; nearest word
 	       'woman-topic-history)))
     ;; Note that completing-read always returns a string.
     (if (= (length topic) 0)
@@ -1744,7 +1744,7 @@
 Argument EVENT is the invoking mouse event."
   (interactive "e")			; mouse event
   (goto-char (posn-point (event-start event)))
-  (woman (current-word t)))
+  (woman (or (current-word t) "")))
 
 ;; WoMan menu bar and pop-up menu:
 (easy-menu-define