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

[Eli Zaretskii]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.134 emacs/lisp/wid-edit.el:1.135
*** emacs/lisp/wid-edit.el:1.134        Mon Dec 27 16:38:57 2004
--- emacs/lisp/wid-edit.el      Sat Jan 29 13:22:21 2005
***************
*** 391,397 ****
      (overlay-put overlay 'evaporate t)
      ;; 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 'pointer 'hand)
      (overlay-put overlay 'follow-link follow-link)
      (overlay-put overlay 'help-echo help-echo)))
--- 391,401 ----
      (overlay-put overlay 'evaporate t)
      ;; 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)))