git.chise.org Git - chise/xemacs-chise.git.1/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: XEmacs Development Team
   7 ;; Keywords: internal, dumped
   8
   9 ;; This file is part of XEmacs.
  10
  11 ;; XEmacs is free software; you can redistribute it and/or modify it
  12 ;; under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; XEmacs is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  24 ;; 02111-1307, USA.
  25
  26 ;;; Synched up with: Not synched with FSF.
  27
  28 ;;; Commentary:
  29
  30 ;; This file is dumped with XEmacs.
  31
  32 ;; The following code is used to define the customization properties
  33 ;; for builtin variables, and variables in the packages that are
  34 ;; preloaded /very/ early, before custom.el itself (replace.el is such
  35 ;; an example).  The way it handles custom stuff is dirty, and should
  36 ;; be regarded as a last resort.  DO NOT add variables here, unless
  37 ;; you know what you are doing.
  38
  39 ;; Must be run before the user has changed the value of any options!
  40
  41 \f
  42 ;;; Code:
  43
  44 (require 'custom)
  45
  46 (let ((all '(;; boolean
  47              (abbrev-all-caps abbrev boolean)
  48              (allow-deletion-of-last-visible-frame frames boolean)
  49              (debug-on-quit debug boolean)
  50              (delete-auto-save-files auto-save boolean)
  51              (delete-exited-processes processes-basics boolean)
  52              (indent-tabs-mode editing-basics boolean)
  53              (load-ignore-elc-files maint boolean)
  54              (load-warn-when-source-newer maint boolean)
  55              (load-warn-when-source-only maint boolean)
  56              (modifier-keys-are-sticky keyboard boolean)
  57              (no-redraw-on-reenter display boolean)
  58              (scroll-on-clipped-lines display boolean)
  59              (truncate-partial-width-windows display boolean)
  60              (visible-bell sound boolean)
  61              (x-allow-sendevents x boolean)
  62              (zmacs-regions editing-basics boolean)
  63              ;; integer
  64              (auto-save-interval auto-save integer)
  65              (bell-volume sound integer)
  66              (bell-inhibit-time sound integer)
  67              (echo-keystrokes keyboard integer)
  68              (gc-cons-threshold alloc integer)
  69              (next-screen-context-lines display integer)
  70              (scroll-conservatively display integer)
  71              (scroll-step windows integer)
  72              (window-min-height windows integer)
  73              (window-min-width windows integer)
  74              ;; object
  75              (auto-save-file-format auto-save
  76                                     (choice (const :tag "Normal" t)
  77                                             (repeat (symbol :tag "Format"))))
  78              (completion-ignored-extensions minibuffer
  79                                             (repeat
  80                                              (string :format "%v")))
  81              (debug-ignored-errors debug (repeat (choice :format "%v"
  82                                                          (symbol :tag "Class")
  83                                                          regexp)))
  84              (debug-on-error debug  (choice (const :tag "off" nil)
  85                                             (const :tag "Always" t)
  86                                             (repeat :menu-tag "When"
  87                                                     :value (nil)
  88                                                     (symbol
  89                                                      :tag "Condition"))))
  90              (debug-on-signal debug (choice (const :tag "off" nil)
  91                                             (const :tag "Always" t)
  92                                             (repeat :menu-tag "When"
  93                                                     :value (nil)
  94                                                     (symbol
  95                                                      :tag "Condition"))))
  96              (exec-path processes-basics (repeat
  97                                           (choice :tag "Directory"
  98                                                   (const :tag "Default" nil)
  99                                                   (directory :format "%v"))))
 100              (file-name-handler-alist data (repeat
 101                                             (cons regexp
 102                                                   (function :tag "Handler"))))
 103              (shell-file-name execute file)
 104              (stack-trace-on-error debug (choice (const :tag "off" nil)
 105                                             (const :tag "Always" t)
 106                                             (repeat :menu-tag "When"
 107                                                     :value (nil)
 108                                                     (symbol
 109                                                      :tag "Condition"))))
 110              (stack-trace-on-signal debug (choice (const :tag "off" nil)
 111                                             (const :tag "Always" t)
 112                                             (repeat :menu-tag "When"
 113                                                     :value (nil)
 114                                                     (symbol
 115                                                      :tag "Condition"))))
 116              ;; buffer-local
 117              (case-fold-search matching boolean)
 118              (ctl-arrow display (choice (integer 160)
 119                                         (sexp :tag "160 (default)"
 120                                               :format "%t\n")))
 121              (fill-column fill integer)
 122              (left-margin fill integer)
 123              (tab-width editing-basics integer)
 124              (truncate-lines display boolean)
 125              (overwrite-mode editing-basics ;; for the options menu - dverna
 126                              (choice (const :tag "disabled" nil)
 127                                      (const :tag "textual"
 128                                             'overwrite-mode-textual)
 129                                      (const :tag "binary"
 130                                             'overwrite-mode-binary)))
 131              ;; not documented as user-options, but should still be
 132              ;; customizable:
 133              (bar-cursor display (choice (const :tag "Block Cursor" nil)
 134                                          (const :tag "Bar Cursor (1 pixel)" t)
 135                                          (sexp :tag "Bar Cursor (2 pixels)"
 136                                                :format "%t\n" 'other)))
 137              (default-frame-plist frames plist)
 138              (default-tty-frame-plist frames plist)
 139              (default-x-frame-plist frames plist)
 140              (disable-auto-save-when-buffer-shrinks auto-save boolean)
 141              (find-file-use-truenames find-file boolean)
 142              (find-file-compare-truenames find-file boolean)
 143              (focus-follows-mouse x boolean)
 144              (help-char keyboard (choice character
 145                                          (sexp :tag "Single key specifier")))
 146              (max-lisp-eval-depth limits integer)
 147              (max-specpdl-size limits integer)
 148              (meta-prefix-char keyboard character)
 149              (parse-sexp-ignore-comments editing-basics boolean)
 150              (selective-display display
 151                                 (choice (const :tag "off" nil)
 152                                         (integer :tag "space"
 153                                                  :format "%v"
 154                                                  1)
 155                                         (const :tag "on" t)))
 156              (selective-display-ellipses display boolean)
 157              (signal-error-on-buffer-boundary internal boolean)
 158              (temp-buffer-show-function
 159               windows (radio (function-item :tag "Temp Buffers Always in Same Frame"
 160                                             :format "%t\n"
 161                                             show-temp-buffer-in-current-frame)
 162                              (const :tag "Temp Buffers Like Other Buffers" nil)
 163                              (function :tag "Other")))
 164              (undo-threshold undo integer)
 165              (undo-high-threshold undo integer)
 166              (words-include-escapes editing-basics boolean)
 167              ;; These are from replace.el, which is loaded too early
 168              ;; to be customizable.
 169              (case-replace matching boolean)
 170              (query-replace-highlight matching boolean)
 171              (list-matching-lines-default-context-lines matching integer)))
 172       this symbol group type)
 173   (while all
 174     (setq this (car all)
 175           all (cdr all)
 176           symbol (nth 0 this)
 177           group (nth 1 this)
 178           type (nth 2 this))
 179     (if (not (boundp symbol))
 180         ;; This is loaded so early, there is no message
 181         (if (fboundp 'message)
 182             ;; If variables are removed from C code, give an error here!
 183             (message "Intrinsic `%S' not bound" symbol))
 184       ;; This is called before any user can have changed the value.
 185       (put symbol 'standard-value
 186            (list (quote-maybe (default-value symbol))))
 187       ;; Add it to the right group.
 188       (custom-add-to-group group symbol 'custom-variable)
 189       ;; Set the type.
 190       (put symbol 'custom-type type))))
 191
 192 ;; This is to prevent it from being reloaded by `cus-load.el'.
 193 (provide 'cus-start)
 194
 195 ;;; cus-start.el ends here.