(delete-trailing-whitespace): Save match data

around looking-at.  From Markus Rost <rost@math.ohio-state.edu>.

diff --git a/lisp/simple.el b/lisp/simple.el
index dec66469c107e5641a523661170ade68216d9a31..51887986f60e425ea5fa4e8301923915b3206974 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -239,8 +239,9 @@ A formfeed is not considered whitespace by this function."
       (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)))
+       (save-match-data
+         (if (looking-at ".*\f")
+             (goto-char (match-end 0))))
        (delete-region (point) (match-end 0))))))
 
 (defun newline-and-indent ()