From f8df49c3a9522780a04facad1fc11fef3508716b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 27 Feb 2018 13:02:02 -0500 Subject: [PATCH] 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. --- lisp/emulation/viper-cmd.el | 3 --- lisp/emulation/viper-util.el | 4 +++- 2 files changed, 3 insertions(+), 4 deletions(-) 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 () -- 2.39.5