# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974394267 0
# Node ID 786f1533a10fcb7c4e3f1f8c128a351830f7dd7d
# Parent  086e910eefc94b651e0c00ab6db0782d964a8f77
(basic-save-buffer): Don't add a newline if
find-file-literally is non-nil.
(find-file-literally): Extend doc string.

diff -r 086e910eefc9 -r 786f1533a10f lisp/files.el
--- a/lisp/files.el	Thu Nov 16 16:45:52 2000 +0000
+++ b/lisp/files.el	Thu Nov 16 17:04:27 2000 +0000
@@ -1214,7 +1214,8 @@
 and multibyte characters are disabled in the resulting buffer.
 The major mode used is Fundamental mode regardless of the file name,
 and local variable specifications in the file are ignored.
-Automatic uncompression is also disabled.
+Automatic uncompression and adding a newline at the end of the
+file due to `require-final-newline' is also disabled.
 
 You cannot absolutely rely on this function to result in
 visiting the file literally.  If Emacs already has a buffer
@@ -2591,6 +2592,7 @@
 	    (widen)
 	    (save-excursion
 	      (and (> (point-max) 1)
+		   (not find-file-literally)
 		   (/= (char-after (1- (point-max))) ?\n)
 		   (not (and (eq selective-display t)
 			     (= (char-after (1- (point-max))) ?\r)))