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              (load-home-init-file installation boolean)
  64              ;; integer
  65              (auto-save-interval auto-save integer)
  66              (bell-volume sound integer)
  67              (bell-inhibit-time sound integer)
  68              (echo-keystrokes keyboard integer)
  69              (gc-cons-threshold alloc integer)
  70              (next-screen-context-lines display integer)
  71              (scroll-conservatively display integer)
  72              (scroll-step windows integer)
  73              (window-min-height windows integer)
  74              (window-min-width windows integer)
  75              ;; object
  76              (auto-save-file-format auto-save
  77                                     (choice (const :tag "Normal" t)
  78                                             (repeat (symbol :tag "Format"))))
  79              (completion-ignored-extensions minibuffer
  80                                             (repeat
  81                                              (string :format "%v")))
  82              (debug-ignored-errors debug (repeat (choice :format "%v"
  83                                                          (symbol :tag "Class")
  84                                                          regexp)))
  85              (debug-on-error debug  (choice (const :tag "off" nil)
  86                                             (const :tag "Always" t)
  87                                             (repeat :menu-tag "When"
  88                                                     :value (nil)
  89                                                     (symbol
  90                                                      :tag "Condition"))))
  91              (debug-on-signal debug (choice (const :tag "off" nil)
  92                                             (const :tag "Always" t)
  93                                             (repeat :menu-tag "When"
  94                                                     :value (nil)
  95                                                     (symbol
  96                                                      :tag "Condition"))))
  97              (exec-path processes-basics (repeat
  98                                           (choice :tag "Directory"
  99                                                   (const :tag "Default" nil)
 100                                                   (directory :format "%v"))))
 101              (file-name-handler-alist data (repeat
 102                                             (cons regexp
 103                                                   (function :tag "Handler"))))
 104              (shell-file-name execute file)
 105              (stack-trace-on-error debug (choice (const :tag "off" nil)
 106                                             (const :tag "Always" t)
 107                                             (repeat :menu-tag "When"
 108                                                     :value (nil)
 109                                                     (symbol
 110                                                      :tag "Condition"))))
 111              (stack-trace-on-signal debug (choice (const :tag "off" nil)
 112                                             (const :tag "Always" t)
 113                                             (repeat :menu-tag "When"
 114                                                     :value (nil)
 115                                                     (symbol
 116                                                      :tag "Condition"))))
 117              ;; buffer-local
 118              (case-fold-search matching boolean)
 119              (ctl-arrow display (choice (integer 160)
 120                                         (sexp :tag "160 (default)"
 121                                               :format "%t\n")))
 122              (fill-column fill integer)
 123              (left-margin fill integer)
 124              (tab-width editing-basics integer)
 125              (truncate-lines display boolean)
 126              (overwrite-mode editing-basics ;; for the options menu - dverna
 127                              (choice (const :tag "disabled" nil)
 128                                      (const :tag "textual"
 129                                             'overwrite-mode-textual)
 130                                      (const :tag "binary"
 131                                             'overwrite-mode-binary)))
 132              ;; not documented as user-options, but should still be
 133              ;; customizable:
 134              (bar-cursor display (choice (const :tag "Block Cursor" nil)
 135                                          (const :tag "Bar Cursor (1 pixel)" t)
 136                                          (sexp :tag "Bar Cursor (2 pixels)"
 137                                                :format "%t\n" 'other)))
 138              (default-frame-plist frames plist)
 139              (default-tty-frame-plist frames plist)
 140              (default-x-frame-plist frames plist)
 141              (disable-auto-save-when-buffer-shrinks auto-save boolean)
 142              (find-file-use-truenames find-file boolean)
 143              (find-file-compare-truenames find-file boolean)
 144              (focus-follows-mouse x boolean)
 145              (help-char keyboard (choice character
 146                                          (sexp :tag "Single key specifier")))
 147              (max-lisp-eval-depth limits integer)
 148              (max-specpdl-size limits integer)
 149              (meta-prefix-char keyboard character)
 150              (parse-sexp-ignore-comments editing-basics boolean)
 151              (selective-display display
 152                                 (choice (const :tag "off" nil)
 153                                         (integer :tag "space"
 154                                                  :format "%v"
 155                                                  1)
 156                                         (const :tag "on" t)))
 157              (selective-display-ellipses display boolean)
 158              (signal-error-on-buffer-boundary internal boolean)
 159              (temp-buffer-show-function
 160               windows (radio (function-item :tag "Temp Buffers Always in Same Frame"
 161                                             :format "%t\n"
 162                                             show-temp-buffer-in-current-frame)
 163                              (const :tag "Temp Buffers Like Other Buffers" nil)
 164                              (function :tag "Other")))
 165              (undo-threshold undo integer)
 166              (undo-high-threshold undo integer)
 167              (words-include-escapes editing-basics boolean)
 168              ;; These are from replace.el, which is loaded too early
 169              ;; to be customizable.
 170              (case-replace matching boolean)
 171              (query-replace-highlight matching boolean)
 172              (list-matching-lines-default-context-lines matching integer)))
 173       this symbol group type)
 174   (while all
 175     (setq this (car all)
 176           all (cdr all)
 177           symbol (nth 0 this)
 178           group (nth 1 this)
 179           type (nth 2 this))
 180     (if (not (boundp symbol))
 181         ;; This is loaded so early, there is no message
 182         (if (fboundp 'message)
 183             ;; If variables are removed from C code, give an error here!
 184             (message "Intrinsic `%S' not bound" symbol))
 185       ;; This is called before any user can have changed the value.
 186       (put symbol 'standard-value
 187            (list (quote-maybe (default-value symbol))))
 188       ;; Add it to the right group.
 189       (custom-add-to-group group symbol 'custom-variable)
 190       ;; Set the type.
 191       (put symbol 'custom-type type))))
 192
 193 ;; This is to prevent it from being reloaded by `cus-load.el'.
 194 (provide 'cus-start)
 195
 196 ;;; cus-start.el ends here.