procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove free variable warning when compiling viper using .el files

Browse source 
* lisp/emulation/viper-cmd.el (viper-saved-mark): Move definition...
* lisp/emulation/viper-util.el (viper-saved-mark): ... to here.
This commit is contained in:
Glenn Morris 2018-02-27 13:02:02 -05:00
parent e7a5b1bb67
commit f8df49c3a9
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emulation/viper-cmd.el
View file

@ -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)

4
lisp/emulation/viper-util.el
View file

@ -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 ()