projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f77e2ad
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 5 Nov 2004 04:52:04 +0000
(
04:52
+0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 5 Nov 2004 04:52:04 +0000
(
04:52
+0000)
lisp/riece-alias.el
patch
|
blob
|
history
diff --git
a/lisp/riece-alias.el
b/lisp/riece-alias.el
index
c55d045
..
9a45bd8
100644
(file)
--- a/
lisp/riece-alias.el
+++ b/
lisp/riece-alias.el
@@
-151,17
+151,17
@@
string)))
(defun riece-alias-expand-identity-string (string)
string)))
(defun riece-alias-expand-identity-string (string)
- (if riece-alias-enable-percent-hack
- (setq string (riece-alias-expand-percent-hack string)))
- (if riece-alias-alternate-separator
- (setq string (riece-alias-expand-alternate-separator string)))
(let ((alist riece-alias-alist))
(catch 'done
(while alist
(if (equal (cdr (car alist)) string)
(throw 'done (car (car alist))))
(setq alist (cdr alist)))
(let ((alist riece-alias-alist))
(catch 'done
(while alist
(if (equal (cdr (car alist)) string)
(throw 'done (car (car alist))))
(setq alist (cdr alist)))
- string)))
+ string))
+ (if riece-alias-alternate-separator
+ (setq string (riece-alias-expand-alternate-separator string)))
+ (if riece-alias-enable-percent-hack
+ (setq string (riece-alias-expand-percent-hack string))))
(defun riece-alias-insinuate ()
)
(defun riece-alias-insinuate ()
)