]> git.eshelyaron.com Git - emacs.git/commitdiff
Make find-file-literally ignore local variables again
authorLars Ingebrigtsen <larsi@gnus.org>
Mon, 21 Jun 2021 12:50:59 +0000 (14:50 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Mon, 21 Jun 2021 12:50:59 +0000 (14:50 +0200)
* lisp/files.el (find-file-noselect-1): Re-inhibit local variables
when loading a file literally (bug#49143).  This was broken by
5bedbe6b1d.

lisp/files.el

index 2450daf5bfca9b3f7ad829028466507b55d6c541..13dda0932a2537d171c4ca7ddb506331c700ed41 100644 (file)
@@ -2429,7 +2429,8 @@ Do you want to revisit the file normally now? ")))
           (set-buffer-multibyte t))
       (if rawfile
          (condition-case ()
-             (let ((inhibit-read-only t))
+             (let ((inhibit-read-only t)
+                    (enable-local-variables nil))
                (insert-file-contents-literally filename t))
            (file-error
             (when (and (file-exists-p filename)
@@ -2468,7 +2469,7 @@ Do you want to revisit the file normally now? ")))
           (not (funcall backup-enable-predicate buffer-file-name))
            (setq-local backup-inhibited t))
       (if rawfile
-         (progn
+         (let ((enable-local-variables nil))
            (set-buffer-multibyte nil)
            (setq buffer-file-coding-system 'no-conversion)
            (set-buffer-major-mode buf)