Remove free variable warning when compiling viper using .el files

* lisp/emulation/viper-cmd.el (viper-saved-mark): Move definition...
* lisp/emulation/viper-util.el (viper-saved-mark): ... to here.

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index fe57535a14bc028f72582563bd63b147b172fed0..224ce5802c69aa5b2dd48b5e7defdefb19aa3509 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -131,9 +131,6 @@
 ;; define viper-vi-command-p
 (viper-test-com-defun viper-vi-command)
 
-;; Where viper saves mark. This mark is resurrected by m^
-(defvar viper-saved-mark nil)
-
 ;; Contains user settings for vars affected by viper-set-expert-level function.
 ;; Not a user option.
 (defvar viper-saved-user-settings nil)

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index f054040180344388a504443363ceffd268242e24..9fd68b7a61fb71ad0ff4b732417a7db1fcb29b1a 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -39,7 +39,6 @@
 (defvar ex-unix-type-shell-options)
 (defvar viper-ex-tmp-buf-name)
 (defvar viper-syntax-preference)
-(defvar viper-saved-mark)
 
 (require 'ring)
 
@@ -886,6 +885,9 @@ Otherwise return the normal value."
   (if (featurep 'xemacs) (mark-marker t)
     (mark-marker)))
 
+(defvar viper-saved-mark nil
+  "Where viper saves mark.  This mark is resurrected by m^.")
+
 ;; like (set-mark-command nil) but doesn't push twice, if (car mark-ring)
 ;; is the same as (mark t).
 (defsubst viper-set-mark-if-necessary ()