From: Bruno Haible <bruno@clisp.org>
Date: Mon, 11 Jul 2005 10:33:56 +0000 (+0000)
Subject: Fix a weird interaction between po-validate and M-x compile.
X-Git-Tag: v0.15~492
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f4c2b146fc6dd4f74105faf4dd8bb945b4ccdec;p=thirdparty%2Fgettext.git

Fix a weird interaction between po-validate and M-x compile.
---

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index bd8d3c09a..a5678aaae 100644
--- a/gettext-tools/misc/ChangeLog
+++ b/gettext-tools/misc/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-09  Bruno Haible  <bruno@clisp.org>
+
+	* po-mode.el (po-validate): Require the 'compile' module before
+	accessing it.
+	Report and patch by Sven Joachim <sven_joachim@web.de>.
+
 2005-05-23  Bruno Haible  <bruno@clisp.org>
 
 	* gettext-0.14.5 released.
diff --git a/gettext-tools/misc/po-mode.el b/gettext-tools/misc/po-mode.el
index d4f90a9da..21643fb47 100644
--- a/gettext-tools/misc/po-mode.el
+++ b/gettext-tools/misc/po-mode.el
@@ -3096,6 +3096,11 @@ Leave point after marked string."
 (defun po-validate ()
   "Use 'msgfmt' for validating the current PO file contents."
   (interactive)
+  ; The 'compile' subsystem is autoloaded through a call to (compile ...).
+  ; We need to initialize it outside of any binding. Without this statement,
+  ; all defcustoms and defvars of compile.el would be undone when the let*
+  ; terminates.
+  (require 'compile)
   (let* ((dev-null
 	  (cond ((boundp 'null-device) null-device) ; since Emacs 20.3
 		((memq system-type '(windows-nt windows-95)) "NUL")