From b8b7a0359e66a378f098e465dd6ebdbf0d7aefa8 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Wed, 2 Feb 2011 18:13:03 -0500 Subject: [PATCH] Bugfix: fileset-whole-root-dir, return directory even if common prefix is file. --- fileset-whole.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/fileset-whole.el b/fileset-whole.el index 9bd000b..f9d063b 100644 --- a/fileset-whole.el +++ b/fileset-whole.el @@ -311,10 +311,13 @@ files that satisfy it." (let* ((fileset (filesets-whole->fileset fileset)) - (files (filesets-get-filelist fileset nil nil))) - (reduce - #'fill-common-string-prefix - files))) + (files (filesets-get-filelist fileset nil nil)) + (prefix + (reduce + #'fill-common-string-prefix + files))) + (file-name-directory prefix))) + ;;;_ , Maintaining fileset-whole data -- 2.11.4.GIT