diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/wid-edit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index e9799dc00fd..bc2afc6a6fb 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3162,8 +3162,9 @@ It reads a file name from an editable text field." #'completion-file-name-table (not read-file-name-completion-ignore-case)) :match (lambda (widget value) - (or (not (widget-get widget :must-match)) - (file-exists-p value))) + (and (stringp value) + (or (not (widget-get widget :must-match)) + (file-exists-p value)))) :validate (lambda (widget) (let ((value (widget-value widget))) (unless (widget-apply widget :match value) |