From: Glenn Morris <rgm@gnu.org>
Date: Tue, 27 Feb 2018 18:02:02 +0000 (-0500)
Subject: Remove free variable warning when compiling viper using .el files
X-Git-Tag: emacs-27.0.90~5610
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8df49c3a9522780a04facad1fc11fef3508716b;p=emacs.git

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 fe57535a14b..224ce5802c6 100644
--- 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 f0540401803..9fd68b7a61f 100644
--- 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 ()