X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fassistant.el;h=2a9942179c2f8951f9b83d550dcc173bc3018bf1;hb=4cacb5f23eb830e6950dba987063f413977708d7;hp=ef10be6484852c74059edc0ed1a8f96ebc7dfae3;hpb=a69d49e02f529e4b97f8158aa17582667d162f90;p=elisp%2Fgnus.git-

diff --git a/lisp/assistant.el b/lisp/assistant.el
index ef10be6..2a99421 100644
--- 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
@@ -18,8 +18,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -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)