* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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