Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 531:0493e9f3c27f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-12 11:16:12 by ben] event-msw.c: eliminate cygwin warnings. dired.c, syswindows.h, win32.c: find the Net* functions the hard way to avoid errors on win 9x. find-paths.el: fix error with null EXCLUDE-REGEXP. font-lock.el: fix problem reported by hrvoje with buffers starting with a space. lib-complete.el: add a variable to control where `find-library' looks, analogous to `find-function-source-path'. etags.c: new version from Francesco. Makefile.in.in: i'm getting real tired of incomplete commits. is this getting worse or something?
author ben
date Sat, 12 May 2001 11:16:25 +0000
parents abe6d1db359e
children 6a0eecc6df0e
comparison
equal deleted inserted replaced
530:c948643d954f 531:0493e9f3c27f
67 (if (equal 0 max-depth) 67 (if (equal 0 max-depth)
68 '() 68 '()
69 (directory-files directory nil "^[^.-]"))) 69 (directory-files directory nil "^[^.-]")))
70 (reverse-dirs '())) 70 (reverse-dirs '()))
71 (while raw-entries 71 (while raw-entries
72 (if (null (string-match exclude-regexp (car raw-entries))) 72 (if (not (and exclude-regexp
73 (string-match exclude-regexp (car raw-entries))))
73 (setq reverse-dirs 74 (setq reverse-dirs
74 (cons (expand-file-name (car raw-entries) directory) 75 (cons (expand-file-name (car raw-entries) directory)
75 reverse-dirs))) 76 reverse-dirs)))
76 (setq raw-entries (cdr raw-entries))) 77 (setq raw-entries (cdr raw-entries)))
77 78