Lines Matching +defs:history +defs:symbol
37 ;; The identity of a customize option is represented by a Lisp symbol.
45 ;; different means if the option symbol has the 'custom-get'
521 (default (and (symbolp v) (custom-variable-p v) (symbol-name v)))
565 (defun custom-unlispify-menu-entry (symbol &optional no-suffix)
568 (symbol-name symbol))
569 ((get symbol 'custom-tag)
571 (get symbol 'custom-tag)
572 (concat (get symbol 'custom-tag) "...")))
576 (princ symbol (current-buffer))
580 ;; (when (and (eq (get symbol 'custom-type) 'boolean)
606 (defun custom-unlispify-tag-name (symbol)
609 (custom-unlispify-menu-entry symbol t)))
611 (defun custom-prefix-add (symbol prefixes)
613 (cons (or (get symbol 'custom-prefix)
614 (concat (symbol-name symbol) "-"))
631 MATCH should be a regexp matching the name of a symbol, and TYPE should
632 be a widget suitable for editing the value of that symbol. The TYPE
633 of the first entry where MATCH matches the name of the symbol will be
648 matches the name of the symbol will be used.
655 (defun custom-guess-type (symbol)
659 (let ((name (symbol-name symbol))
669 (let ((doc (documentation-property symbol 'variable-documentation))
903 (symbol-value var))
951 (custom-load-symbol variable)
1021 t nil nil (if group (symbol-name major-mode))))))))
1032 (lambda (symbol)
1033 (or (and (get symbol 'custom-loads)
1034 (not (get symbol 'custom-autoload)))
1035 (get symbol 'custom-group)))
1057 (lambda (symbol)
1058 (or (and (get symbol 'custom-loads)
1059 (not (get symbol 'custom-autoload)))
1060 (get symbol 'custom-group)))
1085 (defun customize-option (symbol)
1088 (unless symbol
1090 (let ((basevar (indirect-variable symbol)))
1094 (unless (eq symbol basevar)
1095 (message "`%s' is an alias for `%s'" symbol basevar))))
1101 (defun customize-option-other-window (symbol)
1105 (unless symbol
1107 (let ((basevar (indirect-variable symbol)))
1111 (unless (eq symbol basevar)
1112 (message "`%s' is an alias for `%s'" symbol basevar))))
1128 Here PACKAGE is the name of a package, as a symbol. After
1178 ;; custom-load-symbol for this.
1184 (custom-load-symbol 'custom-versions-load-alist)
1189 (lambda (symbol)
1190 (let* ((package-version (get symbol 'custom-package-version))
1193 (customize-package-emacs-version symbol
1195 (get symbol 'custom-version))))
1198 (if (or (get symbol 'custom-group)
1199 (get symbol 'group-documentation))
1200 (push (list symbol 'custom-group) found))
1201 (if (custom-variable-p symbol)
1202 (push (list symbol 'custom-variable) found))
1203 (if (custom-facep symbol)
1204 (push (list symbol 'custom-face) found)))))))
1211 (defun customize-package-emacs-version (symbol package-version)
1221 (message "Invalid package-version value for %s" symbol))
1227 (message "%s version %s not found in %s" symbol
1326 (mapatoms (lambda (symbol)
1327 (and (or (get symbol 'customized-face)
1328 (get symbol 'customized-face-comment))
1329 (custom-facep symbol)
1330 (push (list symbol 'custom-face) found))
1331 (and (or (get symbol 'customized-value)
1332 (get symbol 'customized-variable-comment))
1333 (boundp symbol)
1334 (push (list symbol 'custom-variable) found))))
1345 (mapatoms (lambda (symbol)
1346 (let ((cval (or (get symbol 'customized-value)
1347 (get symbol 'saved-value)
1348 (get symbol 'standard-value))))
1350 (default-boundp symbol) ;Has a value.
1353 (default-value symbol))))
1354 (push (list symbol 'custom-variable) found)))))
1364 (mapatoms (lambda (symbol)
1365 (and (or (get symbol 'saved-face)
1366 (get symbol 'saved-face-comment))
1367 (custom-facep symbol)
1368 (push (list symbol 'custom-face) found))
1369 (and (or (get symbol 'saved-value)
1370 (get symbol 'saved-variable-comment))
1371 (boundp symbol)
1372 (push (list symbol 'custom-variable) found))))
1389 (mapatoms (lambda (symbol)
1390 (when (string-match regexp (symbol-name symbol))
1392 (get symbol 'custom-group))
1393 (push (list symbol 'custom-group) found))
1395 (custom-facep symbol))
1396 (push (list symbol 'custom-face) found))
1398 (boundp symbol)
1399 (eq (indirect-variable symbol) symbol)
1400 (or (get symbol 'saved-value)
1401 (custom-variable-p symbol)
1403 (get symbol 'variable-documentation))))
1404 (push (list symbol 'custom-variable) found)))))
1435 The value should be a symbol, one of:
2019 (symbol-name category)
2043 (insert (symbol-name state)))
2242 (custom-load-symbol (widget-value widget)))
2244 (defun custom-unloaded-symbol-p (symbol)
2247 (loads (get symbol 'custom-loads))
2255 ((assoc load load-history))
2256 ((assoc (locate-library load) load-history)
2264 (custom-unloaded-symbol-p (widget-value widget)))
2287 (let* ((symbol (widget-get widget :value))
2288 (links (get symbol 'custom-links))
2326 (mapatoms (lambda (symbol)
2327 (when (member (list name type) (get symbol 'custom-group))
2331 :tag (custom-unlispify-tag-name symbol)
2332 symbol)
2334 (setq parents (cons symbol parents)))))
2500 (defun custom-variable-type (symbol)
2503 Otherwise, look up symbol in `custom-guess-type-alist'."
2504 (let* ((type (or (get symbol 'custom-type)
2505 (and (not (get symbol 'standard-value))
2506 (custom-guess-type symbol))
2508 (options (get symbol 'custom-options))
2525 (symbol (widget-get widget :value))
2527 (type (custom-variable-type symbol))
2529 (get (or (get symbol 'custom-get) 'default-value))
2532 (value (if (default-boundp symbol)
2533 (funcall get symbol)
2572 (let* ((value (cond ((get symbol 'saved-value)
2573 (car (get symbol 'saved-value)))
2574 ((get symbol 'standard-value)
2575 (car (get symbol 'standard-value)))
2576 ((default-boundp symbol)
2577 (custom-quote (funcall get symbol)))
2580 (insert (symbol-name symbol) ": ")
2594 :tag (symbol-name symbol)
2650 (let* ((comment (get symbol 'variable-comment))
2685 (let* ((symbol (widget-value widget))
2686 (get (or (get symbol 'custom-get) 'default-value))
2687 (value (if (default-boundp symbol)
2688 (funcall get symbol)
2690 (comment (get symbol 'variable-comment))
2693 (state (cond ((progn (setq tmp (get symbol 'customized-value))
2695 (get symbol 'customized-variable-comment))
2703 ((progn (setq tmp (get symbol 'theme-value))
2704 (setq temp (get symbol 'saved-variable-comment))
2711 symbol)))))
2720 (car (get symbol 'standard-value)))))
2729 ((setq tmp (get symbol 'standard-value))
2821 (symbol (widget-value widget))
2822 (set (or (get symbol 'custom-set) 'set-default))
2837 (custom-push-theme 'theme-value symbol 'user
2839 (funcall set symbol (eval (setq val (widget-value child))))
2840 (put symbol 'customized-value (list val))
2841 (put symbol 'variable-comment comment)
2842 (put symbol 'customized-variable-comment comment))
2849 (custom-push-theme 'theme-value symbol 'user
2851 (funcall set symbol (setq val (widget-value child)))
2852 (put symbol 'customized-value (list (custom-quote val)))
2853 (put symbol 'variable-comment comment)
2854 (put symbol 'customized-variable-comment comment)))
2863 (symbol (widget-value widget))
2864 (set (or (get symbol 'custom-set) 'set-default))
2872 (error "Saving %s: %s" symbol (widget-get val :error)))
2878 (put symbol 'saved-value (list (widget-value child)))
2879 (custom-push-theme 'theme-value symbol 'user
2881 (funcall set symbol (eval (widget-value child)))
2882 (put symbol 'variable-comment comment)
2883 (put symbol 'saved-variable-comment comment))
2889 (put symbol 'saved-value
2891 (custom-push-theme 'theme-value symbol 'user
2893 (funcall set symbol (widget-value child))
2894 (put symbol 'variable-comment comment)
2895 (put symbol 'saved-variable-comment comment)))
2896 (put symbol 'customized-value nil)
2897 (put symbol 'customized-variable-comment nil)
2907 (let* ((symbol (widget-value widget))
2908 (set (or (get symbol 'custom-set) 'set-default))
2909 (value (get symbol 'saved-value))
2910 (comment (get symbol 'saved-variable-comment)))
2912 (put symbol 'variable-comment comment)
2914 (custom-push-theme 'theme-value symbol 'user 'set (car-safe value))
2916 (funcall set symbol (eval (car value)))
2919 (error "No saved value for %s" symbol)))
2920 (put symbol 'customized-value nil)
2921 (put symbol 'customized-variable-comment nil)
2932 (let* ((symbol (widget-value widget)))
2933 (if (get symbol 'standard-value)
2935 (error "No standard setting known for %S" symbol))
2936 (put symbol 'variable-comment nil)
2937 (put symbol 'customized-value nil)
2938 (put symbol 'customized-variable-comment nil)
2939 (custom-push-theme 'theme-value symbol 'user 'reset)
2940 (custom-theme-recalc-variable symbol)
2941 (when (or (get symbol 'saved-value) (get symbol 'saved-variable-comment))
2942 (put symbol 'saved-value nil)
2943 (put symbol 'saved-variable-comment nil)
2952 (let* ((symbol (widget-value widget))
2953 (get (or (get symbol 'custom-get) 'default-value))
2954 (type (custom-variable-type symbol))
2956 (value (if (default-boundp symbol)
2957 (funcall get symbol)
2959 (put symbol 'backup-value (list value))))
2966 (let* ((symbol (widget-value widget))
2967 (set (or (get symbol 'custom-set) 'set-default))
2968 (value (get symbol 'backup-value))
2974 (custom-push-theme 'theme-value symbol 'user 'set value)
2976 (funcall set symbol (car value))
2978 (error "No backup value for %s" symbol))
2979 (put symbol 'customized-value (list (car value)))
2980 (put symbol 'variable-comment comment)
2981 (put symbol 'customized-variable-comment comment)
3308 (symbol (widget-get widget :value))
3315 (setq tag (prin1-to-string symbol)))
3335 :sample-face symbol
3360 (let* ((comment (get symbol 'face-comment))
3381 (let* ((symbol (widget-value widget))
3382 (spec (or (get symbol 'customized-face)
3383 (get symbol 'saved-face)
3384 (get symbol 'face-defface-spec)
3387 symbol (selected-frame))))))
3393 (if (not (face-spec-match-p symbol spec (selected-frame)))
3394 (setq spec (list (list t (face-attr-construct symbol (selected-frame))))))
3470 (let* ((symbol (widget-value widget))
3471 (comment (get symbol 'face-comment))
3475 (setq tmp (get symbol 'customized-face))
3476 (setq temp (get symbol 'customized-face-comment))
3482 (setq tmp (get symbol 'saved-face))
3483 (setq temp (get symbol 'saved-face-comment))
3487 ((eq 'user (caar (get symbol 'theme-face)))
3489 ((eq 'changed (caar (get symbol 'theme-face)))
3493 ((get symbol 'face-defface-spec)
3502 (get symbol 'face-modified))
3512 (symbol (widget-get widget :value))
3514 (custom-unlispify-tag-name symbol))
3523 (let* ((symbol (widget-value widget))
3532 (put symbol 'customized-face value)
3533 (custom-push-theme 'theme-face symbol 'user 'set value)
3535 (face-spec-set symbol value)
3538 (face-spec-set symbol '((t :foreground unspecified))))
3539 (put symbol 'customized-face-comment comment)
3540 (put symbol 'face-comment comment)
3546 (let* ((symbol (widget-value widget))
3555 (custom-push-theme 'theme-face symbol 'user 'set value)
3557 (face-spec-set symbol value)
3560 (face-spec-set symbol '((t :foreground unspecified))))
3562 (put symbol 'saved-face value))
3563 (put symbol 'customized-face nil)
3564 (put symbol 'face-comment comment)
3565 (put symbol 'customized-face-comment nil)
3566 (put symbol 'saved-face-comment comment)
3577 (let* ((symbol (widget-value widget))
3579 (value (get symbol 'saved-face))
3580 (comment (get symbol 'saved-face-comment))
3584 (put symbol 'customized-face nil)
3585 (put symbol 'customized-face-comment nil)
3586 (custom-push-theme 'theme-face symbol 'user 'set value)
3587 (face-spec-set symbol value)
3588 (put symbol 'face-comment comment)
3602 (let* ((symbol (widget-value widget))
3604 (value (get symbol 'face-defface-spec))
3608 (put symbol 'customized-face nil)
3609 (put symbol 'customized-face-comment nil)
3610 (custom-push-theme 'theme-face symbol 'user 'reset)
3611 (face-spec-set symbol value)
3612 (custom-theme-recalc-face symbol)
3613 (when (or (get symbol 'saved-face) (get symbol 'saved-face-comment))
3614 (put symbol 'saved-face nil)
3615 (put symbol 'saved-face-comment nil)
3617 (put symbol 'face-comment nil)
3621 symbol nil)))))
3629 (defvar widget-face-prompt-value-history nil
3632 (define-widget 'face 'symbol
3642 (lisp-complete-symbol 'facep))
3644 :prompt-history 'widget-face-prompt-value-history
3679 :set (lambda (symbol value)
3682 (add-hook symbol elt))))
3791 (defun custom-group-members (symbol groups-only)
3795 (get symbol 'custom-group)
3797 (dolist (entry (get symbol 'custom-group))
3812 (symbol (widget-value widget))
3813 (members (custom-group-members symbol
3873 (custom-prefix-list (custom-prefix-add symbol prefixes))
3910 symbol)
3989 (custom-prefix-list (custom-prefix-add symbol prefixes))
4216 (mapatoms (lambda (symbol)
4217 (let ((face (get symbol 'customized-face))
4218 (value (get symbol 'customized-value))
4219 (face-comment (get symbol 'customized-face-comment))
4221 (get symbol 'customized-variable-comment)))
4223 (put symbol 'saved-face face)
4224 (custom-push-theme 'theme-face symbol 'user 'set value)
4225 (put symbol 'customized-face nil))
4227 (put symbol 'saved-value value)
4228 (custom-push-theme 'theme-value symbol 'user 'set value)
4229 (put symbol 'customized-value nil))
4231 (put symbol 'saved-variable-comment variable-comment)
4232 (put symbol 'customized-variable-comment nil))
4234 (put symbol 'saved-face-comment face-comment)
4235 (put symbol 'customized-face-comment nil)))))
4242 (defun custom-save-delete (symbol)
4263 (eq (car sexp) symbol))
4290 (lambda (symbol)
4291 (if (and (get symbol 'saved-value)
4293 (or (null (get symbol 'theme-value))
4294 (eq 'user (caar (get symbol 'theme-value)))))
4295 (nconc saved-list (list symbol)))))
4304 (dolist (symbol saved-list)
4305 (let ((spec (car-safe (get symbol 'theme-value)))
4306 (value (get symbol 'saved-value))
4307 (requests (get symbol 'custom-requests))
4308 (now (and (not (custom-variable-p symbol))
4309 (or (boundp symbol)
4310 (eq (get symbol 'force-value)
4312 (comment (get symbol 'saved-variable-comment)))
4321 (and (null spec) (get symbol 'saved-value)))
4336 (prin1 symbol)
4365 (lambda (symbol)
4366 (if (and (get symbol 'saved-face)
4367 (eq 'user (car (car-safe (get symbol 'theme-face)))))
4368 (nconc saved-list (list symbol)))))
4380 (dolist (symbol saved-list)
4381 (let ((spec (car-safe (get symbol 'theme-face)))
4382 (value (get symbol 'saved-face))
4383 (now (not (or (get symbol 'face-defface-spec)
4384 (and (not (custom-facep symbol))
4385 (not (get symbol 'force-face))))))
4386 (comment (get symbol 'saved-face-comment)))
4389 (and (null spec) (get symbol 'saved-face)))
4394 (prin1 symbol)
4420 (defun custom-face-menu-create (widget symbol)
4422 (vector (custom-unlispify-menu-entry symbol)
4423 `(customize-face ',symbol)
4426 (defun custom-variable-menu-create (widget symbol)
4428 (let ((type (get symbol 'custom-type)))
4432 (widget-apply type :custom-menu symbol)
4433 (vector (custom-unlispify-menu-entry symbol)
4434 `(customize-variable ',symbol)
4439 :custom-menu (lambda (widget symbol)
4440 (vector (custom-unlispify-menu-entry symbol)
4441 `(customize-variable ',symbol)
4443 ':selected symbol)))
4445 (defun custom-group-menu-create (widget symbol)
4447 `( ,(custom-unlispify-menu-entry symbol t)
4449 (let* ((menu (custom-menu-create ',symbol)))
4453 (defun custom-menu-create (symbol)
4457 (item (vector (custom-unlispify-menu-entry symbol)
4458 `(customize-group ',symbol)
4463 (custom-load-symbol symbol)
4464 (< (length (get symbol 'custom-group)) widget-menu-max-size)))
4465 (let ((custom-prefix-list (custom-prefix-add symbol
4467 (members (custom-sort-items (get symbol 'custom-group)
4470 `(,(custom-unlispify-menu-entry symbol t)
4482 (defun customize-menu-create (symbol &optional name)
4491 (let ((menu (custom-menu-create ',symbol)))