(msb--choose-file-menu): Use `completion-ignore-case' in name

comparisons.

1 files changed, 11 insertions, 7 deletions

diff --git a/lisp/msb.el b/lisp/msb.el
index cb1706fdf71..c1210fd676b 100644
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -597,8 +597,11 @@ If the argument is left out or nil, then the current buffer is considered."
 	(while (and tmp-rest
 		    (<= (length buffers) max-clumped-together)
 		    (>= (length (car item)) (length path))
+		    ;; `completion-ignore-case' seems to default to t
+		    ;; on the systems with case-insensitive file names.
 		    (eq t (compare-strings path 0 nil
-					   (car item) 0 (length path))))
+					   (car item) 0 (length path)
+					   completion-ignore-case)))
 	  (setq found-p t)
 	  (setq buffers (append buffers (cdr item))) ;nconc is faster than append
 	  (setq tmp-rest (cdr tmp-rest)
@@ -636,13 +639,14 @@ If the argument is left out or nil, then the current buffer is considered."
 	      (setq last-path path))
 	  (when (and last-path
 		     (or (and (>= (length path) (length last-path))
-			      (eq t (compare-strings last-path 0 nil
-						     path 0 (length
-							     last-path))))
+			      (eq t (compare-strings
+				     last-path 0 nil path 0
+				     (length last-path)
+				     completion-ignore-case)))
 			 (and (< (length path) (length last-path))
-			      (eq t (compare-strings path 0 nil
-						     last-path 0 (length
-								  path))))))
+			      (eq t (compare-strings
+				     path 0 nil last-path 0 (length path)
+				     completion-ignore-case)))))
 	    ;; We have reached the same place in the file hierarchy as
 	    ;; the last result, so we should quit at this point and
 	    ;; take what we have as result.