mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(msb--choose-file-menu): Fix previous change.

Browse Source
This commit is contained in:
Dave Love 1999-07-30 09:42:37 +00:00
parent c4d6496936
commit c88e53b7f8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/msb.el
View File

@ -597,7 +597,8 @@ 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))
(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 @@ 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))
(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.