[elpa] externals/filechooser 7ffb384df4 1/3: Improved handling of default and empty strings

[ELPA Syncer]

branch: externals/filechooser
commit 7ffb384df44725fac414339f950a3afded062e66
Author: Rahguzar <rahguzar@zohomail.eu>
Commit: Rahguzar <rahguzar@zohomail.eu>

    Improved handling of default and empty strings
---
 filechooser.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/filechooser.el b/filechooser.el
index ea71213fce..191356baae 100644
--- a/filechooser.el
+++ b/filechooser.el
@@ -302,6 +302,10 @@ If MULTIPLE is non-nil `completing-read-multiple' is used."
                     (delq nil (mapcar (lambda (flt) (if (cddr flt) (cadr flt)))
                                       filechooser--filters))
                     dir default)))
+    (when (equal result default)
+      (setq result (expand-file-name default dir)))
+    (when (and default (file-directory-p result))
+      (setq result (expand-file-name default result)))
     (if (or mustmatch (not (file-exists-p result)))
         result
       (filechooser--handle-exisiting-file result dir filters))))