From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Jan 2003 08:02:47 +0000 (+0000)
Subject: (compilation-revert-buffer): If buffer has a file, revert it in the normal way.
X-Git-Tag: ttn-vms-21-2-B4~11707
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ed2ab9fcaade605b6377f955c98ad13e607d642;p=emacs.git

(compilation-revert-buffer): If buffer has a file, revert it in the normal way.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f202663a0e4..a51ceff74d3 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1245,8 +1245,11 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)."
   (run-hooks 'compilation-mode-hook))
 
 (defun compilation-revert-buffer (ignore-auto noconfirm)
-  (if (or noconfirm (yes-or-no-p (format "Restart compilation? ")))
-      (apply 'compile-internal compilation-arguments)))
+  (if buffer-file-name
+      (let (revert-buffer-function)
+	(revert-buffer ignore-auto noconfirm preserve-modes))
+    (if (or noconfirm (yes-or-no-p (format "Restart compilation? ")))
+	(apply 'compile-internal compilation-arguments))))
 
 (defun compilation-setup ()
   "Prepare the buffer for the compilation parsing commands to work."