From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 29 Jan 2005 13:22:21 +0000 (+0000)
Subject: (widget-specify-button): If mouse pointer shape cannot be changed,
X-Git-Tag: ttn-vms-21-2-B4~2558
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5eb8942bad5e33a6d9b29c51f8cd1eac1e553ea0;p=emacs.git

(widget-specify-button): If mouse pointer shape cannot be changed,
use mouse face instead.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 5e67255eac9..16de985fa3c 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -391,7 +391,11 @@ new value.")
     (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 '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)))