From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 24 Feb 2000 14:03:59 +0000 (+0000)
Subject: (show-cursor-in-non-selected-windows): New option.
X-Git-Tag: emacs-pretest-21.0.90~4900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b2c5477e0be8c89af94b7bbd7e14153aaf00b32;p=emacs.git

(show-cursor-in-non-selected-windows): New option.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 394652d5310..bd153f915f3 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1096,7 +1096,19 @@ itself as a pre-command hook."
 	   (set-default symbol value)
 	   (setq display-busy-cursor value)))
 
-
+
+(defcustom show-cursor-in-non-selected-windows t
+  "*Non-nil means show a hollow box cursor in non-selected-windows.
+If nil, don't show a cursor except in the selected window."
+  :tag "Cursor in non-selected windows"
+  :type 'boolean
+  :group 'cursor
+  :get #'(lambda (symbol) cursor-in-non-selected-windows)
+  :set #'(lambda (symbol value)
+	   (set-default symbol value)
+	   (setq cursor-in-non-selected-windows value)
+	   (force-mode-line-update t)))
+  
 
 ;;;; Key bindings