# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1117356037 0
# Node ID a30c3081abf53a613e3a6109e0b54459e444bc6d
# Parent  3c095150855a110011de4928f27290337a5c7d42
(jit-lock-function, jit-lock-after-change): Do nothing if memory is full.

diff -r 3c095150855a -r a30c3081abf5 lisp/jit-lock.el
--- a/lisp/jit-lock.el	Sun May 29 08:39:40 2005 +0000
+++ b/lisp/jit-lock.el	Sun May 29 08:40:37 2005 +0000
@@ -298,7 +298,7 @@
   "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 @@
 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