--- a/lisp/viper/viper-macs.el	Mon Aug 13 08:48:18 2007 +0200
+++ b/lisp/viper/viper-macs.el	Mon Aug 13 08:48:42 2007 +0200
@@ -21,6 +21,24 @@
 
 ;; Code
 
+(provide 'viper-macs)
+
+;; compiler pacifier
+(defvar vip-ex-work-buf)
+(defvar vip-custom-file-name)
+(defvar vip-current-state)
+
+(eval-when-compile
+  (let ((load-path (cons "." load-path)))
+    (or (featurep 'viper-util)
+	(load "viper-util.el" nil nil 'nosuffix))
+    (or (featurep 'viper-keym)
+	(load "viper-keym.el" nil nil 'nosuffix))
+    (or (featurep 'viper-mous)
+	(load "viper-mous.el" nil nil 'nosuffix))
+    ))
+;; end pacifier
+
 (require 'viper-util)
 (require 'viper-keym)
 
@@ -938,6 +956,4 @@
     (call-last-kbd-macro)))
 
 
-(provide 'viper-macs)
-
 ;;;  viper-macs.el ends here