;;; cus-start.el --- define customization properties of builtins
;;
;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: internal
(tab-width editing-basics integer)
(ctl-arrow display boolean)
(truncate-lines display boolean)
+ (word-wrap display boolean)
(selective-display-ellipses display boolean)
(indicate-empty-lines fringe boolean)
(indicate-buffer-boundaries
:value (nil)
(symbol :format "%v"))
(const :tag "always" t)))
+ ;; fileio.c
+ (delete-by-moving-to-trash auto-save boolean "23.1")
+ (auto-save-visited-file-name auto-save boolean)
;; fns.c
(use-dialog-box menu boolean "21.1")
(use-file-dialog menu boolean "22.1")
(suggest-key-bindings keyboard (choice (const :tag "off" nil)
(integer :tag "time" 2)
(other :tag "on")))
- ;; macselect.c
- (mac-dnd-known-types mac (repeat string) "22.1")
- ;; macterm.c
- (mac-control-modifier mac (choice (const :tag "No modifier" nil)
- (const control) (const meta)
- (const alt) (const hyper)
- (const super)) "22.1")
- (mac-command-modifier mac (choice (const :tag "No modifier" nil)
- (const control) (const meta)
- (const alt) (const hyper)
- (const super)) "22.1")
- (mac-option-modifier mac (choice (const :tag "No modifier (work as option)" nil)
- (const control) (const meta)
- (const alt) (const hyper)
- (const super)) "22.1")
- (mac-function-modifier mac
- (choice (const :tag "No modifier (work as function)" nil)
- (const control) (const meta)
- (const alt) (const hyper)
- (const super)) "22.1")
- (mac-emulate-three-button-mouse mac
- (choice (const :tag "No emulation" nil)
- (const :tag "Option->2, Command->3" t)
- (const :tag "Command->2, Option->3" reverse))
- "22.1")
- (mac-wheel-button-is-mouse-2 mac boolean "22.1")
- (mac-pass-command-to-system mac boolean "22.1")
- (mac-pass-control-to-system mac boolean "22.1")
- (mac-allow-anti-aliasing mac boolean "22.1")
- (mac-ts-script-language-on-focus mac
- (choice (const :tag "System default behavior" nil)
- (const :tag "Restore to script/language used in the last focus frame" t)
- (cons :tag "Specify script/language"
- (integer :tag "Script code")
- (integer :tag "Language code")))
- "22.1")
;; This is not good news because it will use the wrong
;; version-specific directories when you upgrade. We need
(choice (const :tag "Infinite" t) integer)
"22.1")
(history-delete-duplicates minibuffer boolean "22.1")
+ (read-buffer-completion-ignore-case minibuffer boolean "23.1")
+
(minibuffer-prompt-properties
minibuffer
(list
function))
;; msdos.c
(dos-unsupported-char-glyph display integer)
+ ;; nsterm.m
+ (ns-control-modifier
+ ns
+ (choice (const :tag "No modifier" nil)
+ (const control) (const meta)
+ (const alt) (const hyper)
+ (const super)) "23.1")
+ (ns-command-modifier
+ ns
+ (choice (const :tag "No modifier" nil)
+ (const control) (const meta)
+ (const alt) (const hyper)
+ (const super)) "23.1")
+ (ns-alternate-modifier
+ ns
+ (choice (const :tag "No modifier (work as alternate/option)" none)
+ (const control) (const meta)
+ (const alt) (const hyper)
+ (const super)) "23.1")
+ (ns-function-modifier
+ ns
+ (choice (const :tag "No modifier (work as function)" none)
+ (const control) (const meta)
+ (const alt) (const hyper)
+ (const super)) "23.1")
+ (ns-antialias-text ns boolean "23.1")
+ (ns-use-qd-smoothing ns boolean "23.1")
;; process.c
(delete-exited-processes processes-basics boolean)
;; syntax.c
"22.1")
;; window.c
(temp-buffer-show-function windows (choice (const nil) function))
- (display-buffer-function windows (choice (const nil) function))
- (pop-up-frames frames boolean)
- (pop-up-frame-function frames function)
- (special-display-buffer-names
- frames
- (repeat (choice :tag "Buffer"
- :value ""
- (string :format "%v")
- (cons :tag "With attributes"
- :format "%v"
- :value ("" . nil)
- (string :format "%v")
- (repeat :tag "Attributes"
- (cons :format "%v"
- (symbol :tag "Parameter")
- (sexp :tag "Value")))))))
- (special-display-regexps
- frames
- (repeat (choice :tag "Buffer"
- :value ""
- (regexp :format "%v")
- (cons :tag "With attributes"
- :format "%v"
- :value ("" . nil)
- (regexp :format "%v")
- (repeat :tag "Attributes"
- (cons :format "%v"
- (symbol :tag "Parameter")
- (sexp :tag "Value")))))))
- (special-display-function frames function)
- (same-window-buffer-names windows (repeat (string :format "%v")))
- (same-window-regexps windows (repeat (regexp :format "%v")))
- (pop-up-windows windows boolean)
- (even-window-heights windows boolean)
(next-screen-context-lines windows integer)
- (split-height-threshold windows integer)
- (split-window-preferred-function
- windows
- (choice (const :tag "vertically" nil)
- ;; FIXME: Add `sensibly' which chooses between
- ;; vertical or horizontal splits depending on the size
- ;; and shape of the window.
- (const :tag "horizontally"
- split-window-preferred-horizontally))
- "23.1")
(window-min-height windows integer)
(window-min-width windows integer)
(scroll-preserve-screen-position
(const :tag "Off (nil)" :value nil)
(const :tag "Full screen (t)" :value t)
(other :tag "Always" 1)) "22.1")
- (display-buffer-reuse-frames windows boolean "21.1")
;; xdisp.c
(scroll-step windows integer)
(scroll-conservatively windows integer)
(scroll-margin windows integer)
(hscroll-margin windows integer "22.1")
(hscroll-step windows number "22.1")
- (truncate-partial-width-windows display boolean)
+ (truncate-partial-width-windows display boolean "23.1")
(mode-line-inverse-video mode-line boolean)
(mode-line-in-non-selected-windows mode-line boolean "22.1")
(line-number-display-limit display
(unibyte-display-via-language-environment mule boolean)
(blink-cursor-alist cursor alist "22.1")
(overline-margin display integer "22.1")
+ (underline-minimum-offset display integer "23.1")
(mouse-autoselect-window
display (choice
(const :tag "Off (nil)" :value nil)
(eq system-type 'ms-dos))
((string-match "\\`w32-" (symbol-name symbol))
(eq system-type 'windows-nt))
- ((string-match "\\`mac-" (symbol-name symbol))
- (featurep 'mac-carbon))
+ ((string-match "\\`ns-" (symbol-name symbol))
+ (featurep 'ns))
((string-match "\\`x-.*gtk" (symbol-name symbol))
(featurep 'gtk))
((string-match "\\`x-" (symbol-name symbol))