From 9f56fa9c2aaa6f40f7a273ecb0f2a659bc9087b3 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 5 Nov 2004 04:49:19 +0000 Subject: [PATCH] Fixed. --- lisp/riece-alias.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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) -- 1.7.10.4