Mercurial > emacs
comparison lisp/whitespace.el @ 73812:75af8d959739
(whitespace-buffer): Call remove-overlays after overlay-recenter for
performance. Suggested by Martin Rudalics.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 07 Nov 2006 17:37:14 +0000 |
| parents | b0f398ac4cbd |
| children | ee60f0fe10d6 c71725faff1a 02cf29720f31 |
comparison
equal
deleted
inserted
replaced
| 73811:1a4d9481d0bf | 73812:75af8d959739 |
|---|---|
| 423 (whitespace-check-whitespace-mode current-prefix-arg) | 423 (whitespace-check-whitespace-mode current-prefix-arg) |
| 424 (if (and buffer-file-name (> (buffer-size) 0) whitespace-mode) | 424 (if (and buffer-file-name (> (buffer-size) 0) whitespace-mode) |
| 425 (progn | 425 (progn |
| 426 (whitespace-check-buffer-list (buffer-name) buffer-file-name) | 426 (whitespace-check-buffer-list (buffer-name) buffer-file-name) |
| 427 (whitespace-tickle-timer) | 427 (whitespace-tickle-timer) |
| 428 (overlay-recenter (point-max)) | |
| 428 (remove-overlays nil nil 'face 'whitespace-highlight) | 429 (remove-overlays nil nil 'face 'whitespace-highlight) |
| 429 (overlay-recenter (point-max)) | |
| 430 (if whitespace-auto-cleanup | 430 (if whitespace-auto-cleanup |
| 431 (if buffer-read-only | 431 (if buffer-read-only |
| 432 (if (not quiet) | 432 (if (not quiet) |
| 433 (message "Can't cleanup: %s is read-only" (buffer-name))) | 433 (message "Can't cleanup: %s is read-only" (buffer-name))) |
| 434 (whitespace-cleanup-internal)) | 434 (whitespace-cleanup-internal)) |