projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200510111141.
[elisp/gnus.git-]
/
lisp
/
assistant.el
diff --git
a/lisp/assistant.el
b/lisp/assistant.el
index
ef10be6
..
2a99421
100644
(file)
--- a/
lisp/assistant.el
+++ b/
lisp/assistant.el
@@
-1,5
+1,5
@@
;;; assistant.el --- guiding users through Emacs setup
;;; 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
;; 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
;; 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:
;;; Commentary:
@@
-38,9
+38,11
@@
("next" assistant-list-reader)
("text" assistant-text-reader)))
("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)
"Face used for editable fields."
:group 'gnus-article-emphasis)
+;; backward-compatibility alias
+(put 'assistant-field-face 'face-alias 'assistant-field)
;;; Internal variables
;;; Internal variables
@@
-268,7
+270,7
@@
(push
(widget-create
'editable-field
(push
(widget-create
'editable-field
- :value-face 'assistant-field-face
+ :value-face 'assistant-field
:assistant-variable variable
(assistant-get-variable node variable))
assistant-widgets)
:assistant-variable variable
(assistant-get-variable node variable))
assistant-widgets)
@@
-278,7
+280,7
@@
(add-text-properties start (point)
(list
'bold t
(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)
'not-read-only t))))))))
(defun assistant-render-node (node-name)