Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-139

Remove "-face" suffix from assistant faces

2005-06-16  Miles Bader  <miles@gnu.org>

   * lisp/assistant.el (assistant-field): Remove "-face" suffix from face name.
   (assistant-field-face): New backward-compatibility alias for renamed
   face.
   (assistant-render-text): Use renamed assistant-field face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef4568e..d554772 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2005-06-16  Miles Bader  <miles@gnu.org>
 
+       * assistant.el (assistant-field): Remove "-face" suffix from face name.
+       (assistant-field-face): New backward-compatibility alias for renamed
+       face.
+       (assistant-render-text): Use renamed assistant-field face.
+
        * spam.el (spam): Remove "-face" suffix from face name.
        (spam-face): New backward-compatibility alias for renamed face.
        (spam-face, spam-initialize): Use renamed spam face.

diff --git a/lisp/assistant.el b/lisp/assistant.el
index 79f83d5..4709870 100644 (file)
--- a/lisp/assistant.el
+++ b/lisp/assistant.el
@@ -1,5 +1,5 @@
 ;;; assistant.el --- guiding users through Emacs setup
-;; Copyright (C) 2004 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: util
@@ -38,9 +38,11 @@
     ("next" assistant-list-reader)
     ("text" assistant-text-reader)))
 
-(defface assistant-field-face '((t (:bold t)))
+(defface assistant-field '((t (:bold t)))
   "Face used for editable fields."
   :group 'gnus-article-emphasis)
+;; backward-compatibility alias
+(put 'assistant-field-face 'face-alias 'assistant-field)
 
 ;;; Internal variables
 
@@ -268,7 +270,7 @@
          (push 
           (widget-create
            'editable-field
-           :value-face 'assistant-field-face
+           :value-face 'assistant-field
            :assistant-variable variable
            (assistant-get-variable node variable))
           assistant-widgets)
@@ -278,7 +280,7 @@
          (add-text-properties start (point)
                               (list
                                'bold t
-                               'face 'assistant-field-face
+                               'face 'assistant-field
                                'not-read-only t))))))))
 
 (defun assistant-render-node (node-name)