From c033bb8648dc6fc14c96925710d662dbcd214cc7 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Thu, 10 Sep 2020 15:12:50 +0200 Subject: [PATCH] Fix :match function for the file widget * lisp/wid-edit.el (file widget): Return nil if value is not a string (bug#25678). --- lisp/wid-edit.el | 5 +++-- 1 file 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) -- 2.39.5