commit - 74b0000920b6527234aa4672c16b7c860042a3dc
commit + 3dcaa71b9f532e6986e492fb6971ebcc38188921
blob - 20b73ed7f965d0e4c8b5207a3c1a3c35208f935d
blob + c8ad954c69c99544fba73285786599bfe1d74e2c
--- vc-got.el
+++ vc-got.el
(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)
(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)