Commit Diff


commit - 74b0000920b6527234aa4672c16b7c860042a3dc
commit + 3dcaa71b9f532e6986e492fb6971ebcc38188921
blob - 20b73ed7f965d0e4c8b5207a3c1a3c35208f935d
blob + c8ad954c69c99544fba73285786599bfe1d74e2c
--- vc-got.el
+++ vc-got.el
@@ -872,7 +872,11 @@ Creates the TAG using the content of the current buffe
   (let ((msg (buffer-substring-no-properties (point-min)
                                              (point-max))))
     (with-temp-buffer
-      (unless (zerop (vc-got--call "tag" "-m" msg "--" tag))
+      (unless (zerop (vc-got--call "tag"
+                                   "-m"
+                                   (log-edit-extract-headers nil msg)
+                                   "--"
+                                   tag))
         (error "[vc-got] can't create tag %s: %s" tag (buffer-string))))))
 
 (defun vc-got-create-tag (_dir name branchp)
@@ -887,6 +891,9 @@ true, NAME should create a new branch otherwise it wil
     (let ((buf (get-buffer-create "*vc-got tag*")))
       (with-current-buffer buf
         (erase-buffer)
+        (save-excursion
+          (insert "Summary: tag " name "\n\n"))
+        (move-end-of-line 1)
         (switch-to-buffer buf)
         (log-edit (lambda ()
                     (interactive)