From: Miles Bader <miles@gnu.org>
Date: Thu, 13 Jun 2002 09:28:48 +0000 (+0000)
Subject: (comint-mode): Don't set `font-lock-defaults'.
X-Git-Tag: ttn-vms-21-2-B4~14640
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcc6fa51533c1bfe3d0b69327c40ab59b29a1dec;p=emacs.git

(comint-mode): Don't set `font-lock-defaults'.
(comint-mode-hook): Turn on font-lock by default.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eacc3f1ab48..eb6dba6c6c0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-13  Miles Bader  <miles@gnu.org>
+
+	* comint.el (comint-mode): Don't set `font-lock-defaults'.
+	(comint-mode-hook): Turn on font-lock by default.
+
 2002-06-12  Karl Fogel  <kfogel@red-bean.com>
 
 	* bookmark.el (bookmark-file-or-variation-thereof): Restore
diff --git a/lisp/comint.el b/lisp/comint.el
index 9d31e975789..ea06ab4ac5f 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -384,7 +384,7 @@ field boundaries in a natural way)."
   :type 'boolean
   :group 'comint)
 
-(defcustom comint-mode-hook '()
+(defcustom comint-mode-hook '(turn-on-font-lock)
   "Called upon entry into `comint-mode'
 This is run before the process is cranked up."
   :type 'hook
@@ -507,8 +507,6 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
   (make-local-variable 'comint-file-name-chars)
   (make-local-variable 'comint-file-name-quote-list)
   (set (make-local-variable 'comint-accum-marker) (make-marker))
-  (set (make-local-variable 'font-lock-defaults)
-       '(nil t nil nil nil (font-lock-core-only . t)))
   ;; This behavior is not useful in comint buffers, and is annoying
   (set (make-local-variable 'next-line-add-newlines) nil))