app-emacs/quilt-el/files/quilt-el-0.48.0-tramp-recursion.patch


1
2
3
4
5
6
7
8
9
10
11

--- 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"))