Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 7df0dd720c89
children 57709be46d1b
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
248 (defun paths-decode-directory-path (string &optional drop-empties) 248 (defun paths-decode-directory-path (string &optional drop-empties)
249 "Split STRING at path separators into a directory list. 249 "Split STRING at path separators into a directory list.
250 Non-\"\" comonents are converted into directory form. 250 Non-\"\" comonents are converted into directory form.
251 If DROP-EMPTIES is non-NIL, \"\" components are dropped from the output. 251 If DROP-EMPTIES is non-NIL, \"\" components are dropped from the output.
252 Otherwise, they are left alone." 252 Otherwise, they are left alone."
253 (let* ((components (decode-path-internal string)) 253 (let* ((components (split-path string))
254 (directories 254 (directories
255 (mapcar #'(lambda (component) 255 (mapcar #'(lambda (component)
256 (if (string-equal "" component) 256 (if (string-equal "" component)
257 component 257 component
258 (file-name-as-directory component))) 258 (file-name-as-directory component)))