Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 182f72e8cd0d
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
261 (setq list (cdr list))) 261 (setq list (cdr list)))
262 (nreverse reverse-result))) 262 (nreverse reverse-result)))
263 263
264 (defun paths-decode-directory-path (string &optional drop-empties) 264 (defun paths-decode-directory-path (string &optional drop-empties)
265 "Split STRING at path separators into a directory list. 265 "Split STRING at path separators into a directory list.
266 Non-\"\" comonents are converted into directory form. 266 Non-\"\" components are converted into directory form.
267 If DROP-EMPTIES is non-NIL, \"\" components are dropped from the output. 267 If DROP-EMPTIES is non-NIL, \"\" components are dropped from the output.
268 Otherwise, they are left alone." 268 Otherwise, they are left alone."
269 (let* ((components (split-path string)) 269 (let* ((components (split-path string))
270 (directories 270 (directories
271 (mapcar #'(lambda (component) 271 (mapcar #'(lambda (component)