diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2020-09-10 15:12:50 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-10 15:12:50 +0200 |
| commit | c033bb8648dc6fc14c96925710d662dbcd214cc7 (patch) | |
| tree | 2ba13274a40f3a387e15fe107239c25fee8dbb01 /lisp | |
| parent | 5d522b430bd5ecfb8f082906cd634883dbb68f3e (diff) | |
| download | emacs-c033bb8648dc6fc14c96925710d662dbcd214cc7.tar.gz emacs-c033bb8648dc6fc14c96925710d662dbcd214cc7.tar.bz2 emacs-c033bb8648dc6fc14c96925710d662dbcd214cc7.zip | |
Fix :match function for the file widget
* lisp/wid-edit.el (file widget): Return nil if value is not a
string (bug#25678).
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) |