/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.139 by rms, Mon Dec 31 20:13:54 2001 UTC revision 1.140 by rms, Mon Dec 31 20:22:27 2001 UTC
# Line 1485  item in another window.\n\n")) Line 1485  item in another window.\n\n"))
1485  (defface custom-invalid-face '((((class color))  (defface custom-invalid-face '((((class color))
1486                                  (:foreground "yellow" :background "red"))                                  (:foreground "yellow" :background "red"))
1487                                 (t                                 (t
1488                                  (:bold t :italic t :underline t)))                                  (:weight bold :slant italic :underline t)))
1489    "Face used when the customize item is invalid."    "Face used when the customize item is invalid."
1490    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1491    
# Line 1499  item in another window.\n\n")) Line 1499  item in another window.\n\n"))
1499  (defface custom-modified-face '((((class color))  (defface custom-modified-face '((((class color))
1500                                   (:foreground "white" :background "blue"))                                   (:foreground "white" :background "blue"))
1501                                  (t                                  (t
1502                                   (:italic t :bold)))                                   (:slant italic :bold)))
1503    "Face used when the customize item has been modified."    "Face used when the customize item has been modified."
1504    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1505    
1506  (defface custom-set-face '((((class color))  (defface custom-set-face '((((class color))
1507                                  (:foreground "blue" :background "white"))                                  (:foreground "blue" :background "white"))
1508                                 (t                                 (t
1509                                  (:italic t)))                                  (:slant italic)))
1510    "Face used when the customize item has been set."    "Face used when the customize item has been set."
1511    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1512    
1513  (defface custom-changed-face '((((class color))  (defface custom-changed-face '((((class color))
1514                                  (:foreground "white" :background "blue"))                                  (:foreground "white" :background "blue"))
1515                                 (t                                 (t
1516                                  (:italic t)))                                  (:slant italic)))
1517    "Face used when the customize item has been changed."    "Face used when the customize item has been changed."
1518    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1519    
# Line 1958  If INITIAL-STRING is non-nil, use that r Line 1958  If INITIAL-STRING is non-nil, use that r
1958                                   (background dark))                                   (background dark))
1959                                  (:background "dim gray"))                                  (:background "dim gray"))
1960                                 (t                                 (t
1961                                  (:italic t)))                                  (:slant italic)))
1962    "Face used for comments on variables or faces"    "Face used for comments on variables or faces"
1963    :version "21.1"    :version "21.1"
1964    :group 'custom-faces)    :group 'custom-faces)
# Line 1968  If INITIAL-STRING is non-nil, use that r Line 1968  If INITIAL-STRING is non-nil, use that r
1968    '((((class color) (background dark)) (:foreground "gray80"))    '((((class color) (background dark)) (:foreground "gray80"))
1969      (((class color) (background light)) (:foreground "blue4"))      (((class color) (background light)) (:foreground "blue4"))
1970      (((class grayscale) (background light))      (((class grayscale) (background light))
1971       (:foreground "DimGray" :bold t :italic t))       (:foreground "DimGray" :weight bold :slant italic))
1972      (((class grayscale) (background dark))      (((class grayscale) (background dark))
1973       (:foreground "LightGray" :bold t :italic t))       (:foreground "LightGray" :weight bold :slant italic))
1974      (t (:bold t)))      (t (:weight bold)))
1975    "Face used for variables or faces comment tags"    "Face used for variables or faces comment tags"
1976    :group 'custom-faces)    :group 'custom-faces)
1977    
# Line 2016  If INITIAL-STRING is non-nil, use that r Line 2016  If INITIAL-STRING is non-nil, use that r
2016  (defface custom-variable-tag-face  (defface custom-variable-tag-face
2017    `((((class color)    `((((class color)
2018        (background dark))        (background dark))
2019       (:foreground "light blue" :bold t :height 1.2 :inherit variable-pitch))       (:foreground "light blue" :weight bold :height 1.2 :inherit variable-pitch))
2020      (((class color)      (((class color)
2021        (background light))        (background light))
2022       (:foreground "blue" :bold t :height 1.2 :inherit variable-pitch))       (:foreground "blue" :weight bold :height 1.2 :inherit variable-pitch))
2023      (t (:bold t)))      (t (:weight bold)))
2024    "Face used for unpushable variable tags."    "Face used for unpushable variable tags."
2025    :group 'custom-faces)    :group 'custom-faces)
2026    
2027  (defface custom-variable-button-face '((t (:underline t :bold t)))  (defface custom-variable-button-face '((t (:underline t :weight bold)))
2028    "Face used for pushable variable tags."    "Face used for pushable variable tags."
2029    :group 'custom-faces)    :group 'custom-faces)
2030    
# Line 2476  restoring it to the state of a variable Line 2476  restoring it to the state of a variable
2476    "Ignoring WIDGET, convert :bold and :italic in VALUE to new form."    "Ignoring WIDGET, convert :bold and :italic in VALUE to new form."
2477    (let (result)    (let (result)
2478      (while value      (while value
       (assert (cdr value))  
2479        (let ((key (car value))        (let ((key (car value))
2480              (val (car (cdr value))))              (val (car (cdr value))))
2481          (cond ((eq key :italic)          (cond ((eq key :italic)
# Line 2632  Match frames with dark backgrounds.") Line 2631  Match frames with dark backgrounds.")
2631  ;;; The `custom-face' Widget.  ;;; The `custom-face' Widget.
2632    
2633  (defface custom-face-tag-face  (defface custom-face-tag-face
2634    `((t (:bold t :height 1.2 :inherit variable-pitch)))    `((t (:weight bold :height 1.2 :inherit variable-pitch)))
2635    "Face used for face tags."    "Face used for face tags."
2636    :group 'custom-faces)    :group 'custom-faces)
2637    
# Line 3140  and so forth.  The remaining group tags Line 3139  and so forth.  The remaining group tags
3139  (defface custom-group-tag-face-1  (defface custom-group-tag-face-1
3140    `((((class color)    `((((class color)
3141        (background dark))        (background dark))
3142       (:foreground "pink" :bold t :height 1.2 :inherit variable-pitch))       (:foreground "pink" :weight bold :height 1.2 :inherit variable-pitch))
3143      (((class color)      (((class color)
3144        (background light))        (background light))
3145       (:foreground "red" :bold t :height 1.2 :inherit variable-pitch))       (:foreground "red" :weight bold :height 1.2 :inherit variable-pitch))
3146      (t (:bold t)))      (t (:weight bold)))
3147    "Face used for group tags."    "Face used for group tags."
3148    :group 'custom-faces)    :group 'custom-faces)
3149    
3150  (defface custom-group-tag-face  (defface custom-group-tag-face
3151    `((((class color)    `((((class color)
3152        (background dark))        (background dark))
3153       (:foreground "light blue" :bold t :height 1.2))       (:foreground "light blue" :weight bold :height 1.2))
3154      (((class color)      (((class color)
3155        (background light))        (background light))
3156       (:foreground "blue" :bold t :height 1.2))       (:foreground "blue" :weight bold :height 1.2))
3157      (t (:bold t)))      (t (:weight bold)))
3158    "Face used for low level group tags."    "Face used for low level group tags."
3159    :group 'custom-faces)    :group 'custom-faces)
3160    

Legend:
Removed from v.1.139  
changed lines
  Added in v.1.140

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26