From aa33e6358c344d232cf1a11f8d40752e606796a1 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Mon, 20 Jan 2025 21:16:48 -0300 Subject: [PATCH] Avoid error with empty search string in Customize * lisp/cus-edit.el (custom-buffer-create-internal): Only call customize-apropos if the string is not empty. (Bug#75714) (cherry picked from commit d4ca688abefa90cf3e54add036b32c06b7da6363) --- lisp/cus-edit.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 8b9a101cecd..ee0e9a53f1b 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1830,14 +1830,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 -- 2.39.5