diff options
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 63 |
1 files changed, 49 insertions, 14 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index fbba49951d1..c5f7f5b3d31 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -1,7 +1,7 @@ ;;; cus-start.el --- define customization properties of builtins -;; -;; Copyright (C) 1997, 1999-2012 Free Software Foundation, Inc. -;; + +;; Copyright (C) 1997, 1999-2012 Free Software Foundation, Inc. + ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: internal ;; Package: emacs @@ -22,7 +22,7 @@ ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: -;; + ;; This file adds customize support for built-in variables. ;; While dumping Emacs, this file is loaded, but it only records @@ -48,6 +48,7 @@ ;; :tag - custom-tag property (let ((all '(;; alloc.c (gc-cons-threshold alloc integer) + (gc-cons-percentage alloc float) (garbage-collection-messages alloc boolean) ;; buffer.c (mode-line-format mode-line sexp) ;Hard to do right. @@ -132,15 +133,25 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (exec-path execute (repeat (choice (const :tag "default directory" nil) (directory :format "%v")))) + (exec-suffixes execute (repeat string)) ;; charset.c (charset-map-path installation (repeat (directory :format "%v"))) ;; coding.c (inhibit-eol-conversion mule boolean) (eol-mnemonic-undecided mule string) - (eol-mnemonic-unix mule string) - (eol-mnemonic-dos mule string) - (eol-mnemonic-mac mule string) + ;; startup.el fiddles with the values. IMO, would be + ;; simpler to just use #ifdefs in coding.c. + (eol-mnemonic-unix mule string nil + :standard + (if (memq system-type '(ms-dos windows-nt)) + "(Unix)" ":")) + (eol-mnemonic-dos mule string nil + :standard + (if (memq system-type '(ms-dos windows-nt)) + "\\" "(DOS)")) + (eol-mnemonic-mac mule string nil + :standard "(Mac)") (file-coding-system-alist mule (alist @@ -165,6 +176,13 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (inverse-video display boolean) (visible-bell display boolean) (no-redraw-on-reenter display boolean) + + ;; dosfns.c + (dos-display-scancodes display boolean) + (dos-hyper-key keyboard integer) + (dos-super-key keyboard integer) + (dos-keypad-mode keyboard integer) + ;; editfns.c (user-full-name mail string) ;; eval.c @@ -181,10 +199,12 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (const :tag "always" t))) (debug-ignored-errors debug (repeat (choice symbol regexp))) (debug-on-quit debug boolean) - ;; fileio.c - (delete-by-moving-to-trash auto-save boolean "23.1") + (debug-on-signal debug boolean) + ;; fileio.c + (delete-by-moving-to-trash auto-save boolean "23.1") (auto-save-visited-file-name auto-save boolean) ;; filelock.c + (create-lockfiles files boolean "24.2") (temporary-file-directory ;; Darwin section added 24.1, does not seem worth :version bump. files directory nil @@ -218,6 +238,8 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (use-dialog-box menu boolean "21.1") (use-file-dialog menu boolean "22.1") (focus-follows-mouse frames boolean "20.3") + ;; fontset.c + (vertical-centering-font-regexp display regexp) ;; frame.c (default-frame-alist frames (repeat (cons :format "%v" @@ -260,9 +282,6 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (const :tag "only shift-selection or mouse-drag" only) (const :tag "off" nil)) "24.1") - (suggest-key-bindings keyboard (choice (const :tag "off" nil) - (integer :tag "time" 2) - (other :tag "on"))) (debug-on-event debug (choice (const :tag "None" nil) (const :tag "When sent SIGUSR1" sigusr1) @@ -413,6 +432,7 @@ since it could result in memory overflow and make Emacs crash." (hscroll-margin windows integer "22.1") (hscroll-step windows number "22.1") (truncate-partial-width-windows display boolean "23.1") + (make-cursor-line-fully-visible windows boolean) (mode-line-inverse-video mode-line boolean) (mode-line-in-non-selected-windows mode-line boolean "22.1") (line-number-display-limit display @@ -440,13 +460,24 @@ since it could result in memory overflow and make Emacs crash." (const :tag "Both" :value both) (const :tag "Both-horiz" :value both-horiz) (const :tag "Text-image-horiz" :value text-image-horiz) - (const :tag "System default" :value nil)) "23.3") - (tool-bar-max-label-size frames integer "23.3") + (const :tag "System default" :value nil)) "24.1") + (tool-bar-max-label-size frames integer "24.1") (auto-hscroll-mode scrolling boolean "21.1") + (void-text-area-pointer cursor + (choice + (const :tag "Standard (text pointer)" :value nil) + (const :tag "Arrow" :value arrow) + (const :tag "Text pointer" :value text) + (const :tag "Hand" :value hand) + (const :tag "Vertical dragger" :value vdrag) + (const :tag "Horizontal dragger" :value hdrag) + (const :tag "Same as mode line" :value modeline) + (const :tag "Hourglass" :value hourglass))) (display-hourglass cursor boolean) (hourglass-delay cursor number) ;; xfaces.c + (font-list-limit display integer) (scalable-fonts-allowed display boolean "22.1") ;; xfns.c (x-bitmap-file-path installation @@ -518,6 +549,10 @@ since it could result in memory overflow and make Emacs crash." ;; the condition for loadup.el to preload tool-bar.el. ((string-match "tool-bar-" (symbol-name symbol)) (fboundp 'x-create-frame)) + ((equal "vertical-centering-font-regexp" + (symbol-name symbol)) + ;; Any function from fontset.c will do. + (fboundp 'new-fontset)) (t t)))) (if (not (boundp symbol)) ;; If variables are removed from C code, give an error here! |