From: yamaoka <yamaoka>
Date: Thu, 17 May 2001 08:24:16 +0000 (+0000)
Subject: * dgnushack.el (dgnushack-bind-colon-keywords): Don't ignore
X-Git-Tag: t-gnus-6_15_4-02-quimby~55
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2a584ea76ee257991062249bcde903fbb358c932;p=elisp%2Fgnus.git-

* dgnushack.el (dgnushack-bind-colon-keywords): Don't ignore
 `widget-convert-button', `widget-create' and `widget-put';
 ignore `defface'.
---

diff --git a/ChangeLog b/ChangeLog
index ca575cd..47a289b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-16  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/dgnushack.el (dgnushack-bind-colon-keywords): Don't ignore
+	`widget-convert-button', `widget-create' and `widget-put'; ignore
+	`defface'.
+
 2001-05-14  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus.el: Require `base64' if `base64-encode-string' is not a
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index b7c55fa..267c2ea 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -295,10 +295,9 @@ to the specified name LIBRARY (a la calling `load' instead of `load-library')."
 		   (while form
 		     (setq elem (pop form))
 		     (unless (memq (car-safe elem)
-				   '(\` backquote defcustom defgroup
-				     define-widget quote
-				     widget-convert-button
-				     widget-create widget-put))
+				   '(\` backquote
+				     defcustom defface defgroup
+				     define-widget quote))
 		       (while (consp elem)
 			 (push (car elem) form)
 			 (setq elem (cdr elem)))