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) |
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))))) |
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 |
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 |