[nongnu] elpa/wfnames 73104c1cbd 29/98: Fix group and use someting else than helm-basedir

[ELPA Syncer]

branch: elpa/wfnames
commit 73104c1cbdcc6ad35b7b6f1b0a5ac295e99ab2b0
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix group and use someting else than helm-basedir
---
 wfnames.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/wfnames.el b/wfnames.el
index 322459d0ad..d3024203b8 100644
--- a/wfnames.el
+++ b/wfnames.el
@@ -19,7 +19,8 @@
 
 
 (defgroup wfnames nil
-  "A mode to edit filenames.")
+  "A mode to edit filenames."
+  :group 'wfnames)
 
 (defcustom wfnames-create-parent-directories nil
   "Create parent directories when non nil."
@@ -147,7 +148,8 @@ Special commands:
                                 (t ; Now really rename files.
                                  (when wfnames-create-parent-directories
                                    ;; Check if base directory of new exists.
-                                   (let ((basedir (helm-basedir new 'parent)))
+                                   (let ((basedir (file-name-directory
+                                                   (directory-file-name  
new))))
                                      (unless (file-directory-p basedir)
                                        (mkdir basedir 'parents))))
                                  (rename-file