[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vc-got 3dcaa71 139/145: improve tag creation buffer
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vc-got 3dcaa71 139/145: improve tag creation buffer |
Date: |
Thu, 9 Sep 2021 15:58:50 -0400 (EDT) |
branch: externals/vc-got
commit 3dcaa71b9f532e6986e492fb6971ebcc38188921
Author: Omar Polo <op@omarpolo.com>
Commit: Omar Polo <op@omarpolo.com>
improve tag creation buffer
initialize the log-edit buffer with `Summary: tag <version>'
---
vc-got.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/vc-got.el b/vc-got.el
index 20b73ed..c8ad954 100755
--- a/vc-got.el
+++ b/vc-got.el
@@ -872,7 +872,11 @@ Creates the TAG using the content of the current buffer."
(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 will
pop-up a
(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)
- [elpa] externals/vc-got 09d5937 103/145: implement retrieve-tag and complete the tag system!, (continued)
- [elpa] externals/vc-got 09d5937 103/145: implement retrieve-tag and complete the tag system!, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got e104d04 122/145: update the year, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got d3ca33b 116/145: add the required "headers" for a package, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 1d573c9 119/145: rename arguments to emphasize that they must be files, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 61b9a83 124/145: add the keyword `tools', like in vc-git, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 00eb9c8 127/145: add `lint' target, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 95a78ec 134/145: missing require and split setq-locals, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 4b3c0c6 132/145: add Timo as author, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 3ec8a8b 130/145: chores, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 5154c5c 136/145: switch to `got send' for pushing, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 3dcaa71 139/145: improve tag creation buffer,
ELPA Syncer <=
- [elpa] externals/vc-got adbe5db 143/145: move the copyright to the FSF, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 2a50da6 140/145: push doesn't use git anymore, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 961d35b 142/145: fix find-revision, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got a1679b1 144/145: automatically register the backend and ignore the .got directory, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 8fc127f 145/145: bump version, ELPA Syncer, 2021/09/09
- [elpa] externals/vc-got 5509116 018/145: implement vc-got-find-ignore-file, ELPA Syncer, 2021/09/09