Require comint at top level to fix the last patch.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8221abc9df..c64ad36bbee 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 47b21286c97..00bd33bc39c 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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 @@ Returns the compilation buffer created."
   (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)