projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
37c5bbf
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Sat, 5 Feb 2005 13:03:00 +0000
(13:03 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Sat, 5 Feb 2005 13:03:00 +0000
(13:03 +0000)
lisp/riece-filter.el
patch
|
blob
|
history
diff --git
a/lisp/riece-filter.el
b/lisp/riece-filter.el
index
dc72e92
..
71a8bc1
100644
(file)
--- a/
lisp/riece-filter.el
+++ b/
lisp/riece-filter.el
@@
-65,7
+65,7
@@
(run-hook-with-args-until-success after-hook prefix string)))))
(defun riece-chomp-string (string)
(run-hook-with-args-until-success after-hook prefix string)))))
(defun riece-chomp-string (string)
- (if (string-match "\r
?\n
\\'" string)
+ (if (string-match "\r\\'" string)
(substring string 0 (match-beginning 0))
string))
(substring string 0 (match-beginning 0))
string))
@@
-84,13
+84,13
@@
(looking-at ".*\n")) ;the input line is not finished
(save-excursion
(if (looking-at
(looking-at ".*\n")) ;the input line is not finished
(save-excursion
(if (looking-at
- ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)
\n
")
+ ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)")
(riece-handle-numeric-reply
(match-string 1) ;prefix
(string-to-number (match-string 2)) ;number
(match-string 3) ;name
(riece-chomp-string (match-string 4))) ;reply string
(riece-handle-numeric-reply
(match-string 1) ;prefix
(string-to-number (match-string 2)) ;number
(match-string 3) ;name
(riece-chomp-string (match-string 4))) ;reply string
- (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)
\n
")
+ (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)")
(riece-handle-message
(match-string 2) ;optional prefix
(match-string 3) ;command
(riece-handle-message
(match-string 2) ;optional prefix
(match-string 3) ;command