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

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index bd8d3c09a59d1830585db54a9239dac465e99a69..a5678aaae9f0ce297aaa044403de260b7910feca 100644 (file)
--- 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 d4f90a9da1f7f3105b4abd3a7a8eec27a7c95005..21643fb47b88657e12ef2699dd69633c756e8ebe 100644 (file)
--- 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")