[Emacs-diffs] Changes to emacs/lisp/woman.el [lexbind]

[Miles Bader]

Index: emacs/lisp/woman.el
diff -c emacs/lisp/woman.el:1.13.2.1 emacs/lisp/woman.el:1.13.2.2
*** emacs/lisp/woman.el:1.13.2.1        Fri Apr  4 01:20:12 2003
--- emacs/lisp/woman.el Tue Oct 14 19:51:28 2003
***************
*** 1221,1227 ****
                   ;; 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
             (assoc topic woman-topic-all-completions))
        (setq topic
              (completing-read
--- 1221,1227 ----
                   ;; Was let-bound when file loaded, so ...
                   (setq woman-topic-at-point woman-topic-at-point-default)))
             (setq topic
!                  (or (current-word t) ""))    ; only within or adjacent to 
word
             (assoc topic woman-topic-all-completions))
        (setq topic
              (completing-read
***************
*** 1230,1236 ****
               ;; Initial input suggestion (was nil), with
               ;; cursor at left ready to kill suggestion!:
               (and woman-topic-at-point
!                   (cons (current-word) 0)) ; nearest word
               'woman-topic-history)))
      ;; Note that completing-read always returns a string.
      (if (= (length topic) 0)
--- 1230,1236 ----
               ;; Initial input suggestion (was nil), with
               ;; cursor at left ready to kill suggestion!:
               (and woman-topic-at-point
!                   (cons (or (current-word) "") 0)) ; nearest word
               'woman-topic-history)))
      ;; Note that completing-read always returns a string.
      (if (= (length topic) 0)
***************
*** 1744,1750 ****
  Argument EVENT is the invoking mouse event."
    (interactive "e")                   ; mouse event
    (goto-char (posn-point (event-start event)))
!   (woman (current-word t)))
  
  ;; WoMan menu bar and pop-up menu:
  (easy-menu-define
--- 1744,1750 ----
  Argument EVENT is the invoking mouse event."
    (interactive "e")                   ; mouse event
    (goto-char (posn-point (event-start event)))
!   (woman (or (current-word t) "")))
  
  ;; WoMan menu bar and pop-up menu:
  (easy-menu-define
***************
*** 4526,4529 ****
--- 4526,4530 ----
  
  (provide 'woman)
  
+ ;;; arch-tag: eea35e90-552f-4712-a94b-d9ffd3db7651
  ;;; woman.el ends here