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                                                     (symbol
 114                                                      :tag "Condition"))))
 115              (modifier-keys-sticky-time keyboard
 116                                         (choice (integer :tag "Milliseconds")
 117                                                 (const :tag "Unbounded" 'unbounded)))
 118              ;; buffer-local
 119              (case-fold-search matching boolean)
 120              (ctl-arrow display (choice (integer 160)
 121                                         (sexp :tag "160 (default)"
 122                                               :format "%t\n")))
 123              (fill-column fill integer)
 124              (left-margin fill integer)
 125              (tab-width editing-basics integer)
 126              (truncate-lines display boolean)
 127              (overwrite-mode editing-basics ;; for the options menu - dverna
 128                              (choice (const :tag "disabled" nil)
 129                                      (const :tag "textual"
 130                                             'overwrite-mode-textual)
 131                                      (const :tag "binary"
 132                                             'overwrite-mode-binary)))
 133              ;; not documented as user-options, but should still be
 134              ;; customizable:
 135              (bar-cursor display (choice (const :tag "Block Cursor" nil)
 136                                          (const :tag "Bar Cursor (1 pixel)" t)
 137                                          (sexp :tag "Bar Cursor (2 pixels)"
 138                                                :format "%t\n" 'other)))
 139              (default-frame-plist frames plist)
 140              (default-tty-frame-plist frames plist)
 141              (default-x-frame-plist frames plist)
 142              (disable-auto-save-when-buffer-shrinks auto-save boolean)
 143              (find-file-use-truenames find-file boolean)
 144              (find-file-compare-truenames find-file boolean)
 145              (focus-follows-mouse x boolean)
 146              (help-char keyboard (choice character
 147                                          (sexp :tag "Single key specifier")))
 148              (max-lisp-eval-depth limits integer)
 149              (max-specpdl-size limits integer)
 150              (meta-prefix-char keyboard character)
 151              (parse-sexp-ignore-comments editing-basics boolean)
 152              (selective-display display
 153                                 (choice (const :tag "off" nil)
 154                                         (integer :tag "space"
 155                                                  :format "%v"
 156                                                  1)
 157                                         (const :tag "on" t)))
 158              (selective-display-ellipses display boolean)
 159              (signal-error-on-buffer-boundary internal boolean)
 160              (temp-buffer-show-function
 161               windows (radio (function-item :tag "Temp Buffers Always in Same Frame"
 162                                             :format "%t\n"
 163                                             show-temp-buffer-in-current-frame)
 164                              (const :tag "Temp Buffers Like Other Buffers" nil)
 165                              (function :tag "Other")))
 166              (undo-threshold undo integer)
 167              (undo-high-threshold undo integer)
 168              (words-include-escapes editing-basics boolean)
 169              ;; These are from replace.el, which is loaded too early
 170              ;; to be customizable.
 171              (case-replace matching boolean)
 172              (query-replace-highlight matching boolean)
 173              (list-matching-lines-default-context-lines matching integer)))
 174       this symbol group type)
 175   (while all
 176     (setq this (car all)
 177           all (cdr all)
 178           symbol (nth 0 this)
 179           group (nth 1 this)
 180           type (nth 2 this))
 181     (if (not (boundp symbol))
 182         ;; This is loaded so early, there is no message
 183         (if (fboundp 'message)
 184             ;; If variables are removed from C code, give an error here!
 185             (message "Intrinsic `%S' not bound" symbol))
 186       ;; This is called before any user can have changed the value.
 187       (put symbol 'standard-value
 188            (list (quote-maybe (default-value symbol))))
 189       ;; Add it to the right group.
 190       (custom-add-to-group group symbol 'custom-variable)
 191       ;; Set the type.
 192       (put symbol 'custom-type type))))
 193
 194 ;; This is to prevent it from being reloaded by `cus-load.el'.
 195 (provide 'cus-start)
 196
 197 ;;; cus-start.el ends here.