projects
/
elisp
/
riece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-300.el: Rewrite using riece-decode-identity.
[elisp/riece.git]
/
lisp
/
riece-channel.el
diff --git
a/lisp/riece-channel.el
b/lisp/riece-channel.el
index
a6f3d6e
..
cf61f37
100644
(file)
--- a/
lisp/riece-channel.el
+++ b/
lisp/riece-channel.el
@@
-25,15
+25,14
@@
;;; Code:
(require 'riece-options)
;;; Code:
(require 'riece-options)
+(require 'riece-globals)
(require 'riece-identity)
;;; String representation of a channel:
(require 'riece-identity)
;;; String representation of a channel:
-(defconst riece-channel-regexp "^[+&#!]")
-
(defun riece-channel-p (string)
"Return t if STRING is a channel.
\(i.e. it matches `riece-channel-regexp')"
(defun riece-channel-p (string)
"Return t if STRING is a channel.
\(i.e. it matches `riece-channel-regexp')"
- (string-match riece-channel-regexp string))
+ (string-match (concat "^" riece-channel-regexp) string))
;;; Channel object:
(defun riece-find-channel (name)
;;; Channel object:
(defun riece-find-channel (name)