From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 23 Sep 2011 15:06:14 +0000 (-0400)
Subject: * lisp/simple.el (delete-trailing-whitespace): Document last change; simplify.
X-Git-Tag: emacs-pretest-24.0.90~34
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db4e950db70e655d72d8d45d91e90674b25b47e4;p=emacs.git

* lisp/simple.el (delete-trailing-whitespace): Document last change; simplify.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f17ba200815..fd5cb9bcac7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (delete-trailing-whitespace):
+	Document last change; simplify.
+
 2011-09-23  Peter J. Weisberg  <pj@irregularexpressions.net>
 
 	* simple.el (delete-trailing-whitespace): Also delete
diff --git a/lisp/simple.el b/lisp/simple.el
index c828584c17f..142270930ca 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -568,6 +568,7 @@ On nonblank line, delete any immediately following blank lines."
 All whitespace after the last non-whitespace character in a line is deleted.
 This respects narrowing, created by \\[narrow-to-region] and friends.
 A formfeed is not considered whitespace by this function.
+If END is nil, also delete all trailing lines at the end of the buffer.
 If the region is active, only delete whitespace within the region."
   (interactive (progn
                  (barf-if-buffer-read-only)
@@ -580,18 +581,18 @@ If the region is active, only delete whitespace within the region."
             (start (or start (point-min))))
         (goto-char start)
         (while (re-search-forward "\\s-$" end-marker t)
-          (skip-syntax-backward "-" (save-excursion (forward-line 0) (point)))
+          (skip-syntax-backward "-" (line-beginning-position))
           ;; Don't delete formfeeds, even if they are considered whitespace.
-          (save-match-data
-            (if (looking-at ".*\f")
-                (goto-char (match-end 0))))
+          (if (looking-at-p ".*\f")
+              (goto-char (match-end 0)))
           (delete-region (point) (match-end 0)))
-        (save-restriction
-          (goto-char end-marker)
-          (widen)
-          (if (and (eobp)
-                   (looking-back "\n\n+" nil t))
-              (replace-match "\n")))
+        ;; Delete trailing empty lines.
+        (goto-char end-marker)
+        (when (and (not end)
+                   (<= (skip-chars-backward "\n") -2)
+                   ;; Really the end of buffer.
+                   (save-restriction (widen) (eobp)))
+          (delete-region (1+ (point)) end-marker))
         (set-marker end-marker nil))))
   ;; Return nil for the benefit of `write-file-functions'.
   nil)