From 42b74a1ddacfa86c6440c531401cd59e60ca5171 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 10 Sep 2005 12:20:46 +0000 Subject: [PATCH] * riece-alias.el (riece-alias-abbrev-identity-string): Compare car of riece-alias-alist with identities case insensitively. --- lisp/ChangeLog | 5 +++++ lisp/riece-alias.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a36f92b..74790d8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-10 Daiki Ueno + + * riece-alias.el (riece-alias-abbrev-identity-string): Compare car + of riece-alias-alist with identities case insensitively. + 2005-09-05 Daiki Ueno * Makefile.am (EXTRA_DIST): Added riece-xfaceb.el. diff --git a/lisp/riece-alias.el b/lisp/riece-alias.el index dc11b52..1fd0314 100644 --- a/lisp/riece-alias.el +++ b/lisp/riece-alias.el @@ -138,7 +138,7 @@ (setq string (riece-alias-abbrev-alternate-separator string))) (let ((alist riece-alias-alist)) (while alist - (if (equal (car (car alist)) string) + (if (equal (downcase (car (car alist))) (downcase string)) (setq string (cdr (car alist)) alist nil) (setq alist (cdr alist))))) @@ -147,7 +147,7 @@ (defun riece-alias-expand-identity-string (string) (let ((alist riece-alias-alist)) (while alist - (if (equal (cdr (car alist)) string) + (if (equal (downcase (cdr (car alist))) (downcase string)) (setq string (car (car alist)) alist nil) (setq alist (cdr alist))))) -- 1.7.10.4