diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 68ecb142f709c6584bda33816caf4e5d741a103c..f50386b182778707996ca1475118096ba8bd65f9 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2408,8 +2408,8 @@ resultant list will be returned."
   "Match trailing spaces which do not contain the point at end of line."
   (let ((status t))
     (while (if (re-search-forward whitespace-trailing-regexp limit t)
-               (= whitespace-point (match-end 1)) ;; Loop if point at eol.
-	     (setq status nil)))                  ;; End of buffer.
+	       (= whitespace-point (match-end 1)) ;; loop if point at eol
+	     (setq status nil)))		  ;; end of buffer
     status))