[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el,v

[Michael Kifer]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Kifer <kifer>   08/04/06 19:26:05

Index: emulation/viper-ex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-ex.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- emulation/viper-ex.el       4 Apr 2008 07:51:24 -0000       1.71
+++ emulation/viper-ex.el       6 Apr 2008 19:26:01 -0000       1.72
@@ -1742,10 +1742,10 @@
           (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 @@
     (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)))