--- quilt-el-0.48.0-orig/quilt.el +++ quilt-el-0.48.0/quilt.el @@ -49,7 +49,7 @@ (defun quilt-find-dir (fn) "Return the top level dir of quilt from FN." - (if (or (not fn) (equal fn "/")) + (if (or (not fn) (equal fn (file-name-directory fn))) nil (let ((d (file-name-directory fn))) (if (file-accessible-directory-p (concat d "/.pc"))