cgit.sxemacs.org Git - sxemacs/blob - lisp/cus-start.el

   1 ;;; cus-start.el --- define customization properties of builtins.
   2
   3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
   4
   5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
   6 ;; Maintainer: SXEmacs Development Team
   7 ;; Keywords: internal, dumped
   8
   9 ;; This file is part of SXEmacs.
  10
  11 ;; SXEmacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; SXEmacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Synched up with: Not synched with FSF.
  25
  26 ;;; Commentary:
  27
  28 ;; This file is dumped with SXEmacs.
  29
  30 ;; The following code is used to define the customization properties
  31 ;; for builtin variables, and variables in the packages that are
  32 ;; preloaded /very/ early, before custom.el itself (replace.el is such
  33 ;; an example).  The way it handles custom stuff is dirty, and should
  34 ;; be regarded as a last resort.  DO NOT add variables here, unless
  35 ;; you know what you are doing.
  36
  37 ;; Must be run before the user has changed the value of any options!
  38
  39 \f
  40 ;;; Code:
  41
  42 (require 'custom)
  43
  44 (let ((all '(;; boolean
  45              (abbrev-all-caps abbrev boolean)
  46              (allow-deletion-of-last-visible-frame frames boolean)
  47              (debug-on-quit debug boolean)
  48              (delete-auto-save-files auto-save boolean)
  49              (delete-exited-processes processes-basics boolean)
  50              (indent-tabs-mode editing-basics boolean)
  51              (load-ignore-elc-files maint boolean)
  52              (load-warn-when-source-newer maint boolean)
  53              (load-warn-when-source-only maint boolean)
  54              (modifier-keys-are-sticky keyboard boolean)
  55              (no-redraw-on-reenter display boolean)
  56              (scroll-on-clipped-lines display boolean)
  57              (truncate-partial-width-windows display boolean)
  58              (visible-bell sound boolean)
  59              (x-allow-sendevents x boolean)
  60              (zmacs-regions editing-basics boolean)
  61              (load-home-init-file installation boolean)
  62              ;; integer
  63              (auto-save-interval auto-save integer)
  64              (bell-volume sound integer)
  65              (bell-inhibit-time sound integer)
  66              (echo-keystrokes keyboard integer)
  67              (gc-cons-threshold alloc integer)
  68              (next-screen-context-lines display integer)
  69              (scroll-conservatively display integer)
  70              (scroll-step windows integer)
  71              (window-min-height windows integer)
  72              (window-min-width windows integer)
  73              ;; object
  74              (auto-save-file-format auto-save
  75                                     (choice (const :tag "Normal" t)
  76                                             (repeat (symbol :tag "Format"))))
  77              (completion-ignored-extensions minibuffer
  78                                             (repeat
  79                                              (string :format "%v")))
  80              (debug-ignored-errors debug (repeat (choice :format "%v"
  81                                                          (symbol :tag "Class")
  82                                                          regexp)))
  83              (debug-on-error debug  (choice (const :tag "off" nil)
  84                                             (const :tag "Always" t)
  85                                             (repeat :menu-tag "When"
  86                                                     :value (nil)
  87                                                     (symbol
  88                                                      :tag "Condition"))))
  89              (debug-on-signal debug (choice (const :tag "off" nil)
  90                                             (const :tag "Always" t)
  91                                             (repeat :menu-tag "When"
  92                                                     :value (nil)
  93                                                     (symbol
  94                                                      :tag "Condition"))))
  95              (exec-path processes-basics (repeat
  96                                           (choice :tag "Directory"
  97                                                   (const :tag "Default" nil)
  98                                                   (directory :format "%v"))))
  99              (file-name-handler-alist data (repeat
 100                                             (cons regexp
 101                                                   (function :tag "Handler"))))
 102              (shell-file-name execute file)
 103              (stack-trace-on-error debug (choice (const :tag "off" nil)
 104                                             (const :tag "Always" t)
 105                                             (repeat :menu-tag "When"
 106                                                     :value (nil)
 107                                                     (symbol
 108                                                      :tag "Condition"))))
 109              (stack-trace-on-signal debug (choice (const :tag "off" nil)
 110                                             (const :tag "Always" t)
 111                                             (repeat :menu-tag "When"
 112                                                     :value (nil)
 113                                             &n