From 06da63053998edcb7c949f2aae47593184a9b6bb Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 8 Jun 2024 16:07:24 +0300 Subject: [PATCH] Fix 'string-edit' when abort-callback is omitted * lisp/textmodes/string-edit.el (string-edit): Set 'string-edit--abort-callback' even if ABORT-CALLBACK is nil. (Bug#71406) (cherry picked from commit bd50c804eca3c15388d4c2d0ad12040c562bddb0) --- lisp/textmodes/string-edit.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/textmodes/string-edit.el b/lisp/textmodes/string-edit.el index 03be426ac25..cafed5a1e16 100644 --- a/lisp/textmodes/string-edit.el +++ b/lisp/textmodes/string-edit.el @@ -75,8 +75,7 @@ Also see `read-string-from-buffer'." (setq buffer-undo-list nil) (string-edit-mode) (setq-local string-edit--success-callback success-callback) - (when abort-callback - (setq-local string-edit--abort-callback abort-callback)) + (setq-local string-edit--abort-callback abort-callback) (setq-local header-line-format (substitute-command-keys "Type \\\\[string-edit-done] when you've finished editing or \\[string-edit-abort] to abort")) -- 2.39.5