comparison lisp/msb.el @ 25281:26430a2408d5

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

25280:9b601931b795

	;; Clump together the "rest"-buffers that have a path that is
	;; a subpath of the current one.
	(while (and tmp-rest
		    (<= (length buffers) max-clumped-together)
		    (>= (length (car item)) (length path))
		    (eq t (compare-strings path 0 nil
					   (car item) 0 (length path))))
	  (setq found-p t)
	  (setq buffers (append buffers (cdr item))) ;nconc is faster than append
	  (setq tmp-rest (cdr tmp-rest)
		item (car tmp-rest)))
	(cond

		buffers (cdr first))
	  (if (equal old-path path)
	      (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))))
			 (and (< (length path) (length last-path))
			      (eq t (compare-strings path 0 nil
						     last-path 0 (length
								  path))))))
	    ;; 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.
	    (push (cons (msb--format-title top-found-p
					   (car first)

25281:26430a2408d5

	;; Clump together the "rest"-buffers that have a path that is
	;; a subpath of the current one.
	(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)
					   completion-ignore-case)))
	  (setq found-p t)
	  (setq buffers (append buffers (cdr item))) ;nconc is faster than append
	  (setq tmp-rest (cdr tmp-rest)
		item (car tmp-rest)))
	(cond

		buffers (cdr first))
	  (if (equal old-path path)
	      (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)
				     completion-ignore-case)))
			 (and (< (length path) (length last-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.
	    (push (cons (msb--format-title top-found-p
					   (car first)