[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el [lexbind]

[Miles Bader]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.256.2.28 
emacs/lisp/progmodes/compile.el:1.256.2.29
*** emacs/lisp/progmodes/compile.el:1.256.2.28  Fri Oct 29 02:05:13 2004
--- emacs/lisp/progmodes/compile.el     Fri Nov 12 04:21:21 2004
***************
*** 785,795 ****
  to a function that generates a unique name."
    (interactive
     (list
!     (if (or compilation-read-command current-prefix-arg)
!         (read-from-minibuffer "Compile command: "
!                             (eval compile-command) nil nil
!                             '(compile-history . 1))
!       (eval compile-command))
      (consp current-prefix-arg)))
    (unless (equal command (eval compile-command))
      (setq compile-command command))
--- 785,798 ----
  to a function that generates a unique name."
    (interactive
     (list
!     (let ((command (eval compile-command)))
!       (if (or compilation-read-command current-prefix-arg)
!         (read-from-minibuffer "Compile command: "
!                               command nil nil
!                               (if (equal (car compile-history) command)
!                                   '(compile-history . 1)
!                                 'compile-history))
!       command))
      (consp current-prefix-arg)))
    (unless (equal command (eval compile-command))
      (setq compile-command command))