Fix :match function for the file widget

* lisp/wid-edit.el (file widget): Return nil if value is not a
string (bug#25678).

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index e9799dc00fdbbcfdf71ecab68896166799506f9f..bc2afc6a6fb9e454962c6b1fbf0ef6c9ec499a23 100644 (file)
--- 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)