andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(woman-file-name, woman-follow-word):

Browse source 
If current-word returns nil, use "".
This commit is contained in:
Richard M. Stallman 2003-09-22 15:15:26 +00:00
parent 683e741557
commit 7cff48094e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/woman.el
View file

@ -1221,7 +1221,7 @@ Optional argument RE-CACHE, if non-nil, forces the cache to be re-read."
;; 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 @@ Optional argument RE-CACHE, if non-nil, forces the cache to be re-read."
;; 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 @@ Leave point at end of new text. Return length of inserted text."
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