/[emacs]/emacs/lisp/woman.el
ViewVC logotype

Diff of /emacs/lisp/woman.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by miles, Mon Sep 1 15:45:18 2003 UTC revision 1.18 by rms, Mon Sep 22 15:15:26 2003 UTC
# Line 1221  Optional argument RE-CACHE, if non-nil, Line 1221  Optional argument RE-CACHE, if non-nil,
1221                     ;; Was let-bound when file loaded, so ...                     ;; Was let-bound when file loaded, so ...
1222                     (setq woman-topic-at-point woman-topic-at-point-default)))                     (setq woman-topic-at-point woman-topic-at-point-default)))
1223               (setq topic               (setq topic
1224                     (current-word t))    ; only within or adjacent to word                     (or (current-word t) ""))    ; only within or adjacent to word
1225               (assoc topic woman-topic-all-completions))               (assoc topic woman-topic-all-completions))
1226          (setq topic          (setq topic
1227                (completing-read                (completing-read
# Line 1230  Optional argument RE-CACHE, if non-nil, Line 1230  Optional argument RE-CACHE, if non-nil,
1230                 ;; Initial input suggestion (was nil), with                 ;; Initial input suggestion (was nil), with
1231                 ;; cursor at left ready to kill suggestion!:                 ;; cursor at left ready to kill suggestion!:
1232                 (and woman-topic-at-point                 (and woman-topic-at-point
1233                      (cons (current-word) 0)) ; nearest word                      (cons (or (current-word) "") 0)) ; nearest word
1234                 'woman-topic-history)))                 'woman-topic-history)))
1235      ;; Note that completing-read always returns a string.      ;; Note that completing-read always returns a string.
1236      (if (= (length topic) 0)      (if (= (length topic) 0)
# Line 1744  Leave point at end of new text.  Return Line 1744  Leave point at end of new text.  Return
1744  Argument EVENT is the invoking mouse event."  Argument EVENT is the invoking mouse event."
1745    (interactive "e")                     ; mouse event    (interactive "e")                     ; mouse event
1746    (goto-char (posn-point (event-start event)))    (goto-char (posn-point (event-start event)))
1747    (woman (current-word t)))    (woman (or (current-word t) "")))
1748    
1749  ;; WoMan menu bar and pop-up menu:  ;; WoMan menu bar and pop-up menu:
1750  (easy-menu-define  (easy-menu-define

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26