/[emacs]/emacs/lisp/cus-start.el
ViewVC logotype

Diff of /emacs/lisp/cus-start.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64 by kfstorm, Wed Feb 9 15:50:43 2005 UTC revision 1.65 by rms, Mon Feb 14 09:49:38 2005 UTC
# Line 288  since it could result in memory overflow Line 288  since it could result in memory overflow
288               (mouse-autoselect-window display boolean "21.3")               (mouse-autoselect-window display boolean "21.3")
289               (x-use-underline-position-properties display boolean "21.3")               (x-use-underline-position-properties display boolean "21.3")
290               (x-stretch-cursor display boolean "21.1")))               (x-stretch-cursor display boolean "21.1")))
291        this symbol group type native-p version        this symbol group type standard version native-p
292        ;; This function turns a value        ;; This function turns a value
293        ;; into an expression which produces that value.        ;; into an expression which produces that value.
294        (quoter (lambda (sexp)        (quoter (lambda (sexp)
# Line 297  since it could result in memory overflow Line 297  since it could result in memory overflow
297                          (and (listp sexp)                          (and (listp sexp)
298                               (memq (car sexp) '(lambda)))                               (memq (car sexp) '(lambda)))
299                          (stringp sexp)                          (stringp sexp)
 ;;                      (and (fboundp 'characterp)  
 ;;                           (characterp sexp))  
300                          (numberp sexp))                          (numberp sexp))
301                      sexp                      sexp
302                    (list 'quote sexp)))))                    (list 'quote sexp)))))
# Line 309  since it could result in memory overflow Line 307  since it could result in memory overflow
307            group (nth 1 this)            group (nth 1 this)
308            type (nth 2 this)            type (nth 2 this)
309            version (nth 3 this)            version (nth 3 this)
310              ;; If we did not specify any standard value expression above,
311              ;; use the current value as the standard value.
312              standard (if (nthcdr 4 this)
313                           (nth 4 this)
314                         (funcall quoter (default-value symbol)))
315            ;; Don't complain about missing variables which are            ;; Don't complain about missing variables which are
316            ;; irrelevant to this platform.            ;; irrelevant to this platform.
317            native-p (save-match-data            native-p (save-match-data
# Line 326  since it could result in memory overflow Line 329  since it could result in memory overflow
329               (message "Note, built-in variable `%S' not bound" symbol))               (message "Note, built-in variable `%S' not bound" symbol))
330        ;; Save the standard value, unless we already did.        ;; Save the standard value, unless we already did.
331        (or (get symbol 'standard-value)        (or (get symbol 'standard-value)
332            (put symbol 'standard-value            (put symbol 'standard-value (list standard)))
                (list (funcall quoter (default-value symbol)))))  
333        ;; If this is NOT while dumping Emacs,        ;; If this is NOT while dumping Emacs,
334        ;; set up the rest of the customization info.        ;; set up the rest of the customization info.
335        (unless purify-flag        (unless purify-flag

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26