# HG changeset patch # User Dave Love # Date 934802998 0 # Node ID 26430a2408d5e1cd9ccb23b79f55ab189aa86a19 # Parent 9b601931b7957c7cc5fd3e249d8e3f24cdb723ce (msb--choose-file-menu): Use `completion-ignore-case' in name comparisons. diff -r 9b601931b795 -r 26430a2408d5 lisp/msb.el --- a/lisp/msb.el Mon Aug 16 07:42:41 1999 +0000 +++ b/lisp/msb.el Mon Aug 16 11:29:58 1999 +0000 @@ -597,8 +597,11 @@ (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 @@ (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.