From ddb4e803d7ab664b483d28a7a6141e04b009d022 Mon Sep 17 00:00:00 2001 From: Matthew Fidler Date: Wed, 30 Mar 2016 09:38:05 -0500 Subject: [PATCH] Make sure replaced colors are case insensitive. --- mode-icons.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/mode-icons.el b/mode-icons.el index b5bb918..6f6e7ef 100644 --- a/mode-icons.el +++ b/mode-icons.el @@ -274,7 +274,8 @@ without the extension. And the third being the type of icon." (defun mode-icons-get-icon-display-xpm-replace (icon-path rep-alist) "Get xpm image from ICON-PATH and reaplce REP-ALIST in file." - (let ((img (with-temp-buffer (insert-file-contents icon-path) (buffer-string)))) + (let ((case-fold-search t) + (img (with-temp-buffer (insert-file-contents icon-path) (buffer-string)))) (dolist (c rep-alist) (setq img (replace-regexp-in-string (regexp-quote (car c)) (cdr c) img t t))) img))