From 8fb83e53beb767e4003bc588caff67dc037d43c5 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Fri, 5 Nov 2004 04:52:04 +0000 Subject: [PATCH] Fixed. --- lisp/riece-alias.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 () ) -- 2.25.1