Warning fix in jit-lock-mode

* lisp/jit-lock.el (jit-lock-mode): Don't issue a warning when
turning the mode on in an indirect buffer, if this somehow has
happened (bug#17738).

1 files changed, 5 insertions, 3 deletions

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 810c2205160..c49fa6ed6c1 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -195,9 +195,11 @@ the variable `jit-lock-stealth-nice'.
 If you need to debug code run from jit-lock, see `jit-lock-debug-mode'."
   (setq jit-lock-mode arg)
   (cond
-   ((buffer-base-buffer)
-    ;; We're in an indirect buffer.  This doesn't work because jit-lock relies
-    ;; on the `fontified' text-property which is shared with the base buffer.
+   ((and (buffer-base-buffer)
+         jit-lock-mode)
+    ;; We're in an indirect buffer, and we're turning the mode on.
+    ;; This doesn't work because jit-lock relies on the `fontified'
+    ;; text-property which is shared with the base buffer.
     (setq jit-lock-mode nil)
     (message "Not enabling jit-lock: it does not work in indirect buffer"))