From: Daiki Ueno <ueno@unixuser.org>
Date: Fri, 5 Nov 2004 04:52:04 +0000 (+0000)
Subject: Fixed.
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=8fb83e53beb767e4003bc588caff67dc037d43c5;ds=inline

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 ()
   )