Arrange to load it once during dumping,

and again if needed by cus-edit.el.
(custom-start-quote): Don't define as separate function.
(load-path): Improve the :type.
(delete-exited-processes): Fix group to processes-basics.

1 files changed, 45 insertions, 30 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index ac339793029..c94e1550520 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -24,26 +24,16 @@
 
 ;;; Commentary:
 ;;
-;; Must be run before the user has changed the value of any options!
+;; This file adds customize support for built-in variables.
 
-;;; Code:
+;; While dumping Emacs, this file is loaded, but it only records
+;; the standard values; it does not do the rest of the job.
+;; Later on, if the user makes a customization buffer,
+;; this file is loaded again with (require 'cus-start);
+;; then it does the whole job.
 
-(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)))
+;;; Code:
 
-;; Add support for build in variables.
 (let ((all '(;; abbrev.c 
              (abbrev-all-caps abbrev-mode boolean)
              (pre-abbrev-expand-hook abbrev-mode hook)
@@ -131,15 +121,15 @@
                                                           :format "%t")))
              ;; lread.c
              (load-path environment 
-                        (repeat (choice :tag "Current or Specific Dir"
-                                        (const :tag "use current" nil)
-                                        (directory :tag "Specific"))))
+                        (repeat (choice :tag "[Current dir?]"
+                                        (const :tag " current dir" 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)
+             (delete-exited-processes processes-basics boolean)
              ;; syntax.c
              (parse-sexp-ignore-comments editing-basics boolean)
              (words-include-escapes editing-basics boolean)
@@ -195,7 +185,21 @@
              ;; xfns.c
              (x-bitmap-file-path installation
                                  (repeat (directory :format "%v")))))
-      this symbol group type)
+      this symbol group type
+      ;; This function turns a value
+      ;; into an expression which produces that value.
+      (quoter (lambda (sexp)
+                (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)))))
   (while all 
     (setq this (car all)
           all (cdr all)
@@ -204,13 +208,24 @@
           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))))
+        (message "Built-in variable `%S' not bound" symbol)
+      ;; Save the standard value, unless we already did.
+      (or (get symbol 'standard-value)
+          (put symbol 'standard-value 
+               (list (funcall quoter (default-value symbol)))))
+      ;; If this is NOT while dumping Emacs,
+      ;; set up the rest of the customization info.
+      (unless purify-flag
+        ;; Add it to the right group.
+        (custom-add-to-group group symbol 'custom-variable)
+        ;; Set the type.
+        (put symbol 'custom-type type)))))
+
+;; Record cus-start as loaded
+;; if we have set up all the info that we can set up.
+;; Don't record cus-start as loaded
+;; if we have set up only the standard values.
+(unless purify-flag
+  (provide 'cus-start))
 
 ;;; cus-start.el ends here.