diff lisp/emulation/viper-mous.el @ 18047:1b06411ccc04

new version

--- a/lisp/emulation/viper-mous.el	Fri May 30 23:37:13 1997 +0000
+++ b/lisp/emulation/viper-mous.el	Sat May 31 00:02:53 1997 +0000
@@ -1,6 +1,6 @@
 ;;; viper-mous.el --- mouse support for Viper
 
-;; Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -21,12 +21,28 @@
 
 ;; 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 (expand-file-name ".") load-path)))
+    (or (featurep 'viper-util)
+	(load "viper-util.el" nil nil 'nosuffix))
+    (or (featurep 'viper)
+	(load "viper.el" nil nil 'nosuffix))
+    ))
+;; end pacifier
+
+(require 'viper-util)
+
 
 
 ;;; Variables
@@ -453,7 +469,4 @@
        )))
 
 
-
-(provide 'viper-mous)
-
 ;;;  viper-mous.el ends here