comparison lisp/custom.el @ 111017:9506df1b7b65

Allow hiding of modified custom widgets. * cus-edit.el (custom-variable, custom-face): Combine the :inhibit-magic and :display-style properties into a single :custom-style property. (custom-toggle-hide-variable, custom-toggle-hide-face): New functions. If hiding an edited value, save it to :shown-value. (custom-variable-value-create, custom-face-value-create): Use them. (custom-magic-reset): Allow magic property to be unset. * cus-theme.el (custom-theme-add-var-1) (custom-theme-add-face-1): Use the :custom-style property. * custom.el: (custom-theme-load-path): Doc fix.

111016:fedd4f6fa7e5

(defcustom custom-theme-load-path (list 'custom-theme-directory t)
  "List of directories to search for custom theme files.
Emacs commands for loading custom themes (e.g. `customize-themes'
and `load-theme') search for custom theme files in the specified
order.  Each element in the list should be one of the following:
\(i) the symbol `custom-theme-directory', which means the value
of that variable; (ii) the symbol t (the built-in Emacs theme
directory, named \"themes\" in `data-directory'); or \(iii) a
directory name (a string)."
  :type '(repeat (choice (const :tag "custom-theme-directory"
				custom-theme-directory)
			 (const :tag "Built-in theme directory" t)
			 directory))
  :group 'customize

111017:9506df1b7b65

(defcustom custom-theme-load-path (list 'custom-theme-directory t)
  "List of directories to search for custom theme files.
Emacs commands for loading custom themes (e.g. `customize-themes'
and `load-theme') search for custom theme files in the specified
order.  Each element in the list should be one of the following:
- the symbol `custom-theme-directory', meaning the value of
  `custom-theme-directory'.
- the symbol t, meaning the built-in theme directory (a directory
  named \"themes\" in `data-directory').
- a directory name (a string)."
  :type '(repeat (choice (const :tag "custom-theme-directory"
				custom-theme-directory)
			 (const :tag "Built-in theme directory" t)
			 directory))
  :group 'customize