Make sure that case in matches is preserved

This commit is contained in:
Matthew Fidler 2016-03-15 08:00:10 -05:00
parent 4febdb5418
commit 6d592fb195

View file

@ -190,7 +190,7 @@ This was stole/modified from `c-save-buffer-state'"
("Custom" #xf013 FontAwesome) ("Custom" #xf013 FontAwesome)
("\\`Go\\'" "go" xpm) ("\\`Go\\'" "go" xpm)
(" Rbow" "rainbow" xpm) (" Rbow" "rainbow" xpm)
(" Icy" "icy" xpm) ;; http://www.clipartpal.com/clipart_pd/weather/ice_10206.htmlr (" ICY" "icy" xpm) ;; http://www.clipartpal.com/clipart_pd/weather/ice_10206.htmlr
(" Golden" "golden" xpm) ;; Icon created by Arthur Shlain from Noun Project (" Golden" "golden" xpm) ;; Icon created by Arthur Shlain from Noun Project
("BibTeX" "bibtex" xpm) ("BibTeX" "bibtex" xpm)
("C[+][+]/l" #xf10c font-mfizz) ("C[+][+]/l" #xf10c font-mfizz)
@ -451,6 +451,7 @@ ICON-SPEC should be a specification from `mode-icons'."
(defun mode-icons-get-icon-spec (mode) (defun mode-icons-get-icon-spec (mode)
"Get icon spec for MODE based on regular expression." "Get icon spec for MODE based on regular expression."
(let (case-fold-search)
(catch 'found-mode (catch 'found-mode
(dolist (item mode-icons) (dolist (item mode-icons)
(when (and (mode-icons-supported-p item) (when (and (mode-icons-supported-p item)
@ -464,7 +465,7 @@ ICON-SPEC should be a specification from `mode-icons'."
(symbolp mode) (symbolp mode)
(eq mode (car item))))) (eq mode (car item)))))
(throw 'found-mode item))) (throw 'found-mode item)))
nil)) nil)))
(defcustom mode-icons-show-mode-name nil (defcustom mode-icons-show-mode-name nil
"Show Icon and `mode-name'." "Show Icon and `mode-name'."