Initial revision

1 files changed, 198 insertions, 0 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
new file mode 100644
index 00000000000..0865ecd8130
--- /dev/null
+++ b/lisp/cus-start.el
@@ -0,0 +1,198 @@
+;;; cus-start.el --- define customization properties of builtins.
+;;
+;; Copyright (C) 1997 Free Software Foundation, Inc.
+;;
+;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
+;; Keywords: internal
+
+;;; Commentary:
+;;
+;; Must be run before the user has changed the value of any options!
+
+;;; Code:
+
+(defun custom-start-quote (sexp)
+  ;; This is copied from `cus-edit.el'.
+  "Quote SEXP iff it is not self quoting."
+  (if (or (memq sexp '(t nil))
+          (and (symbolp sexp)
+               (eq (aref (symbol-name sexp) 0) ?:))
+          (and (listp sexp)
+               (memq (car sexp) '(lambda)))
+          (stringp sexp)
+          (numberp sexp)
+          (and (fboundp 'characterp)
+               (characterp sexp)))
+      sexp
+    (list 'quote sexp)))
+
+(let ((all '(;; abbrev.c 
+             (abbrev-all-caps abbrev-mode boolean)
+             (pre-abbrev-expand-hook abbrev-mode hook)
+             ;; alloc.c
+             (gc-cons-threshold alloc integer)
+             (undo-limit undo integer)
+             (undo-strong-limit undo integer)
+             (garbage-collection-messages alloc boolean)
+             ;; buffer.c
+             (mode-line-format modeline sexp) ;Hard to do right.
+             (default-major-mode internal function)
+             (case-fold-search matching boolean)
+             (fill-column fill integer)
+             (left-margin fill integer)
+             (tab-width editing-basics integer)
+             (ctl-arrow display boolean)
+             (truncate-lines display boolean)
+             (selective-display display 
+                                (choice (const :tag "off" nil)
+                                        (integer :tag "space"
+                                                 :format "%v"
+                                                 1)
+                                        (const :tag "on" t)))
+             (selective-display-ellipses display boolean)
+             (transient-mark-mode editing-basics boolean)
+             ;; callint.c
+             (mark-even-if-inactive editing-basics boolean)
+             ;; callproc.c
+             (shell-file-name execute file)
+             (exec-path execute
+                        (repeat (choice (const :tag "default" nil)
+                                        (file :format "%v"))))
+             ;; dired.c
+             (completion-ignored-extensions dired 
+                                            (repeat (string :format "%v")))
+             ;; dispnew.el
+             (baud-rate display integer)
+             (inverse-video display boolean)
+             (visible-bell display boolean)
+             (no-redraw-on-reenter display boolean)
+             ;; editfns.c
+             (user-full-name mail string)
+             ;; eval.c
+             (max-specpdl-size limits integer)
+             (max-lisp-eval-depth limits integer)
+             (stack-trace-on-error debug
+                                   (choice (const :tag "off")
+                                           (repeat :menu-tag "When"
+                                                   :value (nil)
+                                                   (symbol :format "%v"))
+                                           (const :tag "always" t)))
+             (debug-on-error debug 
+                             (choice (const :tag "off")
+                                     (repeat :menu-tag "When"
+                                             :value (nil)
+                                             (symbol :format "%v"))
+                                     (const :tag "always" t)))
+             (debug-ignored-errors debug (repeat (choice symbol regexp)))
+             (debug-on-quit debug choice)
+             ;; fileio.c
+             (insert-default-directory minibuffer boolean)
+             ;; frame.c
+             (default-frame-alist frames
+               (repeat (cons :format "%v"
+                             (symbol :tag "Parameter")
+                             (sexp :tag "Value"))))
+             ;; indent.c
+             (indent-tabs-mode fill boolean)
+             ;; keyboard.c
+             (meta-prefix-char keyboard character)
+             (auto-save-interval auto-save integer)
+             (auto-save-timeout auto-save (choice (const :tag "off" nil)
+                                                  (integer :format "%v")))
+             (echo-keystrokes minibuffer boolean)
+             (polling-period keyboard integer)
+             (double-click-time mouse integer)
+             (inhibit-local-menu-bar-menus menu boolean)
+             (help-char keyboard character)
+             (help-event-list keyboard (repeat (sexp :format "%v")))
+             (menu-prompting menu boolean)
+             (track-mouse mouse boolean)
+             (suggest-key-bindings keyboard (choice (const :tag "off" nil)
+                                                    (integer :tag "time" 2)
+                                                    (sexp :tag "on"
+                                                          :format "%t")))
+             ;; lread.c
+             (load-path environment 
+                        (repeat (choice :tag "Directory"
+                                        (const :tag "default" nil)
+                                        (directory :format "%v"))))
+             ;; minibuf.c
+             (completion-auto-help minibuffer boolean)
+             (enable-recursive-minibuffers minibuffer boolean)
+             (minibuffer-auto-raise minibuffer boolean)
+             ;; process.c
+             (delete-exited-processes proces-basics boolean)
+             ;; syntax.c
+             (parse-sexp-ignore-comments editing-basics boolean)
+             (words-include-escapes editing-basics boolean)
+             ;; window.c
+             (temp-buffer-show-function windows function)
+             (display-buffer-function windows function)
+             (pop-up-frames frames boolean)
+             (pop-up-frame-function frames function)
+             (special-display-buffer-names 
+              frames 
+              (repeat (choice :tag "Buffer"
+                              :value ""
+                              (string :format "%v")
+                              (cons :tag "With attributes"
+                                    :format "%v"
+                                    :value ("" . nil)
+                                    (string :format "%v")
+                                    (repeat :tag "Attributes"
+                                            (cons :format "%v"
+                                                  (symbol :tag "Parameter")
+                                                  (sexp :tag "Value")))))))
+             (special-display-regexps
+              frames 
+              (repeat (choice :tag "Buffer"
+                              :value ""
+                              (regexp :format "%v")
+                              (cons :tag "With attributes"
+                                    :format "%v"
+                                    :value ("" . nil)
+                                    (regexp :format "%v")
+                                    (repeat :tag "Attributes"
+                                            (cons :format "%v"
+                                                  (symbol :tag "Parameter")
+                                                  (sexp :tag "Value")))))))
+             (special-display-function frames function)
+             (same-window-buffer-names windows (repeat (string :format "%v")))
+             (same-window-regexps windows (repeat (regexp :format "%v")))
+             (pop-up-windows windows boolean)
+             (next-screen-context-lines windows boolean)
+             (split-height-threshold windows integer)
+             (window-min-height windows integer)
+             (window-min-width windows integer)
+             ;; xdisp.c
+             (scroll-step windows integer)
+             (truncate-partial-width-windows display boolean)
+             (mode-line-inverse-video modeline boolean)
+             (line-number-display-limit display integer)
+             (highlight-nonselected-windows display boolean)
+             (message-log-max debug (choice (const :tag "Disable" nil)
+                                            (integer :menu-tag "lines"
+                                                     :format "%v")
+                                            (const :tag "Unlimited" t)))
+             ;; xfns.c
+             (x-bitmap-file-path installation
+                                 (repeat (directory :format "%v")))))
+      this symbol group type)
+  (while all 
+    (setq this (car all)
+          all (cdr all)
+          symbol (nth 0 this)
+          group (nth 1 this)
+          type (nth 2 this))
+    (if (not (boundp symbol))
+        ;; If variables are removed from C code, give an error here!
+        (message "Intrinsic `%S' not bound" symbol)
+      ;; This is called before any user can have changed the value.
+      (put symbol 'factory-value 
+           (list (custom-start-quote (default-value symbol))))
+      ;; Add it to the right group.
+      (custom-add-to-group group symbol 'custom-variable)
+      ;; Set the type.
+      (put symbol 'custom-type type))))
+
+;;; cus-start.el ends here.