From: ueno <ueno>
Date: Mon, 23 Jun 2003 06:23:56 +0000 (+0000)
Subject: * riece-misc.el (riece-channel-p): Moved from riece-channel.el.
X-Git-Tag: strict-naming-mergepoint~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=98a317c1bfd8b36aa79beab0796438b71a2f82c4;p=elisp%2Friece.git

* riece-misc.el (riece-channel-p): Moved from riece-channel.el.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c528ffa..bec40a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-06-23  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-misc.el (riece-channel-p): Moved from riece-channel.el.
+
 	* riece-300.el: Rewrite using riece-decode-identity.
 
 	* riece-identity.el (riece-completing-read-identity): Signal an
diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el
index cf61f37..5805faf 100644
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -28,12 +28,6 @@
 (require 'riece-globals)
 (require 'riece-identity)
 
-;;; String representation of a channel:
-(defun riece-channel-p (string)
-  "Return t if STRING is a channel.
-\(i.e. it matches `riece-channel-regexp')"
-  (string-match (concat "^" riece-channel-regexp) string))
-
 ;;; Channel object:
 (defun riece-find-channel (name)
   "Get a channel object named NAME from the server buffer."
diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el
index 9f02c66..a9fc0b8 100644
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -79,6 +79,11 @@
   (with-current-buffer buffer
     (eq riece-freeze 'own)))
 
+(defun riece-channel-p (string)
+  "Return t if STRING is a channel.
+\(i.e. it matches `riece-channel-regexp')"
+  (string-match (concat "^" riece-channel-regexp) string))
+
 (defun riece-current-nickname ()
   "Return the current nickname."
   (riece-with-identity-buffer riece-current-channel