ryuslash/mode-icons
1
0
Fork 0
mirror of https://github.com/ryuslash/mode-icons.git synced 2024-11-22 01:50:28 +01:00
Code Issues Projects Releases Packages Wiki Activity

Make sure replaced colors are case insensitive.

Browse source
This commit is contained in:
Matthew Fidler 2016-03-30 09:38:05 -05:00
parent 0601dc9218
commit ddb4e803d7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mode-icons.el
View file

@ -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) (defun mode-icons-get-icon-display-xpm-replace (icon-path rep-alist)
"Get xpm image from ICON-PATH and reaplce REP-ALIST in file." "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) (dolist (c rep-alist)
(setq img (replace-regexp-in-string (regexp-quote (car c)) (cdr c) img t t))) (setq img (replace-regexp-in-string (regexp-quote (car c)) (cdr c) img t t)))
img)) img))