magit--insert-blob-contents: Spin out new function

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 960a4f9..b41d07b 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1335,6 +1335,15 @@ Sorted from longest to shortest CYGWIN name."
   (mapcar (##split-string % " ")
           (magit-git-lines "ls-files" "--stage" "--" file)))
 
+(defun magit--insert-blob-contents (rev file)
+  (let ((coding-system-for-read (or coding-system-for-read 'undecided)))
+    (magit-git-insert "cat-file" "-p"
+                      (if (equal rev "{index}")
+                          (concat ":" file)
+                        (concat rev ":" file)))
+    (setq buffer-file-coding-system last-coding-system-used)
+    nil))
+
 ;;; Predicates
 
 (defun magit-no-commit-p ()