From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 27 Apr 2022 12:08:49 +0000 (+0200)
Subject: Add an instruction header line to string-edit
X-Git-Tag: emacs-29.0.90~1931^2~274
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0613e7c33d75a2bc7185439598893ad0bb24e110;p=emacs.git

Add an instruction header line to string-edit

* lisp/textmodes/string-edit.el (string-edit): Add a header line
with instructions.
---

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-mode-map>\\[string-edit-done] when you've finished editing or \\[string-edit-abort] to abort"))
   (message "%s" (substitute-command-keys
                  "Type \\<string-edit-mode-map>\\[string-edit-done] when you've finished editing")))