/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

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

revision 1.134 by rms, Mon Dec 27 16:38:57 2004 UTC revision 1.135 by eliz, Sat Jan 29 13:22:21 2005 UTC
# Line 391  new value.") Line 391  new value.")
391      (overlay-put overlay 'evaporate t)      (overlay-put overlay 'evaporate t)
392      ;; We want to avoid the face with image buttons.      ;; We want to avoid the face with image buttons.
393      (unless (widget-get widget :suppress-face)      (unless (widget-get widget :suppress-face)
394        (overlay-put overlay 'face (widget-apply widget :button-face-get)))        (overlay-put overlay 'face (widget-apply widget :button-face-get))
395          ; Text terminals cannot change mouse pointer shape, so use mouse
396          ; face instead.
397          (or (display-graphic-p)
398              (overlay-put overlay 'mouse-face widget-mouse-face)))
399      (overlay-put overlay 'pointer 'hand)      (overlay-put overlay 'pointer 'hand)
400      (overlay-put overlay 'follow-link follow-link)      (overlay-put overlay 'follow-link follow-link)
401      (overlay-put overlay 'help-echo help-echo)))      (overlay-put overlay 'help-echo help-echo)))

Legend:
Removed from v.1.134  
changed lines
  Added in v.1.135

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