;;; cus-start.el --- define customization properties of builtins -*- lexical-binding:t -*-
-;; Copyright (C) 1997, 1999-2015 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999-2016 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: internal
;; :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)
(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)
(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)
(repeat (directory :format "%v")))
;; coding.c
(inhibit-eol-conversion mule boolean)
+ (enable-character-translation mule boolean)
(eol-mnemonic-undecided mule string)
;; startup.el fiddles with the values. IMO, would be
;; simpler to just use #ifdefs in coding.c.
(visible-bell display boolean)
(no-redraw-on-reenter display boolean)
- ;; dosfns.c
+ ;; dosfns.c
(dos-display-scancodes display boolean)
(dos-hyper-key keyboard integer)
(dos-super-key keyboard integer)
(const :tag "Always" t)
(repeat (symbol :tag "Parameter")))
"25.1")
+ (tooltip-reuse-hidden-frame tooltip boolean "25.2")
;; fringe.c
(overflow-newline-into-fringe fringe boolean)
;; image.c