Give a name to the validation buffer, to distinguish it from the

compilation buffer.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 3c0573447fa9fd6c7d74ca2342bf16d27f69ee6b..1b4b2e0b42287a9ef12986d4a79ba813b20507c9 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-02  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-validate): Use private 'compile-command' and buffer
+       name for validation output.
+
 2001-07-01  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-mode): Use add-hook to call po-replace-revision-date

diff --git a/misc/po-mode.el b/misc/po-mode.el
index 70e1e12be0828c4cdf0eacc32b6da9a597dde978..7a5de01bae00191f82574d76b49c637cef6499d0 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -2536,13 +2536,15 @@ keyword for subsequent commands, also added to possible completions."
 (defun po-validate ()
   "Use `msgfmt' for validating the current PO file contents."
   (interactive)
-  (let ((command (concat po-msgfmt-program
-                         " --statistics -c -v -o " null-device " "
-                         buffer-file-name)))
+  (let ((compilation-buffer-name-function
+        (function (lambda (mode) (progn "*PO validation*"))))
+        (compile-command (concat po-msgfmt-program
+                                 " --statistics -c -v -o " null-device " "
+                                 buffer-file-name)))
 
     (po-msgfmt-version-check)
 
-    (compile command)))
+    (compile compile-command)))
 
 (defvar po-msgfmt-version-checked nil)
 (defun po-msgfmt-version-check ()