From: Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
Date: Fri, 8 Apr 1994 15:57:24 +0000 (+0000)
Subject: (show_mouse_face): Change the mouse cursor accordingly.
X-Git-Tag: emacs-19.34~9096
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27ead1d5ebaa13870018c51b36264d7c334c6bff;p=emacs.git

(show_mouse_face): Change the mouse cursor accordingly.
---

diff --git a/src/xterm.c b/src/xterm.c
index 8d77ea4108d..45b52d8dea8 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -2208,6 +2208,12 @@ show_mouse_face (hl)
   /* If we turned the cursor off, turn it back on.  */
   if (cursor_off)
     x_display_cursor (f, 1);
+
+  /* Change the mouse cursor according to the value of HL.  */
+  if (hl > 0)
+    XDefineCursor (XDISPLAY FRAME_X_WINDOW (f), f->display.x->cross_cursor);
+  else
+    XDefineCursor (XDISPLAY FRAME_X_WINDOW (f), f->display.x->text_cursor);
 }
 
 /* Clear out the mouse-highlighted active region.