[elpa] master b2de434: gited--output-buffer: Set default-directory to `gited-toplevel-dir'

[Tino Calancha]

branch: master
commit b2de434c77168ebfefe6ea364f401533e6da349b
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    gited--output-buffer: Set default-directory to `gited-toplevel-dir'
    
    This helps `diff-goto-source' and `diff-apply-hunk' to find
    the target file.
    
    * packages/gited/gited.el (gited--output-buffer):
    Set default-directory to `gited-toplevel-dir' in this buffer.
---
 packages/gited/gited.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/packages/gited/gited.el b/packages/gited/gited.el
index 07715dc..9ef1798 100644
--- a/packages/gited/gited.el
+++ b/packages/gited/gited.el
@@ -8,11 +8,11 @@
 
 ;; Created: Wed Oct 26 01:28:54 JST 2016
 ;; Compatibility: GNU Emacs: 24.4
-;; Version: 0.5.4
+;; Version: 0.5.5
 ;; Package-Requires: ((emacs "24.4") (cl-lib "0.5"))
-;; Last-Updated: Tue Jul 30 18:28:26 CEST 2019
+;; Last-Updated: Thu Sep 05 05:02:26 CEST 2019
 ;;           By: calancha
-;;     Update #: 698
+;;     Update #: 699
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -950,7 +950,13 @@ You can then feed the file name(s) to other commands with 
\\[yank]."
                        (equal default-directory
                               (buffer-local-value 'default-directory buf))
                        buf)
-                  (generate-new-buffer buf-name))))
+                  (let* ((toplevel-dir gited-toplevel-dir)
+                         (new-buffer (generate-new-buffer buf-name)))
+                    (with-current-buffer new-buffer
+                      ;; Set default directory as `gited-toplevel-dir'; this 
helps
+                      ;; `diff-apply-hunk' or `diff-goto-source' to find the 
target file.
+                      (setq default-directory gited-toplevel-dir))
+                    new-buffer))))
     (if (equal buf-name gited-bisect-buf-name)
         (setq gited-bisect-buffer res)
       (setq gited-output-buffer res))))