From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 7 May 2003 22:23:01 +0000 (+0000)
Subject: (insert-file-contents-literally): Allow it to be called within a magic file name
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b12ac2a538b4d0b790ec3b0cf19d934a81c1a07;p=emacs.git

(insert-file-contents-literally): Allow it to be called within a magic file name
handler.
---

diff --git a/lisp/files.el b/lisp/files.el
index 56f23043b10..9ee2349ae27 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1193,15 +1193,17 @@ This function ensures that none of these modifications will take place."
 	(coding-system-for-read 'no-conversion)
 	(coding-system-for-write 'no-conversion)
 	(find-buffer-file-type-function
-	 (if (fboundp 'find-buffer-file-type)
-	     (symbol-function 'find-buffer-file-type)
-	   nil))
-	(inhibit-file-name-handlers '(jka-compr-handler image-file-handler))
-	(inhibit-file-name-operation 'insert-file-contents))
+         (if (fboundp 'find-buffer-file-type)
+             (symbol-function 'find-buffer-file-type)
+           nil))
+        (inhibit-file-name-handlers
+         (append '(jka-compr-handler image-file-handler)
+                 inhibit-file-name-handlers))
+        (inhibit-file-name-operation 'insert-file-contents))
     (unwind-protect
-	(progn
-	  (fset 'find-buffer-file-type (lambda (filename) t))
-	  (insert-file-contents filename visit beg end replace))
+         (progn
+           (fset 'find-buffer-file-type (lambda (filename) t))
+           (insert-file-contents filename visit beg end replace))
       (if find-buffer-file-type-function
 	  (fset 'find-buffer-file-type find-buffer-file-type-function)
 	(fmakunbound 'find-buffer-file-type)))))