Mercurial > emacs
changeset 25281:26430a2408d5
(msb--choose-file-menu): Use `completion-ignore-case' in name
comparisons.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 16 Aug 1999 11:29:58 +0000 |
| parents | 9b601931b795 |
| children | e09cfa43a165 |
| files | lisp/msb.el |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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.