It was driving me crazy that I couldn't tab-complete "*stg" to
"*stgit*" because there was always a "*stgit edit*" buffer lying
around.
Signed-off-by: Karl Hasselström <kha@treskal.com>
(let ((patch (if (stgit-applied-at-point)
(stgit-patch-at-point)
(error "This patch is not applied")))
(let ((patch (if (stgit-applied-at-point)
(stgit-patch-at-point)
(error "This patch is not applied")))
- (edit-buf (get-buffer-create "*stgit edit*"))
+ (edit-buf (get-buffer-create "*StGit edit*"))
(dir default-directory))
(log-edit 'stgit-confirm-edit t nil edit-buf)
(set (make-local-variable 'stgit-edit-patch) patch)
(dir default-directory))
(log-edit 'stgit-confirm-edit t nil edit-buf)
(set (make-local-variable 'stgit-edit-patch) patch)
(defun stgit-new ()
"Create a new patch"
(interactive)
(defun stgit-new ()
"Create a new patch"
(interactive)
- (let ((edit-buf (get-buffer-create "*stgit edit*")))
+ (let ((edit-buf (get-buffer-create "*StGit edit*")))
(log-edit 'stgit-confirm-new t nil edit-buf)))
(defun stgit-confirm-new ()
(log-edit 'stgit-confirm-new t nil edit-buf)))
(defun stgit-confirm-new ()
(defun stgit-coalesce (patch-names)
"Run stg coalesce on the named patches"
(interactive (list (stgit-marked-patches)))
(defun stgit-coalesce (patch-names)
"Run stg coalesce on the named patches"
(interactive (list (stgit-marked-patches)))
- (let ((edit-buf (get-buffer-create "*stgit edit*"))
+ (let ((edit-buf (get-buffer-create "*StGit edit*"))
(dir default-directory))
(log-edit 'stgit-confirm-coalesce t nil edit-buf)
(set (make-local-variable 'stgit-patches) patch-names)
(dir default-directory))
(log-edit 'stgit-confirm-coalesce t nil edit-buf)
(set (make-local-variable 'stgit-patches) patch-names)