diff options
| author | Karl Heuer <[email protected]> | 1994-04-15 22:39:31 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-04-15 22:39:31 +0000 |
| commit | 425c7aa85c457d39f3941f772198a381b4d61c70 (patch) | |
| tree | d292a6ee24d74a5b4438d30831a779ec283b7f77 | |
| parent | e846c982e69c20a63478d35f735b9f37303d5c44 (diff) | |
(basic-save-buffer): if selective-display is t, file may end in CR instead of
LF.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index f36dc409e4..389139b8f8 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1515,6 +1515,8 @@ the last real save, but optional arg FORCE non-nil means delete anyway." (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 |