Nicolas Goaziou пре 8 година
родитељ
комит
319c05f1dc
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -25032,7 +25032,8 @@ when non-nil, is a regexp matching keywords names."
   "Produce the index for Imenu."
   (dolist (x org-imenu-markers) (move-marker x nil))
   (setq org-imenu-markers nil)
-  (let* ((n org-imenu-depth)
+  (let* ((case-fold-search nil)
+	 (n org-imenu-depth)
 	 (re (concat "^" (org-get-limited-outline-regexp)))
 	 (subs (make-vector (1+ n) nil))
 	 (last-level 0)