From 17e210c83f11166d585fbd265d21b6218f3ec3ea Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 5 May 2004 09:53:17 +0000 Subject: [PATCH] * riece-misc.el (riece-split-parameters): Don't remove a trailing string even if it is empty. --- lisp/ChangeLog | 5 +++++ lisp/riece-misc.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b3299b..9a6ccf2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-05-05 Daiki Ueno + * riece-misc.el (riece-split-parameters): Don't remove a trailing + string even if it is empty. + +2004-05-05 Daiki Ueno + * riece-ctlseq.el: Require 'riece-message for riece-message-text; require 'riece-misc for riece-scan-property-region. diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el index ded59d1..72c9452 100644 --- a/lisp/riece-misc.el +++ b/lisp/riece-misc.el @@ -125,9 +125,10 @@ (while (string-match "^\\([^ ]+\\) +" string) (setq parameters (nconc parameters (list (match-string 1 string))) string (substring string (match-end 0))) - (and (not (equal "" string)) (eq ?: (aref string 0)) - (setq string (substring string 1)) - (throw 'done nil)))) + (when (and (not (equal "" string)) (eq ?: (aref string 0))) + (setq string (substring string 1) + parameters (nconc parameters (list string))) + (throw 'done nil)))) (or (equal "" string) (setq parameters (nconc parameters (list string)))) parameters))) -- 1.7.10.4