# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980800372 0
# Node ID 023e7de7806fa55b1582f8ffd186589b9e49aca3
# Parent  60d4d3e49275c2cc90481af33206515a9596c0cd
(delete-trailing-whitespace): Don't delete formfeeds.

diff -r 60d4d3e49275 -r 023e7de7806f lisp/simple.el
--- a/lisp/simple.el	Mon Jan 29 20:23:47 2001 +0000
+++ b/lisp/simple.el	Mon Jan 29 20:32:52 2001 +0000
@@ -237,6 +237,9 @@
       (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 ()