emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master f8df49c: Remove free variable warning when compilin


From: Glenn Morris
Subject: [Emacs-diffs] master f8df49c: Remove free variable warning when compiling viper using .el files
Date: Tue, 27 Feb 2018 13:02:20 -0500 (EST)

branch: master
commit f8df49c3a9522780a04facad1fc11fef3508716b
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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 fe57535..224ce58 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 f054040..9fd68b7 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 ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]