insert-file-contents-literally

[Dr Francis J. Wright]

In Emacs 21.3 (and previous versions) the function
`insert-file-contents-literally' sets a local value for
`inhibit-file-name-handlers', thereby ignoring its global value and
preventing the function from being called within a magic file name handler.
I propose the fix shown below (context diff followed by changelog entry).  I
have been testing this revised version (in NTEmacs) for some time and I have
not noticed any problems with it.


e:\NTEmacs\emacs-21.3\lisp>diff -c files.el files.fjw.el
*** files.el Thu Oct 24 14:07:56 2002
--- files.fjw.el Tue May 06 14:51:20 2003
***************
*** 1196,1202 ****
    (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))
      (unwind-protect
   (progn
--- 1196,1204 ----
    (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


2003-05-06  Francis J. Wright  <F.J.Wright@qmul.ac.uk>

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


---

Dr Francis J. Wright
School of Mathematical Sciences, Queen Mary
University of London, Mile End Road, London E1 4NS, UK
Tel: 020 7882 5453 (direct);  Fax: 020 8981 9587 (dept.)
F.J.Wright@qmul.ac.uk;  http://centaur.maths.qmul.ac.uk/