From b9b37d2bf5149a02eb17eca20c4780fe53a13c4a Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 16 Aug 1999 11:29:58 +0000 Subject: [PATCH] (msb--choose-file-menu): Use `completion-ignore-case' in name comparisons. --- lisp/msb.el | 18 +++++++++++------- 1 file 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. -- 2.39.5