diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-02-27 13:02:02 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-02-27 13:02:02 -0500 |
| commit | f8df49c3a9522780a04facad1fc11fef3508716b (patch) | |
| tree | 50af3b10559fb3e10266862e1354992b3083b5bc /lisp/emulation | |
| parent | e7a5b1bb671f0bc1c4dfbbbfc7b5ba1de1f39897 (diff) | |
| download | emacs-f8df49c3a9522780a04facad1fc11fef3508716b.tar.gz | |
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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 3 | ||||
| -rw-r--r-- | 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 () |