branch: externals/filechooser
commit 7ffb384df44725fac414339f950a3afded062e66
Author: Rahguzar <rahgu...@zohomail.eu>
Commit: Rahguzar <rahgu...@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))))
