From: ueno <ueno>
Date: Fri, 5 Nov 2004 04:49:19 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-1_0_5~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f56fa9c2aaa6f40f7a273ecb0f2a659bc9087b3;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-alias.el b/lisp/riece-alias.el
index 0575db8..c55d045 100644
--- a/lisp/riece-alias.el
+++ b/lisp/riece-alias.el
@@ -105,16 +105,21 @@
 	length)
     (while (and (null prefix)
 		(string-match
-		 (concat (regexp-quote riece-alias-alternate-separator) "+")
+		 (concat "\\("
+			 (regexp-quote riece-alias-alternate-separator)
+			 "\\)+")
 		 string index))
-      (setq length (- (match-end 0) (match-beginning 0))
+      (setq length (/ (- (match-end 0) (match-beginning 0))
+		      (length riece-alias-alternate-separator))
 	    string (replace-match
 		    (mapconcat #'identity
 			       (make-list (/ length 2)
 					  riece-alias-alternate-separator)
 			       "")
 		    nil t string)
-	    index (+ (match-beginning 0) (/ length 2)))
+	    index (+ (match-beginning 0)
+		     (* (/ length 2)
+			(length riece-alias-alternate-separator))))
       (unless (zerop (% length 2))
 	(setq prefix (substring string 0 index))))
     (if (null prefix)