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