diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-11-06 03:46:24 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-11-06 03:46:24 +0000 |
| commit | ee108e88bf8884bf63017049c482b99bc2b55303 (patch) | |
| tree | 4358c8de2f54c2201cf6fe5cf6bbb0a38ed45c08 /lisp | |
| parent | 6200ac6cb5b355c532a11ba62c07dcf83b476bcf (diff) | |
| download | emacs-ee108e88bf8884bf63017049c482b99bc2b55303.tar.gz | |
(custom-variable-value-create, custom-face):
Use face names sans -face suffix rather than aliases.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 029d7375580..5423f02046f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-11-06 Glenn Morris <rgm@gnu.org> + + * cus-edit.el (custom-comment-tag): Doc fix. + (custom-comment, custom-variable-value-create, custom-face): + Use face names sans -face suffix rather than aliases. + 2008-11-05 Jay Belanger <jay.p.belanger@gmail.com> * calc/calc.el (calc-quit): Use `window-full-width-p' to check diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index fb067451661..40d1e2ffdfb 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2544,7 +2544,7 @@ try matching its doc string against `custom-guess-doc-alist'." (push (widget-create-child-and-convert widget 'item :format "%{%t%}: " - :sample-face 'custom-variable-tag-face + :sample-face 'custom-variable-tag :tag tag :parent widget) buttons) @@ -2597,8 +2597,8 @@ try matching its doc string against `custom-guess-doc-alist'." :action 'custom-tag-action :help-echo "Change value of this option." :mouse-down-action 'custom-tag-mouse-down-action - :button-face 'custom-variable-button-face - :sample-face 'custom-variable-tag-face + :button-face 'custom-variable-button + :sample-face 'custom-variable-tag tag) buttons) (insert " ") @@ -3226,7 +3226,7 @@ Only match frames that support the specified face attributes.") (define-widget 'custom-face 'custom "Customize face." - :sample-face 'custom-face-tag-face + :sample-face 'custom-face-tag :help-echo "Set or reset this face." :documentation-property #'face-doc-string :value-create 'custom-face-value-create |