--- a/lisp/viper/viper-macs.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/viper/viper-macs.el	Mon Aug 13 09:02:59 2007 +0200
@@ -1,6 +1,6 @@
 ;;; viper-macs.el --- functions implementing keyboard macros for Viper
 
-;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -21,26 +21,6 @@
 
 ;; 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 (expand-file-name ".") 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))
-    (or (featurep 'viper)
-	(load "viper.el" nil nil 'nosuffix))
-    ))
-;; end pacifier
-
 (require 'viper-util)
 (require 'viper-keym)
 
@@ -958,4 +938,6 @@
     (call-last-kbd-macro)))
 
 
+(provide 'viper-macs)
+
 ;;;  viper-macs.el ends here