Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-face.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 28f395d8dc7a
children 5a88923fcbfe
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.9916 7 ;; Version: 1.9931
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; See `custom.el'. 12 ;; See `custom.el'.
253 face) 253 face)
254 254
255 ;;; Font Attributes. 255 ;;; Font Attributes.
256 256
257 (defconst custom-face-attributes 257 (defconst custom-face-attributes
258 '((:bold (toggle :format "%[Bold%]: %v\n" 258 '((:bold (boolean :tag "Bold"
259 :help-echo "Control whether a bold font should be used.") 259 :help-echo "Control whether a bold font should be used.")
260 custom-set-face-bold 260 custom-set-face-bold
261 custom-face-bold) 261 custom-face-bold)
262 (:italic (toggle :format "%[Italic%]: %v\n" 262 (:italic (boolean :tag "Italic"
263 :help-echo "\ 263 :help-echo "\
264 Control whether an italic font should be used.") 264 Control whether an italic font should be used.")
265 custom-set-face-italic 265 custom-set-face-italic
266 custom-face-italic) 266 custom-face-italic)
267 (:underline (toggle :format "%[Underline%]: %v\n" 267 (:underline (boolean :tag "Underline"
268 :help-echo "\ 268 :help-echo "\
269 Control whether the text should be underlined.") 269 Control whether the text should be underlined.")
270 set-face-underline-p 270 set-face-underline-p
271 face-underline-p) 271 face-underline-p)
272 (:foreground (color :tag "Foreground" 272 (:foreground (color :tag "Foreground"
273 :value "black" 273 :value "black"