- (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)
- (length riece-alias-alternate-separator))))
- (unless (zerop (% length 2))
- (setq prefix (substring string 0 index))))
+ (if (match-beginning 1) ;found a separator
+ (setq prefix (substring string 0 (match-beginning 1))
+ index (match-end 1))
+ (setq string (replace-match riece-alias-alternate-separator
+ nil t string)
+ index (- (match-end 0)
+ (length riece-alias-alternate-separator)))))