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

Fixed.
---

diff --git a/lisp/riece-alias.el b/lisp/riece-alias.el
index c55d045..9a45bd8 100644
--- a/lisp/riece-alias.el
+++ b/lisp/riece-alias.el
@@ -151,17 +151,17 @@
       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)))
-      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 ()
   )