From: Mauro Aranda <maurooaranda@gmail.com>
Date: Thu, 10 Sep 2020 13:12:50 +0000 (+0200)
Subject: Fix :match function for the file widget
X-Git-Tag: emacs-28.0.90~6153
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c033bb8648dc6fc14c96925710d662dbcd214cc7;p=emacs.git

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 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)