[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Chong Yidong]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.152 emacs/lisp/wid-edit.el:1.153
*** emacs/lisp/wid-edit.el:1.152        Tue Oct 18 00:28:57 2005
--- emacs/lisp/wid-edit.el      Sun Oct 23 17:40:38 2005
***************
*** 403,412 ****
      ;; We want to avoid the face with image buttons.
      (unless (widget-get widget :suppress-face)
        (overlay-put overlay 'face (widget-apply widget :button-face-get))
!       ; Text terminals cannot change mouse pointer shape, so use mouse
!       ; face instead.
!       (or (display-graphic-p)
!         (overlay-put overlay 'mouse-face widget-mouse-face)))
      (overlay-put overlay 'pointer 'hand)
      (overlay-put overlay 'follow-link follow-link)
      (overlay-put overlay 'help-echo help-echo)))
--- 403,409 ----
      ;; We want to avoid the face with image buttons.
      (unless (widget-get widget :suppress-face)
        (overlay-put overlay 'face (widget-apply widget :button-face-get))
!       (overlay-put overlay 'mouse-face widget-mouse-face))
      (overlay-put overlay 'pointer 'hand)
      (overlay-put overlay 'follow-link follow-link)
      (overlay-put overlay 'help-echo help-echo)))
***************
*** 664,674 ****
    "Move to where you click, and if it is an active field, invoke it."
    (interactive "e")
    (mouse-set-point event)
!   (if (widget-event-point event)
!       (let* ((pos (widget-event-point event))
!            (button (get-char-property pos 'button)))
!       (if button
!           (widget-button-click event)))))
  
  ;;; Buttons.
  
--- 661,669 ----
    "Move to where you click, and if it is an active field, invoke it."
    (interactive "e")
    (mouse-set-point event)
!   (let ((pos (widget-event-point event)))
!     (if (and pos (get-char-property pos 'button))
!       (widget-button-click event))))
  
  ;;; Buttons.