(switch-to-buffer "*KiteAB Emacs*")
(setq kiteab/git-commit-concat (concat
kiteab/git-commit-type
"("
kiteab/git-commit-files
"): "
kiteab/git-commit-content))
(insert kiteab/git-commit-concat)
(setq kiteab/git-commit-ctn (read-from-minibuffer "[KiteAB Emacs] This is the current mmit content. Insert or cancel? "))
(if (string= kiteab/git-commit-ctn "y")
(progn
(kill-current-buffer)
(insert kiteab/git-commit-concat))
(kill-current-buffer))
代码写得烂 勿喷