2001-10-13 Michael Kifer <kifer@cs.sunysb.edu>

	* viper-ex.el (ex-edit): make checks for modified buffer/file.
	(viper-get-ex-address-subr): more precise addr for the $ marker

	* viper-cmd.el: Fixed indentation.

	* viper.texi: Clarified that viper won't expand special symbols in
	search patterns.

1 files changed, 17 insertions, 16 deletions

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index f7f2e3f853d..0df2022ae04 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -2554,22 +2554,23 @@ These keys are ESC, RET, and LineFeed"
     (or (eq viper-intermediate-command 'viper-repeat)
 	(viper-special-read-and-insert-char))
 
-      (if (eq char ?\C-m) (setq char ?\n))
-
-      (delete-char 1 t)
-
-      (setq char (if com viper-d-char (viper-char-at-pos 'backward)))
-      (if com (insert char))
-
-      (setq viper-d-char char)
-
-      (viper-loop (1- (if (> arg 0) arg (- arg)))
-		  (delete-char 1 t)
-		  (insert char))
-
-      (viper-adjust-undo)
-      (backward-char arg)
-      ))
+    ;; Is this needed?
+    (if (eq char ?\C-m) (setq char ?\n))
+    
+    (delete-char 1 t)
+    
+    (setq char (if com viper-d-char (viper-char-at-pos 'backward)))
+    (if com (insert char))
+    
+    (setq viper-d-char char)
+    
+    (viper-loop (1- (if (> arg 0) arg (- arg)))
+		(delete-char 1 t)
+		(insert char))
+    
+    (viper-adjust-undo)
+    (backward-char arg)
+    ))
 
 
 ;; basic cursor movement.  j, k, l, h commands.