mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Fix custom types for cursor-in-non-selected-windows

Browse Source 
* lisp/cus-start.el (standard): Use the same custom types for
cursor-in-non-selected-windows as for cursor-type (bug#19214).

(cherry picked from commit b66bc0cced)
This commit is contained in:
Lars Ingebrigtsen 2016-04-30 17:57:57 +02:00
parent 2ef780f306
commit ad5572b20f
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/cus-start.el
View File

@ -54,7 +54,8 @@
;; :risky - risky-local-variable property
;; :safe - safe-local-variable property
;; :tag - custom-tag property
(let (standard native-p prop propval
(let (standard
native-p prop propval
;; This function turns a value
;; into an expression which produces that value.
(quoter (lambda (sexp)
@ -67,27 +68,27 @@
(stringp sexp)
(numberp sexp))
sexp
(list 'quote sexp)))))
(list 'quote sexp))))
(cursor-type-types
'(choice
(const :tag "Frame default" t)
(const :tag "Filled box" box)
(const :tag "Hollow cursor" hollow)
(const :tag "Vertical bar" bar)
(cons :tag "Vertical bar with specified width"
(const bar) integer)
(const :tag "Horizontal bar" hbar)
(cons :tag "Horizontal bar with specified width"
(const hbar) integer)
(const :tag "None "nil))))
(pcase-dolist
(`(,symbol ,group ,type ,version . ,rest)
'(;; alloc.c
`(;; alloc.c
(gc-cons-threshold alloc integer)
(gc-cons-percentage alloc float)
(garbage-collection-messages alloc boolean)
;; buffer.c
(cursor-type
display
(choice
(const :tag "Frame default" t)
(const :tag "Filled box" box)
(const :tag "Hollow cursor" hollow)
(const :tag "Vertical bar" bar)
(cons :tag "Vertical bar with specified width"
(const bar) integer)
(const :tag "Horizontal bar" hbar)
(cons :tag "Horizontal bar with specified width"
(const hbar) integer)
(const :tag "None "nil)))
(cursor-type display ,cursor-type-types)
(mode-line-format mode-line sexp) ;Hard to do right.
(major-mode internal function)
(case-fold-search matching boolean)
@ -147,7 +148,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
(line-spacing display (choice (const :tag "none" nil) number)
"22.1")
(cursor-in-non-selected-windows
cursor boolean nil
cursor ,cursor-type-types nil
:tag "Cursor In Non-selected Windows"
:set (lambda (symbol value)
(set-default symbol value)