From c7d1af87eee59d121d3241a60e34520e67fe8f86 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sun, 6 Feb 2005 14:39:36 +0000 Subject: [PATCH] * riece-filter.el (riece-filter): Modified regexp. * riece-misc.el (riece-insert): Undo the last change. --- lisp/riece-filter.el | 4 ++-- lisp/riece-misc.el | 4 +--- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el index 71a8bc1..bb6664b 100644 --- a/lisp/riece-filter.el +++ b/lisp/riece-filter.el @@ -84,13 +84,13 @@ (looking-at ".*\n")) ;the input line is not finished (save-excursion (if (looking-at - ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)") + ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)\n") (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 "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)") + (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)\n") (riece-handle-message (match-string 2) ;optional prefix (match-string 3) ;command diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el index 363e45f..2e2a912 100644 --- a/lisp/riece-misc.el +++ b/lisp/riece-misc.el @@ -84,9 +84,7 @@ (goto-char point) ;select-window changes current point (recenter riece-window-center-line)))) (run-hook-with-args 'riece-after-insert-functions start (point)))) - (setq buffers (cdr buffers))) - ;; This triggers forced redisplay under GNU Emacs. - (sit-for 0)) + (setq buffers (cdr buffers)))) (defun riece-insert-change (buffer message) (riece-insert buffer (concat riece-change-prefix message))) -- 2.25.1