From 0780be7902e231a02417445cba581b33a2c6add9 Mon Sep 17 00:00:00 2001 Message-Id: <0780be7902e231a02417445cba581b33a2c6add9.1746835317.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 24 Jan 2008 07:30:32 +0100 Subject: [PATCH] Homogenize buffer names MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Organization: Straylight/Edgeware From: Karl Hasselström 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 --- contrib/stgit.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/contrib/stgit.el b/contrib/stgit.el index 4d0faca..e8bbb2c 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -293,7 +293,7 @@ (defun stgit-edit () (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) @@ -313,7 +313,7 @@ (defun stgit-confirm-edit () (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 () @@ -352,7 +352,7 @@ (defun stgit-create-patch-name (description) (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) -- [mdw]