From: ueno <ueno>
Date: Wed, 2 Jun 2004 02:28:14 +0000 (+0000)
Subject: * riece-unread.el: Use riece-facep to check existence of
X-Git-Tag: riece-1_0_1~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b643103e11817e7a68507a5209941f721b78d63e;p=elisp%2Friece.git

* riece-unread.el: Use riece-facep to check existence of
'riece-modeline-unread-face.
* riece-history.el: Use riece-facep to check existence of
'riece-modeline-history-face.
* riece-highlight.el: Use riece-facep to check existence of
'riece-modeline-current-face.

* riece-xemacs.el (riece-facep): Define as an alias of 'find-face.
* riece-emacs.el (riece-facep): Define as an alias of 'facep.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b454ec3..24fec2d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2004-06-02  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-unread.el: Use riece-facep to check existence of
+	'riece-modeline-unread-face.
+	* riece-history.el: Use riece-facep to check existence of
+	'riece-modeline-history-face.
+	* riece-highlight.el: Use riece-facep to check existence of
+	'riece-modeline-current-face.
+
+	* riece-xemacs.el (riece-facep): Define as an alias of 'find-face.
+	* riece-emacs.el (riece-facep): Define as an alias of 'facep.
+
 2004-06-01  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-button.el (riece-button-disable): On XEmacs, BUFFER arg of
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 72e8067..5a47337 100644
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -95,6 +95,8 @@
   (add-text-properties 0 (length string) properties string)
   string)
 
+(defalias 'riece-facep 'facep)
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here
diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index 513011e..4aebc5f 100644
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -189,7 +189,7 @@
   :type '(repeat (list string))
   :group 'riece-highlight)
 
-(unless (find-face 'riece-modeline-current-face)
+(unless (riece-facep 'riece-modeline-current-face)
   (make-face 'riece-modeline-current-face
 	     "Face used for displaying the current channel in modeline.")
   (if (featurep 'xemacs)
diff --git a/lisp/riece-history.el b/lisp/riece-history.el
index fd9ea42..4ea6448 100644
--- a/lisp/riece-history.el
+++ b/lisp/riece-history.el
@@ -62,7 +62,7 @@
   :group 'riece-highlight-faces)
 (defvar riece-channel-list-history-face 'riece-channel-list-history-face)
 
-(unless (find-face 'riece-modeline-history-face)
+(unless (riece-facep 'riece-modeline-history-face)
   (make-face 'riece-modeline-history-face
 	     "Face used for displaying history channels in modeline.")
   (if (featurep 'xemacs)
diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index 359f86b..7e950b8 100644
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -58,7 +58,7 @@
   :group 'riece-highlight-faces)
 (defvar riece-channel-list-unread-face 'riece-channel-list-unread-face)
 
-(unless (find-face 'riece-modeline-unread-face)
+(unless (riece-facep 'riece-modeline-unread-face)
   (make-face 'riece-modeline-unread-face
 	     "Face used for displaying unread channels in modeline.")
   (if (featurep 'xemacs)
diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 9cbd135..72ce435 100644
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -122,6 +122,8 @@
     (set-extent-properties extent properties)
     (cons extent string)))
 
+(defalias 'riece-facep 'find-face)
+
 (provide 'riece-xemacs)
 
 ;;; riece-xemacs.el ends here