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

Avoid error with empty search string in Customize

Browse source 
* lisp/cus-edit.el (custom-buffer-create-internal): Only call
customize-apropos if the string is not empty.  (Bug#75714)
This commit is contained in:
Mauro Aranda 2025-01-20 21:16:48 -03:00 • committed by Eli Zaretskii
parent 0f3d4e157f
commit d4ca688abe
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/cus-edit.el
View file

@ -1774,14 +1774,17 @@ or a regular expression.")
'editable-field
:size 40 :help-echo echo
:action (lambda (widget &optional _event)
(customize-apropos (split-string (widget-value widget)))))))
(let ((value (widget-value widget)))
(if (string= value "")
(message "Empty search field")
(customize-apropos (split-string value))))))))
(widget-insert " ")
(widget-create-child-and-convert
search-widget 'push-button
:tag " Search "
:help-echo echo :action
(lambda (widget &optional _event)
(customize-apropos (split-string (widget-value (widget-get widget :parent))))))
(widget-apply (widget-get widget :parent) :action)))
(widget-insert "\n")))
;; The custom command buttons are also in the toolbar, so for a