emacs/lisp/custom.el

44   "Non-nil means `defcustom' should not initialize the variable.
45 That is used for the sake of `custom-make-dependencies'.
135 (defun custom-declare-variable (symbol default doc &rest args)
148     (put symbol 'variable-documentation doc))
152       (custom-add-to-group (custom-current-group) symbol 'custom-variable))
183 					'custom-variable))))))
193   "Declare SYMBOL as a customizable variable that defaults to VALUE.
194 DOC is the variable documentation.
208 	variable.  It takes two arguments, the symbol and value
240              customization buffer with the Info node name.
257         (variable-link VARIABLE)
263         You can specify the text to use in the customization buffer by
266         Emacs manual which appears in the buffer as `foo'.
271         VALUE should be a string specifying that the variable was
276         specifying that the variable was first introduced, or its
294 If SYMBOL has a local binding, then this form affects the local
307   (nconc (list 'custom-declare-variable
432 Useful widgets are `custom-variable' for editing variables,
530   "To the variable SYMBOL add OPTION.
563   "Mark SYMBOL as autoloaded custom variable and add dependency LOAD.
564 If NOSET is non-nil, don't bother autoloading LOAD when setting the variable."
568 ;; This test is also in the C code of `user-variable-p'.
569 (defun custom-variable-p (variable)
570   "Return non-nil if VARIABLE is a custom variable.
572   (setq variable (indirect-variable variable))
573   (or (get variable 'standard-value)
574       (get variable 'custom-autoload)))
587       ;; to make sure we know all the dependencies of SYMBOL.
616 (defvar custom-local-buffer nil
617   "Non-nil, in a Customization buffer, means customize a specific buffer.
618 If this variable is non-nil, it should be a buffer,
619 and it means customize the local bindings of that buffer.
620 This variable is a permanent local, and it normally has a local binding
621 in every Customization buffer.")
622 (put 'custom-local-buffer 'permanent-local t)
624 (defun custom-set-default (variable value)
625   "Default :set function for a customizable variable.
627 but if `custom-local-buffer' is non-nil,
628 this sets the local binding in that buffer instead."
629   (if custom-local-buffer
630       (with-current-buffer custom-local-buffer
631 	(set variable value))
632     (set-default variable value)))
634 (defun custom-set-minor-mode (variable value)
638 but if `custom-local-buffer' is non-nil,
639 this sets the local binding in that buffer instead."
640   (if custom-local-buffer
641       (with-current-buffer custom-local-buffer
642 	(funcall variable (if value 1 0)))
643     (funcall variable (if value 1 0))))
675 	 (comment (get symbol 'customized-variable-comment)))
687       (put symbol 'saved-variable-comment comment))
734 ;; variable and face settings of the theme.  This property is a list
740 ;;  - SYMBOL is the face or variable name
749 ;; In addition, each symbol (either a variable or a face) affected by
790   "Record VALUE for face or variable SYMBOL in custom theme THEME.
791 PROP is `theme-face' for a face, `theme-value' for a variable.
849   "Install user customizations of variable values specified in ARGS.
886     (let* ((symbol (indirect-variable (nth 0 entry))))
914 	  (let* ((symbol (indirect-variable (nth 0 entry)))
925 	    (put symbol 'saved-variable-comment comment)
931 		       ;; Rogue variable, set it now.
941 		 (put symbol 'variable-comment comment)))
948 	(let ((symbol (indirect-variable (nth 0 args)))
978 ;; `:variable-reset-string', etc.  We don't use any of these, so ignore them.
985 see `custom-make-theme-feature' for more information."
986   (let ((feature (custom-make-theme-feature theme)))
995 created from THEME by `custom-make-theme-feature'."
1002 (defun custom-make-theme-feature (theme)
1033 `custom-make-theme-feature')."
1061     (load (symbol-name (custom-make-theme-feature theme)))))
1069   "Reenable all variable and face settings defined by THEME.
1086 	      (custom-theme-recalc-variable symbol)
1128   "Disable all variable and face settings defined by THEME.
1143 	      (custom-theme-recalc-variable symbol)
1148 (defun custom-variable-theme-value (variable)
1154   (let* ((theme-value (get variable 'theme-value)))
1158 (defun custom-theme-recalc-variable (variable)
1160   (let ((valspec (custom-variable-theme-value variable)))
1162 	(put variable 'saved-value valspec)
1163       (setq valspec (get variable 'standard-value)))
1165 	     (or (get variable 'force-value)
1166 		 (default-boundp variable)))
1167 	(funcall (or (get variable 'custom-set) 'set-default) variable
1185   "Reset some variable settings in THEME to their values in other themes.
1209 (while custom-declare-variable-list
1210   (apply 'custom-declare-variable (car custom-declare-variable-list))
1211   (setq custom-declare-variable-list (cdr custom-declare-variable-list)))