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

[Juri Linkov]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.335 
emacs/lisp/progmodes/compile.el:1.336
*** emacs/lisp/progmodes/compile.el:1.335       Wed Oct 27 09:10:27 2004
--- emacs/lisp/progmodes/compile.el     Mon Nov  8 12:19:14 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))