--- a/lisp/viper/viper-mous.el	Mon Aug 13 09:05:44 2007 +0200
+++ b/lisp/viper/viper-mous.el	Mon Aug 13 09:06:37 2007 +0200
@@ -21,12 +21,25 @@
 
 ;; Code
 
-(require 'viper-util)
+(provide 'viper-mous)
 
 ;; compiler pacifier
 (defvar double-click-time)
 (defvar mouse-track-multi-click-time)
-;; end compiler pacifier
+(defvar vip-search-start-marker)
+(defvar vip-local-search-start-marker)
+(defvar vip-search-history)
+(defvar vip-s-string)
+(defvar vip-re-search)
+
+(eval-when-compile
+  (let ((load-path (cons "." load-path)))
+    (or (featurep 'viper-util)
+	(load "viper-util.el" nil nil 'nosuffix))
+    ))
+;; end pacifier
+
+(require 'viper-util)
 
 
 ;;; Variables
@@ -453,7 +466,4 @@
        )))
 
 
-
-(provide 'viper-mous)
-
 ;;;  viper-mous.el ends here