From f402ba38f52d407923f47a18372f84e2ad794ae7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 8 Jun 2002 18:28:06 +0000 Subject: [PATCH] (find-file-noselect-1): Undo previous change. --- lisp/ChangeLog | 2 ++ lisp/files.el | 25 ++++++++++++++----------- 2 files changed, 16 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f77e977f798..df6177b542f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2002-06-08 Richard M. Stallman + * files.el (find-file-noselect-1): Undo previous change. + * bookmark.el (bookmark-file-or-variation-thereof): Doc fix. 2002-06-07 Karl Fogel diff --git a/lisp/files.el b/lisp/files.el index f6f787cff4d..34fdefd6da6 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1286,15 +1286,14 @@ that are visiting the various files." (progn (make-local-variable 'backup-inhibited) (setq backup-inhibited t))) - (let ((buffer (current-buffer))) - (if rawfile - (progn - (set-buffer-multibyte nil) - (setq buffer-file-coding-system 'no-conversion) - (make-local-variable 'find-file-literally) - (setq find-file-literally t)) - (after-find-file error (not nowarn))) - buffer)))) + (if rawfile + (progn + (set-buffer-multibyte nil) + (setq buffer-file-coding-system 'no-conversion) + (make-local-variable 'find-file-literally) + (setq find-file-literally t)) + (after-find-file error (not nowarn))) + (current-buffer)))) (defun insert-file-contents-literally (filename &optional visit beg end replace) "Like `insert-file-contents', but only reads in the file literally. @@ -3223,8 +3222,12 @@ non-nil, it is called instead of rereading visited file contents." (if auto-save-p 'emacs-mule-unix coding-system-for-read))) ;; Note that this preserves point in an intelligent way. - (insert-file-contents file-name (not auto-save-p) - nil nil t)))) + (if preserve-modes + (let ((buffer-file-formats buffer-file-formats)) + (insert-file-contents file-name (not auto-save-p) + nil nil t)) + (insert-file-contents file-name (not auto-save-p) + nil nil t))))) ;; Recompute the truename in case changes in symlinks ;; have changed the truename. (setq buffer-file-truename -- 2.39.5