From 98a317c1bfd8b36aa79beab0796438b71a2f82c4 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 23 Jun 2003 06:23:56 +0000 Subject: [PATCH] * riece-misc.el (riece-channel-p): Moved from riece-channel.el. --- lisp/ChangeLog | 2 ++ lisp/riece-channel.el | 6 ------ lisp/riece-misc.el | 5 +++++ 3 files changed, 7 insertions(+), 6 deletions(-) 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 + * 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 -- 1.7.10.4