[Emacs-diffs] emacs/lisp ChangeLog progmodes/compile.el

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     09/02/18 15:37:43

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : compile.el 

Log message:
        Require comint at top level to fix the last patch.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15351&r2=1.15352
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/compile.el?cvsroot=emacs&r1=1.486&r2=1.487

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15351
retrieving revision 1.15352
diff -u -b -r1.15351 -r1.15352
--- ChangeLog   18 Feb 2009 12:55:35 -0000      1.15351
+++ ChangeLog   18 Feb 2009 15:37:40 -0000      1.15352
@@ -1,3 +1,8 @@
+2009-02-18  Sam Steingold  <address@hidden>
+
+       * progmodes/compile.el: Require comint at top level to fix the
+       last patch.
+
 2009-02-18  Martin Rudalics  <address@hidden>
 
        * cus-edit.el (custom-group-value-create): Don't throw an error

Index: progmodes/compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.486
retrieving revision 1.487
diff -u -b -r1.486 -r1.487
--- progmodes/compile.el        17 Feb 2009 16:49:42 -0000      1.486
+++ progmodes/compile.el        18 Feb 2009 15:37:43 -0000      1.487
@@ -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)