[StGit PATCH] Homogenize buffer names

Karl Hasselström· Jan 24, 2008, 07:55 UTC · lore

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>

---

David, do you agree with this fix?

 contrib/stgit.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

Show changes to contrib/stgit.el +3 −3

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 @@ Commands:
   (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 @@ Commands:
 (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 @@ Commands:
 (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)

David Kågedal· Jan 24, 2008, 08:51 UTC · re: Karl Hasselström · lore

Re: [StGit PATCH] Homogenize buffer names

Karl Hasselström <kha@treskal.com> writes:

> It was driving me crazy that I couldn't tab-complete "*stg" to
> "*stgit*" because there was always a "*stgit edit*" buffer lying
> around.

At least I have been annoyed by it as well. So I think it's an ok change.

Show 42 quoted lines

> Signed-off-by: Karl Hasselström <kha@treskal.com>
>
> ---
>
> David, do you agree with this fix?
>
>  contrib/stgit.el |    6 +++---
>  1 files 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 @@ Commands:
>    (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 @@ Commands:
>  (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 @@ Commands:
>  (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)
>

-- 
David Kågedal

patchHomogenize buffer names