From 3a768251332e3388b319c2092f5b28de7907e07e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 29 Jan 2001 20:36:26 +0000 Subject: (delete-trailing-whitespace): Don't delete formfeeds. --- lisp/simple.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/simple.el') diff --git a/lisp/simple.el b/lisp/simple.el index f81b05f13b1..092dfad5f16 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -237,6 +237,9 @@ This respects narrowing, created by \\[narrow-to-region] and friends." (goto-char (point-min)) (while (re-search-forward "\\s-$" nil t) (skip-syntax-backward "-" (save-excursion (forward-line 0) (point))) + ;; Don't delete formfeeds, even if they are considered whitespace. + (if (looking-at ".*\f") + (goto-char (match-end 0))) (delete-region (point) (match-end 0)))))) (defun newline-and-indent () -- cgit v1.2.1