(turn-on-font-lock): Test window-system.

2346238d · Richard M. Stallman · d1e74921 · 2346238d
Commit 2346238d authored Jan 24, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/font-lock.el lisp/font-lock.el +3 -2

No files found.
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -411,8 +411,9 @@ syntactic change on other lines, you can use \\[font-lock-fontify-window]."

 ;;;###autoload
 (defun turn-on-font-lock ()
-  "Unconditionally turn on Font Lock mode."
-  (font-lock-mode 1))
+  "Turn on Font Lock mode, if the terminal can display it."
+  (if window-system
+      (font-lock-mode 1)))

 ;;;###autoload
 (defun font-lock-fontify-buffer ()