1012 |
|
|
1013 |
;;;###autoload |
;;;###autoload |
1014 |
(defun customize-face (&optional face) |
(defun customize-face (&optional face) |
1015 |
"Customize SYMBOL, which should be a face name or nil. |
"Customize FACE, which should be a face name or nil. |
1016 |
If SYMBOL is nil, customize all faces. |
If FACE is nil, customize all faces. |
1017 |
|
|
1018 |
Interactively, when point is on text which has a face specified, |
Interactively, when point is on text which has a face specified, |
1019 |
suggest to customized that face, if it's customizable." |
suggest to customize that face, if it's customizable." |
1020 |
(interactive |
(interactive |
1021 |
(list (read-face-name "Customize face" "all faces" t))) |
(list (read-face-name "Customize face" "all faces" t))) |
1022 |
(if (member face '(nil "")) |
(if (member face '(nil "")) |
1038 |
|
|
1039 |
;;;###autoload |
;;;###autoload |
1040 |
(defun customize-face-other-window (&optional face) |
(defun customize-face-other-window (&optional face) |
1041 |
"Show customization buffer for face SYMBOL in other window. |
"Show customization buffer for face FACE in other window. |
1042 |
|
|
1043 |
Interactively, when point is on text which has a face specified, |
Interactively, when point is on text which has a face specified, |
1044 |
suggest to customized that face, if it's customizable." |
suggest to customize that face, if it's customizable." |
1045 |
(interactive |
(interactive |
1046 |
(list (read-face-name "Customize face" "all faces" t))) |
(list (read-face-name "Customize face" "all faces" t))) |
1047 |
(if (member face '(nil "")) |
(if (member face '(nil "")) |
1093 |
(get symbol 'standard-value)))) |
(get symbol 'standard-value)))) |
1094 |
(when (and cval ;Declared with defcustom. |
(when (and cval ;Declared with defcustom. |
1095 |
(default-boundp symbol) ;Has a value. |
(default-boundp symbol) ;Has a value. |
1096 |
(not (equal (eval (car cval)) |
(not (equal (eval (car cval)) |
1097 |
;; Which does not match customize. |
;; Which does not match customize. |
1098 |
(default-value symbol)))) |
(default-value symbol)))) |
1099 |
(push (list symbol 'custom-variable) found))))) |
(push (list symbol 'custom-variable) found))))) |
1876 |
(custom-load-symbol (widget-value widget))) |
(custom-load-symbol (widget-value widget))) |
1877 |
|
|
1878 |
(defun custom-unloaded-symbol-p (symbol) |
(defun custom-unloaded-symbol-p (symbol) |
1879 |
"Return non-nil if the dependencies of SYMBOL has not yet been loaded." |
"Return non-nil if the dependencies of SYMBOL have not yet been loaded." |
1880 |
(let ((found nil) |
(let ((found nil) |
1881 |
(loads (get symbol 'custom-loads)) |
(loads (get symbol 'custom-loads)) |
1882 |
load) |
load) |
1894 |
found)) |
found)) |
1895 |
|
|
1896 |
(defun custom-unloaded-widget-p (widget) |
(defun custom-unloaded-widget-p (widget) |
1897 |
"Return non-nil if the dependencies of WIDGET has not yet been loaded." |
"Return non-nil if the dependencies of WIDGET have not yet been loaded." |
1898 |
(custom-unloaded-symbol-p (widget-value widget))) |
(custom-unloaded-symbol-p (widget-value widget))) |
1899 |
|
|
1900 |
(defun custom-toggle-hide (widget) |
(defun custom-toggle-hide (widget) |
2646 |
(widget-setup))))) |
(widget-setup))))) |
2647 |
|
|
2648 |
(defun custom-face-edit-delete (widget) |
(defun custom-face-edit-delete (widget) |
2649 |
"Remove widget from the buffer." |
"Remove WIDGET from the buffer." |
2650 |
(let ((inactive (widget-get widget :inactive)) |
(let ((inactive (widget-get widget :inactive)) |
2651 |
(inhibit-read-only t) |
(inhibit-read-only t) |
2652 |
(inhibit-modification-hooks t)) |
(inhibit-modification-hooks t)) |