299 |
`(while (progn ,@body ,test))) |
`(while (progn ,@body ,test))) |
300 |
(put 'do-while 'lisp-indent-function (get 'while 'lisp-indent-function))) |
(put 'do-while 'lisp-indent-function (get 'while 'lisp-indent-function))) |
301 |
|
|
302 |
|
(defgroup lazy-lock nil |
303 |
|
"Font Lock support mode to fontify lazily." |
304 |
|
:group 'font-lock) |
305 |
|
|
306 |
(defvar lazy-lock-mode nil) ; Whether we are turned on. |
(defvar lazy-lock-mode nil) ; Whether we are turned on. |
307 |
(defvar lazy-lock-buffers nil) ; For deferral. |
(defvar lazy-lock-buffers nil) ; For deferral. |
308 |
(defvar lazy-lock-timers (cons nil nil)) ; For deferral and stealth. |
(defvar lazy-lock-timers (cons nil nil)) ; For deferral and stealth. |
1054 |
|
|
1055 |
(provide 'lazy-lock) |
(provide 'lazy-lock) |
1056 |
|
|
1057 |
;;; arch-tag: c1776846-f046-4a45-9684-54b951b12fc9 |
;; arch-tag: c1776846-f046-4a45-9684-54b951b12fc9 |
1058 |
;;; lazy-lock.el ends here |
;;; lazy-lock.el ends here |