projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
423c934
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 5 Nov 2004 04:49:19 +0000
(
04:49
+0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 5 Nov 2004 04:49:19 +0000
(
04:49
+0000)
lisp/riece-alias.el
patch
|
blob
|
history
diff --git
a/lisp/riece-alias.el
b/lisp/riece-alias.el
index
0575db8
..
c55d045
100644
(file)
--- a/
lisp/riece-alias.el
+++ b/
lisp/riece-alias.el
@@
-105,16
+105,21
@@
length)
(while (and (null prefix)
(string-match
length)
(while (and (null prefix)
(string-match
- (concat (regexp-quote riece-alias-alternate-separator) "+")
+ (concat "\\("
+ (regexp-quote riece-alias-alternate-separator)
+ "\\)+")
string index))
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)
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)
(unless (zerop (% length 2))
(setq prefix (substring string 0 index))))
(if (null prefix)