From 1f94ceaf650191262aaeaf0a9aaf9bd8e4ad5e1b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 May 2005 08:40:37 +0000 Subject: [PATCH] (jit-lock-function, jit-lock-after-change): Do nothing if memory is full. --- lisp/jit-lock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index b34e26f74d4..ba2eed9f17e 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -298,7 +298,7 @@ Only applies to the current buffer." "Fontify current buffer starting at position START. This function is added to `fontification-functions' when `jit-lock-mode' is active." - (when jit-lock-mode + (when (and jit-lock-mode (not (memory-full-p))) (if (null jit-lock-defer-time) ;; No deferral. (jit-lock-fontify-now start (+ start jit-lock-chunk-size)) @@ -540,7 +540,7 @@ is the pre-change length. This function ensures that lines following the change will be refontified in case the syntax of those lines has changed. Refontification will take place when text is fontified stealthily." - (when jit-lock-mode + (when (and jit-lock-mode (not (memory-full-p))) (save-excursion (with-buffer-prepared-for-jit-lock ;; It's important that the `fontified' property be set from the -- 2.39.5