/[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.201 by rms, Mon Dec 6 14:01:19 2004 UTC revision 1.202 by rms, Mon Dec 13 19:39:01 2004 UTC
# Line 1561  item in another window.\n\n")) Line 1561  item in another window.\n\n"))
1561    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1562    
1563  (defface custom-set-face '((((class color))  (defface custom-set-face '((((class color))
1564                                  (:foreground "blue" :background "white"))                              (:foreground "blue" :background "white"))
1565                                 (t                             (t
1566                                  (:slant italic)))                              (:slant italic)))
1567    "Face used when the customize item has been set."    "Face used when the customize item has been set."
1568    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1569    
# Line 1578  item in another window.\n\n")) Line 1578  item in another window.\n\n"))
1578    "Face used when the customize item has been saved."    "Face used when the customize item has been saved."
1579    :group 'custom-magic-faces)    :group 'custom-magic-faces)
1580    
1581  (defconst custom-magic-alist '((nil "#" underline "\  (defconst custom-magic-alist
1582      '((nil "#" underline "\
1583  uninitialized, you should not see this.")  uninitialized, you should not see this.")
1584                                 (unknown "?" italic "\      (unknown "?" italic "\
1585  unknown, you should not see this.")  unknown, you should not see this.")
1586                                 (hidden "-" default "\      (hidden "-" default "\
1587  hidden, invoke \"Show\" in the previous line to show." "\  hidden, invoke \"Show\" in the previous line to show." "\
1588  group now hidden, invoke \"Show\", above, to show contents.")  group now hidden, invoke \"Show\", above, to show contents.")
1589                                 (invalid "x" custom-invalid-face "\      (invalid "x" custom-invalid-face "\
1590  the value displayed for this %c is invalid and cannot be set.")  the value displayed for this %c is invalid and cannot be set.")
1591                                 (modified "*" custom-modified-face "\      (modified "*" custom-modified-face "\
1592  you have edited the value as text, but you have not set the %c." "\  you have edited the value as text, but you have not set the %c." "\
1593  you have edited something in this group, but not set it.")  you have edited something in this group, but not set it.")
1594                                 (set "+" custom-set-face "\      (set "+" custom-set-face "\
1595  you have set this %c, but not saved it for future sessions." "\  you have set this %c, but not saved it for future sessions." "\
1596  something in this group has been set, but not saved.")  something in this group has been set, but not saved.")
1597                                 (changed ":" custom-changed-face "\      (changed ":" custom-changed-face "\
1598  this %c has been changed outside the customize buffer." "\  this %c has been changed outside the customize buffer." "\
1599  something in this group has been changed outside customize.")  something in this group has been changed outside customize.")
1600                                 (saved "!" custom-saved-face "\      (saved "!" custom-saved-face "\
1601  this %c has been set and saved." "\  this %c has been set and saved." "\
1602  something in this group has been set and saved.")  something in this group has been set and saved.")
1603                                 (rogue "@" custom-rogue-face "\      (rogue "@" custom-rogue-face "\
1604  this %c has not been changed with customize." "\  this %c has not been changed with customize." "\
1605  something in this group is not prepared for customization.")  something in this group is not prepared for customization.")
1606                                 (standard " " nil "\      (standard " " nil "\
1607  this %c is unchanged from its standard setting." "\  this %c is unchanged from its standard setting." "\
1608  visible group members are all at standard settings."))  visible group members are all at standard settings."))
1609    "Alist of customize option states.    "Alist of customize option states.
# Line 2576  to switch between two values." Line 2577  to switch between two values."
2577    "Edit face attributes."    "Edit face attributes."
2578    :format "%t: %v"    :format "%t: %v"
2579    :tag "Attributes"    :tag "Attributes"
2580    :extra-offset 12    :extra-offset 13
2581    :button-args '(:help-echo "Control whether this attribute has any effect.")    :button-args '(:help-echo "Control whether this attribute has any effect.")
2582    :value-to-internal 'custom-face-edit-fix-value    :value-to-internal 'custom-face-edit-fix-value
2583    :match (lambda (widget value)    :match (lambda (widget value)
# Line 2817  Only match frames that support the speci Line 2818  Only match frames that support the speci
2818    
2819  (define-widget 'custom-face-selected 'group  (define-widget 'custom-face-selected 'group
2820    "Edit the attributes of the selected display in a face specification."    "Edit the attributes of the selected display in a face specification."
2821    :args '((repeat :format ""    :args '((choice :inline t
2822                    :inline t                    (group :tag "With Defaults" :inline t
2823                    (group custom-display-unselected sexp))                     (group (const :tag "" default)
2824            (group (sexp :format "") custom-face-edit)                            (custom-face-edit :tag " Default\n Attributes"))
2825            (repeat :format ""                     (repeat :format ""
2826                    :inline t                             :inline t
2827                    sexp)))                             (group custom-display-unselected sexp))
2828                       (group (sexp :format "")
2829                              (custom-face-edit :tag " Overriding\n Attributes"))
2830                       (repeat :format ""
2831                               :inline t
2832                               sexp))
2833                      (group :tag "No Defaults" :inline t
2834                             (repeat :format ""
2835                                     :inline t
2836                                     (group custom-display-unselected sexp))
2837                             (group (sexp :format "")
2838                                    (custom-face-edit :tag "\n Attributes"))
2839                             (repeat :format ""
2840                                     :inline t
2841                                     sexp)))))
2842    
2843    
2844    
2845  (defconst custom-face-selected (widget-convert 'custom-face-selected)  (defconst custom-face-selected (widget-convert 'custom-face-selected)
2846    "Converted version of the `custom-face-selected' widget.")    "Converted version of the `custom-face-selected' widget.")

Legend:
Removed from v.1.201  
changed lines
  Added in v.1.202

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