# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1234971460 0
# Node ID 0d562146f921e57521614722951d2071cdcda384
# Parent  93915a70e1a427d6a3361fed2f129369643fd57f
Require comint at top level to fix the last patch.

diff -r 93915a70e1a4 -r 0d562146f921 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 18 12:55:35 2009 +0000
+++ b/lisp/ChangeLog	Wed Feb 18 15:37:40 2009 +0000
@@ -1,3 +1,8 @@
+2009-02-18  Sam Steingold  <sds@gnu.org>
+
+	* progmodes/compile.el: Require comint at top level to fix the
+	last patch.
+
 2009-02-18  Martin Rudalics  <rudalics@gmx.at>
 
 	* cus-edit.el (custom-group-value-create): Don't throw an error
diff -r 93915a70e1a4 -r 0d562146f921 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed Feb 18 12:55:35 2009 +0000
+++ b/lisp/progmodes/compile.el	Wed Feb 18 15:37:40 2009 +0000
@@ -72,6 +72,7 @@
 
 (eval-when-compile (require 'cl))
 (require 'tool-bar)
+(require 'comint)
 
 (defvar font-lock-extra-managed-props)
 (defvar font-lock-keywords)
@@ -1155,7 +1156,7 @@
   (or mode (setq mode 'compilation-mode))
   (let* ((name-of-mode
 	  (if (eq mode t)
-	      (prog1 "compilation" (require 'comint))
+	      "compilation"
 	    (replace-regexp-in-string "-mode$" "" (symbol-name mode))))
 	 (thisdir default-directory)
 	 outwin outbuf)