CVS update by michaelk packages/xemacs-packages/viper, viper-ex.el ...

[xemacs-cvs at xemacs.org]

  User: michaelk
  Date: 08/04/06 21:30:24

  Modified:    packages/xemacs-packages/viper viper.el viper-init.el
                        viper-ex.el viper-cmd.el ChangeLog
Log:
	* viper*.el (viper-search-wrap-around-t): replace with
	viper-search-wrap-around.

Revision  Changes    Path
1.49      +1 -1      XEmacs/packages/xemacs-packages/viper/viper.el

Index: viper.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/viper.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -p -r1.48 -r1.49
--- viper.el	2008/04/03 21:14:00	1.48
+++ viper.el	2008/04/06 19:30:23	1.49
@@ -9,7 +9,7 @@
 ;; Author: Michael Kifer <kifer at cs.stonybrook.edu>
 ;; Keywords: emulations
 
-(defconst viper-version "3.14 of January 09, 2008"
+(defconst viper-version "3.14 of April 06, 2008"
   "The current version of Viper")
 
 ;; This file is part of GNU Emacs.



1.29      +1 -1      XEmacs/packages/xemacs-packages/viper/viper-init.el

Index: viper-init.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/viper-init.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -p -r1.28 -r1.29
--- viper-init.el	2008/04/03 21:14:01	1.28
+++ viper-init.el	2008/04/06 19:30:23	1.29
@@ -765,7 +765,7 @@ If nil, the cursor will move backwards w
   :type '(choice (const nil) character)
   :group 'viper-search)
 
-(defcustom viper-search-wrap-around-t t
+(defcustom viper-search-wrap-around t
   "*If t, search wraps around."
   :type 'boolean
   :tag "Search Wraps Around"



1.34      +3 -3      XEmacs/packages/xemacs-packages/viper/viper-ex.el

Index: viper-ex.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/viper-ex.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -p -r1.33 -r1.34
--- viper-ex.el	2008/04/04 07:57:17	1.33
+++ viper-ex.el	2008/04/06 19:30:23	1.34
@@ -1742,10 +1742,10 @@ reversed."
 	   (setq var "blink-matching-paren"
 		 val "nil"))
 	  ((member var '("ws" "wrapscan"))
-	   (setq var "viper-search-wrap-around-t"
+	   (setq var "viper-search-wrap-around"
 		 val "t"))
 	  ((member var '("nows" "nowrapscan"))
-	   (setq var "viper-search-wrap-around-t"
+	   (setq var "viper-search-wrap-around"
 		 val "nil")))
     (if (and set-cmd (eq val 0)) ; value must be set by the user
 	(let ((cursor-in-echo-area t))
@@ -2268,7 +2268,7 @@ Type 'mak ' (including the space) to run
     (princ (if viper-re-search "magic\n" "nomagic\n"))
     (princ (if buffer-read-only "readonly\n" "noreadonly\n"))
     (princ (if blink-matching-paren "showmatch\n" "noshowmatch\n"))
-    (princ (if viper-search-wrap-around-t "wrapscan\n" "nowrapscan\n"))
+    (princ (if viper-search-wrap-around "wrapscan\n" "nowrapscan\n"))
     (princ (format "shiftwidth \t\t= %S\n" viper-shift-width))
     (princ (format "tabstop (local) \t= %S\n" tab-width))
     (princ (format "tabstop (global) \t= %S\n" (default-value 'tab-width)))



1.45      +3 -3      XEmacs/packages/xemacs-packages/viper/viper-cmd.el

Index: viper-cmd.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/viper-cmd.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -p -r1.44 -r1.45
--- viper-cmd.el	2008/04/03 21:14:01	1.44
+++ viper-cmd.el	2008/04/06 19:30:23	1.45
@@ -3898,7 +3898,7 @@ Null string will repeat previous search.
 		(if (not (equal start-point (point)))
 		    (push-mark start-point t)))
 	    (search-failed
-	     (if (and (not fail-if-not-found) viper-search-wrap-around-t)
+	     (if (and (not fail-if-not-found) viper-search-wrap-around)
 	         (progn
 		   (message "Search wrapped around BOTTOM of buffer")
 		   (goto-char (point-min))
@@ -3927,7 +3927,7 @@ Null string will repeat previous search.
 	      (if (not (equal start-point (point)))
 		  (push-mark start-point t)))
 	  (search-failed
-	   (if (and (not fail-if-not-found) viper-search-wrap-around-t)
+	   (if (and (not fail-if-not-found) viper-search-wrap-around)
 	       (progn
 		 (message "Search wrapped around TOP of buffer")
 	         (goto-char (point-max))
@@ -4775,7 +4775,7 @@ sensitive for VI-style look-and-feel."
 	 (setq viper-no-multiple-ESC	       t
 	       viper-re-search	    	       t
 	       viper-vi-style-in-minibuffer    t
-	       viper-search-wrap-around-t      t
+	       viper-search-wrap-around        t
 	       viper-electric-mode	       nil
 	       viper-want-emacs-keys-in-vi     nil
 	       viper-want-emacs-keys-in-insert nil))



1.103     +5 -0      XEmacs/packages/xemacs-packages/viper/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/ChangeLog,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -p -r1.102 -r1.103
--- ChangeLog	2008/04/04 07:57:17	1.102
+++ ChangeLog	2008/04/06 19:30:23	1.103
@@ -1,3 +1,8 @@
+2008-04-06  Michael Kifer  <kifer at cs.stonybrook.edu>
+	
+	* viper*.el (viper-search-wrap-around-t): replace with
+	viper-search-wrap-around.
+	
 2008-04-04  Michael Kifer  <kifer at cs.stonybrook.edu>