From 5eb8942bad5e33a6d9b29c51f8cd1eac1e553ea0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 29 Jan 2005 13:22:21 +0000 Subject: [PATCH] (widget-specify-button): If mouse pointer shape cannot be changed, use mouse face instead. --- lisp/wid-edit.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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))) -- 2.39.2