branch: elpa/helm
commit 84a291b310f425cbdd52ec3d0b051ebd6e4ebe7a
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Move helm-common-dir to helm-lib
---
helm-files.el | 7 -------
helm-lib.el | 7 +++++++
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index ef432e2759..c81007183f 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6002,13 +6002,6 @@ and `dired-compress-files-alist'."
'helm-async-compress t)
(helm-ff--compress-async-modeline-mode 1)))
-(defun helm-common-dir (files)
- "Return the longest common directory path of FILES list"
- (cl-loop with base = (car files)
- for file in files
- do (setq base (fill-common-string-prefix base file))
- finally return (file-name-directory base)))
-
(defun helm-ff--dired-compress-file (file)
;; `dired-compress-file' doesn't take care of binding `default-directory'
when
;; uncompressing FILE, as a result FILE is uncompressed in the directory
where
diff --git a/helm-lib.el b/helm-lib.el
index 0584166d56..5b78ade8b9 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1894,6 +1894,13 @@ Take same args as `directory-files'."
;; Avoid error with 5nth arg COUNT which is not available in previous
Emacs,
;; at least 27.1, see bug#2662.
(apply #'directory-files directory args)))
+
+(defun helm-common-dir (files)
+ "Return the longest common directory path of FILES list"
+ (cl-loop with base = (car files)
+ for file in files
+ do (setq base (fill-common-string-prefix base file))
+ finally return (file-name-directory base)))
;;; helm internals
;;
