[nongnu] elpa/pdf-tools 154e31dc3c 4/8: Display a header line when editing annotation contents

[ELPA Syncer]

branch: elpa/pdf-tools
commit 154e31dc3cee2cfdd62e5ff11f17b5addee18f93
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Vedang Manerikar <ved.manerikar@gmail.com>

    Display a header line when editing annotation contents
---
 lisp/pdf-annot.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/lisp/pdf-annot.el b/lisp/pdf-annot.el
index 3b6359342e..abd9814c05 100644
--- a/lisp/pdf-annot.el
+++ b/lisp/pdf-annot.el
@@ -1453,9 +1453,9 @@ annotation's contents and otherwise `org-mode'."
   "Active when editing the contents of annotations."
   :group 'pdf-annot
   (when pdf-annot-edit-contents-minor-mode
-    (message "%s"
-             (substitute-command-keys
-              "Press \\[pdf-annot-edit-contents-commit] to commit your 
changes, \\[pdf-annot-edit-contents-abort] to abandon them."))))
+    (setq-local header-line-format
+                (substitute-command-keys "\
+Press \\[pdf-annot-edit-contents-commit] to commit your changes, 
\\[pdf-annot-edit-contents-abort] to abandon them."))))
 
 (put 'pdf-annot-edit-contents-minor-mode 'permanent-local t)
 
@@ -1510,11 +1510,8 @@ At any given point of time, only one annotation can be 
in edit mode."
         (pdf-annot-edit-contents-finalize 'ask)))
     (unless (buffer-live-p pdf-annot-edit-contents--buffer)
       (setq pdf-annot-edit-contents--buffer
-            (with-current-buffer (get-buffer-create
-                                  (format "*Edit Annotation %s*"
-                                          (buffer-name)))
-              (pdf-annot-edit-contents-minor-mode 1)
-              (current-buffer))))
+            (get-buffer-create
+             (format "*Edit Annotation %s*" (buffer-name)))))
     (with-current-buffer pdf-annot-edit-contents--buffer
       (let ((inhibit-read-only t))
         (erase-buffer)
@@ -1522,6 +1519,7 @@ At any given point of time, only one annotation can be in 
edit mode."
         (set-buffer-modified-p nil))
       (setq pdf-annot-edit-contents--annotation a)
       (funcall pdf-annot-edit-contents-setup-function a)
+      (pdf-annot-edit-contents-minor-mode 1)
       (current-buffer))))
 
 (defun pdf-annot-edit-contents (a)