Fix f-common-parent if input list has just one element

1 files changed, 12 insertions, 8 deletions

diff --git a/f.el b/f.el
index 1d2599f..6d7a23c 100644
--- a/f.el
+++ b/f.el
@@ -93,14 +93,18 @@ If PATH is not allowed to be modified, throw error."
 
 (defun f-common-parent (paths)
   "Return the deepest common parent directory of PATHS."
-  (let* ((paths (-map 'f-split paths))
-         (common (caar paths))
-         (re nil))
-    (while (--all? (equal (car it) common) paths)
-      (setq paths (-map 'cdr paths))
-      (push common re)
-      (setq common (caar paths)))
-    (if re (concat (apply 'f-join (nreverse re)) "/") "")))
+  (cond
+   ((not paths) nil)
+   ((not (cdr paths)) (f-parent (car paths)))
+   (:otherwise
+    (let* ((paths (-map 'f-split paths))
+           (common (caar paths))
+           (re nil))
+      (while (--all? (equal (car it) common) paths)
+        (setq paths (-map 'cdr paths))
+        (push common re)
+        (setq common (caar paths)))
+      (if re (concat (apply 'f-join (nreverse re)) "/") "")))))
 
 (defun f-ext (path)
   "Return the file extension of PATH."