/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.335 by pfeiffer, Wed Oct 27 09:10:27 2004 UTC revision 1.336 by jurta, Mon Nov 8 12:19:14 2004 UTC
# Line 785  the function in `compilation-buffer-name Line 785  the function in `compilation-buffer-name
785  to a function that generates a unique name."  to a function that generates a unique name."
786    (interactive    (interactive
787     (list     (list
788      (if (or compilation-read-command current-prefix-arg)      (let ((command (eval compile-command)))
789          (read-from-minibuffer "Compile command: "        (if (or compilation-read-command current-prefix-arg)
790                                (eval compile-command) nil nil            (read-from-minibuffer "Compile command: "
791                                '(compile-history . 1))                                  command nil nil
792        (eval compile-command))                                  (if (equal (car compile-history) command)
793                                        '(compile-history . 1)
794                                      'compile-history))
795            command))
796      (consp current-prefix-arg)))      (consp current-prefix-arg)))
797    (unless (equal command (eval compile-command))    (unless (equal command (eval compile-command))
798      (setq compile-command command))      (setq compile-command command))

Legend:
Removed from v.1.335  
changed lines
  Added in v.1.336

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26