Bug: org-mks case insensitive search breaks org-capture-templates groups [9.3.1 (release_9.3.1-108-gebf8b3 @ /home/n/.emacs.d/straight/build/org-plus-contrib/)]

[No Wayman]

Remember to cover the basics, that is, what you expected to happen 
and
what in fact did happen.  You don't know how to make a good 
report?  See

    https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

Considering the following org-capture-templates:
#+begin_src emacs-lisp
(let ((org-capture-templates '(("l"  "Lower case")
                              ("l1" "Lower case test" plain (file 
                              "") nil)
                              ("l2" "Lower case test" plain (file 
                              "") nil)
                              ("L"  "Upper case")
                              ("Lt" "Upper case test" plain (file 
                              "") nil))))
 (org-capture))
#+end_src

I would expect hitting "l" from the *Org Select* buffer would only 
show the templates prefixed with "l".
However all templates are in the sub-menu.

I believe the cause is that case-fold-search is not temporarily 
set to nil in the org-mks function.
This small patch results in the correct behavior for me:

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 7545e60b0..cc3a8be12 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -414,6 +414,7 @@ alist with (\"key\" \"description\") entries. 
When one of these
is selected, only the bare key is returned."
  (save-window-excursion
    (let ((inhibit-quit t)
+          (case-fold-search nil)
          (buffer (org-switch-to-buffer-other-window "*Org Select*"))
          (prompt (or prompt "Select: "))
          current)


Emacs  : GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X 
toolkit, cairo version 1.17.3, Xaw3d scroll bars)
of 2020-01-17
Package: Org mode version 9.3.1 (release_9.3.1-108-gebf8b3 @ 
/home/n/.emacs.d/straight/build/org-plus-contrib/)