Mercurial > emacs
comparison lisp/whitespace.el @ 84837:aff02a4292a0
(whitespace-tickle-timer): Don't install the timer if
whitespace-rescan-timer-time is 0.
| author | Michaël Cadilhac <michael.cadilhac@lrde.org> |
|---|---|
| date | Mon, 24 Sep 2007 15:15:49 +0000 |
| parents | 7c8949dbfa0d |
| children | d3e87ee5aa0e 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
| 84836:32df74475189 | 84837:aff02a4292a0 |
|---|---|
| 707 "Tickle timer to periodically to scan qualifying files for whitespace creep. | 707 "Tickle timer to periodically to scan qualifying files for whitespace creep. |
| 708 | 708 |
| 709 If timer is not set, then set it to scan the files in | 709 If timer is not set, then set it to scan the files in |
| 710 `whitespace-all-buffer-files' periodically (defined by | 710 `whitespace-all-buffer-files' periodically (defined by |
| 711 `whitespace-rescan-timer-time') for whitespace creep." | 711 `whitespace-rescan-timer-time') for whitespace creep." |
| 712 (if (and whitespace-rescan-timer-time (not whitespace-rescan-timer)) | 712 (if (and whitespace-rescan-timer-time |
| 713 (/= whitespace-rescan-timer-time 0) | |
| 714 (not whitespace-rescan-timer)) | |
| 713 (setq whitespace-rescan-timer | 715 (setq whitespace-rescan-timer |
| 714 (add-timeout whitespace-rescan-timer-time | 716 (add-timeout whitespace-rescan-timer-time |
| 715 'whitespace-rescan-files-in-buffers nil | 717 'whitespace-rescan-files-in-buffers nil |
| 716 whitespace-rescan-timer-time)))) | 718 whitespace-rescan-timer-time)))) |
| 717 | 719 |