procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix :match function for the file widget

Browse source 
* lisp/wid-edit.el (file widget): Return nil if value is not a
string (bug#25678).
This commit is contained in:
Mauro Aranda 2020-09-10 15:12:50 +02:00 • committed by Lars Ingebrigtsen
parent 5d522b430b
commit c033bb8648
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/wid-edit.el
View file

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