Re: [StGit PATCH] Homogenize buffer names

From: David Kågedal <davidk@lysator.liu.se>
Date: Jan 24, 2008, 08:51 UTC
Message-ID: <87ejc71u9c.fsf@lysator.liu.se>
In-Reply-To: <20080124075530.25461.20753.stgit@yoghurt>

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