From: Bruno Haible <bruno@clisp.org>
Date: Mon, 2 Jul 2001 20:01:59 +0000 (+0000)
Subject: Give a name to the validation buffer, to distinguish it from the
X-Git-Tag: v0.11~632
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0fbb573e2615476ec31c0b67317004e33f8fc560;p=thirdparty%2Fgettext.git

Give a name to the validation buffer, to distinguish it from the
compilation buffer.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 3c0573447..1b4b2e0b4 100644
--- 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 70e1e12be..7a5de01ba 100644
--- 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 ()