diff options
author | Richard M. Stallman <[email protected]> | 2002-06-08 18:28:06 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-06-08 18:28:06 +0000 |
commit | f402ba38f52d407923f47a18372f84e2ad794ae7 (patch) | |
tree | df4d83cd0019f81f48e16a089b43250360f00b2f /lisp/files.el | |
parent | fe1d72d007a9dc16caa8da74dfae0270a531adb0 (diff) |
(find-file-noselect-1): Undo previous change.
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/lisp/files.el b/lisp/files.el index f6f787cff4..34fdefd6da 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 |