Helm: Fix cased mode support in helm-deflister

2019-03-10 11:29:26 +01:00 · 2019-03-10 11:29:26 +01:00 · fbc54259be
parent 4ed0cdbcf5
commit fbc54259be
1 changed files with 3 additions and 0 deletions
--- a/.emacs.d/lisp/patch-helm.el
+++ b/.emacs.d/lisp/patch-helm.el
@ -33,6 +33,9 @@
                                        when (funcall ,predicate b)
                                        collect (buffer-name b))))
              ,@(let ((mode (intern (format "%s-mode" (downcase name)))))
+                  (unless (fboundp mode)
+                    ;; For cased mode names like `Info-mode'.
+                    (setq mode (intern (format "%s-mode" name))))
                  (when (fboundp mode)
                    `((ambrevar/helm-source-buffer-not-found
                       ',mode