diff options
| author | Gerd Moellmann | 2001-04-02 10:19:52 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-04-02 10:19:52 +0000 |
| commit | c0eb3c10523c99549e2253f23e6ce3f65ce469cf (patch) | |
| tree | 13185cc9d0f4909d982e3b07c6a335f335cdfe85 | |
| parent | a46d278bd57fa084322d7c51de96490a2dcf74d5 (diff) | |
| download | emacs-c0eb3c10523c99549e2253f23e6ce3f65ce469cf.tar.gz emacs-c0eb3c10523c99549e2253f23e6ce3f65ce469cf.zip | |
(cursor-in-non-selected-windows): Replaces
show-cursor-in-non-selected-windows.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/frame.el | 7 |
2 files changed, 8 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c80bf05302f..136561541cd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2001-04-02 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * frame.el (cursor-in-non-selected-windows): Replaces | ||
| 4 | show-cursor-in-non-selected-windows. | ||
| 5 | |||
| 1 | 2001-03-31 Kenichi Handa <handa@etl.go.jp> | 6 | 2001-03-31 Kenichi Handa <handa@etl.go.jp> |
| 2 | 7 | ||
| 3 | * international/titdic-cnv.el (quail-cxterm-package-ext-info): | 8 | * international/titdic-cnv.el (quail-cxterm-package-ext-info): |
| @@ -14,7 +19,7 @@ | |||
| 14 | eight-bit-control chars. | 19 | eight-bit-control chars. |
| 15 | 20 | ||
| 16 | * international/encoded-kb.el (encoded-kbd-self-insert-ccl): | 21 | * international/encoded-kb.el (encoded-kbd-self-insert-ccl): |
| 17 | Reduce making temporary vector (suggested by by Dave Love). | 22 | Reduce making temporary vector (suggested by Dave Love). |
| 18 | 23 | ||
| 19 | 2001-03-30 Eli Zaretskii <eliz@is.elta.co.il> | 24 | 2001-03-30 Eli Zaretskii <eliz@is.elta.co.il> |
| 20 | 25 | ||
diff --git a/lisp/frame.el b/lisp/frame.el index c05347c2d4b..299cfa52b01 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -1196,18 +1196,15 @@ itself as a pre-command hook." | |||
| 1196 | :group 'cursor) | 1196 | :group 'cursor) |
| 1197 | 1197 | ||
| 1198 | 1198 | ||
| 1199 | (defcustom show-cursor-in-non-selected-windows t | 1199 | (defcustom cursor-in-non-selected-windows t |
| 1200 | "*Non-nil means show a hollow box cursor in non-selected-windows. | 1200 | "*Non-nil means show a hollow box cursor in non-selected-windows. |
| 1201 | If nil, don't show a cursor except in the selected window. | 1201 | If nil, don't show a cursor except in the selected window. |
| 1202 | Setting this variable directly has no effect; use custom instead | 1202 | Use Custom to set this variable to get the display updated." |
| 1203 | \(or set the variable `cursor-in-non-selected-windows')." | ||
| 1204 | :tag "Cursor in non-selected windows" | 1203 | :tag "Cursor in non-selected windows" |
| 1205 | :type 'boolean | 1204 | :type 'boolean |
| 1206 | :group 'cursor | 1205 | :group 'cursor |
| 1207 | :get #'(lambda (symbol) cursor-in-non-selected-windows) | ||
| 1208 | :set #'(lambda (symbol value) | 1206 | :set #'(lambda (symbol value) |
| 1209 | (set-default symbol value) | 1207 | (set-default symbol value) |
| 1210 | (setq cursor-in-non-selected-windows value) | ||
| 1211 | (force-mode-line-update t))) | 1208 | (force-mode-line-update t))) |
| 1212 | 1209 | ||
| 1213 | 1210 | ||