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

diff --git a/lisp/frame.el b/lisp/frame.el
index 394652d53101cc27af7d1aaba53f67b05ab284bf..bd153f915f3ff206e913d36e23213cd92ecec7bb 100644 (file)
--- 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)))
 
-
+\f
+(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)))
+  
 \f
 ;;;; Key bindings