changeset 6899:45751abc406f

(basic-save-buffer): if selective-display is t, file may end in CR instead of LF.
author Karl Heuer <kwzh@gnu.org>
date Fri, 15 Apr 1994 22:39:31 +0000
parents a52a5141fecb
children a3fd3d082bc4
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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