# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 766449571 0
# Node ID 45751abc406fd2198b9dbb6997f09275fc05607b
# Parent  a52a5141fecb6337b819bbe4816f033fd08d9a43
(basic-save-buffer): if selective-display is t, file may end in CR instead of
LF.

diff -r a52a5141fecb -r 45751abc406f lisp/files.el
--- a/lisp/files.el	Fri Apr 15 22:26:34 1994 +0000
+++ b/lisp/files.el	Fri Apr 15 22:39:31 1994 +0000
@@ -1515,6 +1515,8 @@
 	  (widen)
 	  (and (> (point-max) 1)
 	       (/= (char-after (1- (point-max))) ?\n)
+	       (not (and (eq selective-display t)
+			 (= (char-after (1- (point-max))) ?\r)))
 	       (or (eq require-final-newline t)
 		   (and require-final-newline
 			(y-or-n-p