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 |
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) |
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 |