mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(custom-face-value-create): If face name doesn't end with "face", add

Browse Source 
such here (similar to custom group widgets).
This commit is contained in:
Miles Bader 2000-10-29 14:49:01 +00:00
parent 053457f406
commit a62ebc520c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/cus-edit.el
View File

@ -2619,7 +2619,9 @@ Match frames with dark backgrounds.")
(if (eq custom-buffer-style 'face) (if (eq custom-buffer-style 'face)
(insert " ") (insert " ")
(widget-specify-sample widget begin (point)) (widget-specify-sample widget begin (point))
(insert ": ")) (if (string-match "face\\'" tag)
(insert ":")
(insert " face: ")))
;; Sample. ;; Sample.
(push (widget-create-child-and-convert widget 'item (push (widget-create-child-and-convert widget 'item
:format "(%{%t%})" :format "(%{%t%})"