Mercurial > emacs
changeset 25123:abf35a5606f6
(msb--choose-file-menu): Fix previous change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 30 Jul 1999 09:42:37 +0000 |
| parents | 2ed76ce5608e |
| children | 5ae84fc3bc96 |
| files | lisp/msb.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/msb.el Fri Jul 30 08:51:19 1999 +0000 +++ b/lisp/msb.el Fri Jul 30 09:42:37 1999 +0000 @@ -597,7 +597,8 @@ (while (and tmp-rest (<= (length buffers) max-clumped-together) (>= (length (car item)) (length path)) - (compare-strings path 0 nil (car item) 0 (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) @@ -635,11 +636,13 @@ (setq last-path path)) (when (and last-path (or (and (>= (length path) (length last-path)) - (compare-strings last-path 0 nil - path 0 (length last-path))) + (eq t (compare-strings last-path 0 nil + path 0 (length + last-path)))) (and (< (length path) (length last-path)) - (compare-strings path 0 nil - last-path 0 (length 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.