Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/find-paths.el	Mon Aug 13 10:33:19 2007 +0200
+++ b/lisp/find-paths.el	Mon Aug 13 10:34:13 2007 +0200
@@ -250,7 +250,7 @@
 Non-\"\" comonents are converted into directory form.
 If DROP-EMPTIES is non-NIL, \"\" components are dropped from the output.
 Otherwise, they are left alone."
-  (let* ((components (decode-path-internal string))
+  (let* ((components (split-path string))
 	 (directories
 	  (mapcar #'(lambda (component)
 		      (if (string-equal "" component)