stgit.el: Make single file diff buffer read-only

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 9c88e6027cfecc3cd177a89cd71ee06eb47c08ec..b2ef43c40c491b18cce6cb83a44ebc17f5186aee 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -713,20 +713,17 @@ (defun stgit-show ()
             (unless patched-file
               (error "No patch or file at point"))
             (let ((id (stgit-id (car patched-file))))
             (unless patched-file
               (error "No patch or file at point"))
             (let ((id (stgit-id (car patched-file))))

-              (with-output-to-temp-buffer "*StGit diff*"
-                (if (consp (cdr patched-file))
-                    ;; two files (copy or rename)
-                    (stgit-run-git "diff" "-C" "-C" (concat id "^") id "--"
-                                   (cadr patched-file) (cddr patched-file))
-                  ;; just one file
-                  (stgit-run-git "diff" (concat id "^") id "--"
-                                 (cdr patched-file)))
-                (with-current-buffer standard-output
-                  (diff-mode)))))
-        (stgit-run "show" patchsym)
-        (with-current-buffer standard-output
-          (goto-char (point-min))
-          (diff-mode))))))
+             (if (consp (cdr patched-file))
+                 ;; two files (copy or rename)
+                 (stgit-run-git "diff" "-C" "-C" (concat id "^") id "--"
+                                (cadr patched-file) (cddr patched-file))
+               ;; just one file
+               (stgit-run-git "diff" (concat id "^") id "--"
+                              (cdr patched-file)))))
+        (stgit-run "show" patchsym))
+      (with-current-buffer standard-output
+       (goto-char (point-min))
+       (diff-mode)))))

 
 (defun stgit-edit ()
   "Edit the patch on the current line."
 
 (defun stgit-edit ()
   "Edit the patch on the current line."