[nongnu] elpa/helm 5b385292ef 1/2: Make helm-dir-is-dot obsolete

[ELPA Syncer]

branch: elpa/helm
commit 5b385292ef64ea593de92b2f219436f449071ee4
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Make helm-dir-is-dot obsolete
---
 helm-files.el     | 6 +++---
 helm-for-files.el | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 7a697d91f8..973e2dbd44 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -2855,7 +2855,7 @@ when `helm-pattern' is equal to \"~/\"."
                      (not history-p) ; Don't try to auto complete in history.
                      (stringp cur-cand)
                      (file-accessible-directory-p cur-cand))
-            (if (and (not (helm-dir-is-dot cur-cand)) ; [1]
+            (if (and (not (helm-ff-dot-file-p cur-cand)) ; [1]
                      ;; Maybe we are here because completed-p is true
                      ;; but check this again to be sure. (Windows fix)
                      (<= candnum 2))    ; [2]
@@ -3712,8 +3712,8 @@ If PATTERN is a valid directory name, return PATTERN 
unchanged."
                      (helm--mapconcat-pattern bn)
                      (concat ".*" (regexp-quote bn))))))))
 
-(defun helm-dir-is-dot (dir)
-  (string-match "\\(?:/\\|\\`\\)\\.\\{1,2\\}\\'" dir))
+(defalias 'helm-dir-is-dot 'helm-ff-dot-file-p)
+(make-obsolete 'helm-dir-is-dot 'helm-ff-dot-file-p "3.8.8")
 
 (defun helm-ff-save-history ()
   "Store the last value of `helm-ff-default-directory' in `helm-ff-history'.
diff --git a/helm-for-files.el b/helm-for-files.el
index 3587fc72bf..7802b325cf 100644
--- a/helm-for-files.el
+++ b/helm-for-files.el
@@ -164,7 +164,7 @@ Colorize only symlinks, directories and files."
                             'identity)
            for i in files
            for disp = (if (and helm-ff-transformer-show-only-basename
-                               (not (helm-dir-is-dot i))
+                               (not (helm-ff-dot-file-p i))
                                (not (and helm--url-regexp
                                          (string-match helm--url-regexp i)))
                                (not (string-match helm-ff-url-regexp i)))