[Emacs-diffs] /srv/bzr/emacs/trunk r108419: * whitespace.el (whitespace-cleanup): Fix whitespace-empty-at-bob-regexp usage.

[Chong Yidong]

------------------------------------------------------------
revno: 108419
fixes bug: http://debbugs.gnu.org/11492
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2012-05-29 19:51:19 +0800
message:
  * whitespace.el (whitespace-cleanup): Fix whitespace-empty-at-bob-regexp 
usage.
modified:
  lisp/ChangeLog
  lisp/whitespace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-05-29 11:41:45 +0000
+++ b/lisp/ChangeLog    2012-05-29 11:51:19 +0000
@@ -1,3 +1,8 @@
+2012-05-29  Chong Yidong  <address@hidden>
+
+       * whitespace.el (whitespace-cleanup): Fix usage of
+       whitespace-empty-at-bob-regexp (Bug#11492).
+
 2012-05-29  Aaron S. Hawley  <address@hidden>
 
        * vc/vc.el (vc-revert, vc-rollback): Dont kill vc-diff buffer on

=== modified file 'lisp/whitespace.el'
--- a/lisp/whitespace.el        2012-01-19 07:21:25 +0000
+++ b/lisp/whitespace.el        2012-05-29 11:51:19 +0000
@@ -1533,8 +1533,7 @@
        (when (memq 'empty whitespace-style)
          (let (overwrite-mode)         ; enforce no overwrite
            (goto-char (point-min))
-           (when (re-search-forward
-                  (concat "\\`" whitespace-empty-at-bob-regexp) nil t)
+           (when (looking-at whitespace-empty-at-bob-regexp)
              (delete-region (match-beginning 1) (match-end 1)))
            (when (re-search-forward
                   (concat whitespace-empty-at-eob-regexp "\\'") nil t)