From 0613e7c33d75a2bc7185439598893ad0bb24e110 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 27 Apr 2022 14:08:49 +0200 Subject: [PATCH] Add an instruction header line to string-edit * lisp/textmodes/string-edit.el (string-edit): Add a header line with instructions. --- lisp/textmodes/string-edit.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/textmodes/string-edit.el b/lisp/textmodes/string-edit.el index 7c3b5702248..ff8a492401c 100644 --- a/lisp/textmodes/string-edit.el +++ b/lisp/textmodes/string-edit.el @@ -66,6 +66,9 @@ buffer, but won't be included in the resulting string." (setq-local string-edit--success-callback success-callback) (when 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")) (message "%s" (substitute-command-keys "Type \\\\[string-edit-done] when you've finished editing"))) -- 2.39.2