From: Kim F. Storm <storm@cua.dk>
Date: Sat, 16 Feb 2002 23:53:22 +0000 (+0000)
Subject: (Vmouse_highlight): New variable.
X-Git-Tag: ttn-vms-21-2-B4~16616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6018080fa7170653dc77b100363158c78074f2cd;p=emacs.git

(Vmouse_highlight): New variable.
(syms_of_frame): DEFVAR_LISP it.
---

diff --git a/src/frame.c b/src/frame.c
index 93c68388513..d6789065311 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -79,6 +79,7 @@ Lisp_Object Qtty_color_mode;
 Lisp_Object Vterminal_frame;
 Lisp_Object Vdefault_frame_alist;
 Lisp_Object Vmouse_position_function;
+Lisp_Object Vmouse_highlight;
 
 static void
 set_menu_bar_lines_1 (window, n)
@@ -2535,6 +2536,14 @@ This abnormal hook exists for the benefit of packages like `xt-mouse.el'
 which need to do mouse handling at the Lisp level.  */);
   Vmouse_position_function = Qnil;
 
+  DEFVAR_LISP ("mouse-highlight", &Vmouse_highlight,
+	       doc: /* If non-nil, clickable text is highlighted when mouse is over it.  
+If the value is an integer, highlighting is only shown after moving the
+mouse, while keyboard input turns off the highlight even when the mouse
+is over the clickable text.  However, the mouse shape still indicates
+when the mouse is over clickable text.  */);
+  Vmouse_highlight = make_number (1);
+
   DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame,
 		 doc: /* Minibufferless frames use this frame's minibuffer.