diff lisp/emulation/vip.el @ 49598:0d8b17d428b5

Trailing whitepace deleted.

--- a/lisp/emulation/vip.el	Tue Feb 04 12:29:42 2003 +0000
+++ b/lisp/emulation/vip.el	Tue Feb 04 13:24:35 2003 +0000
@@ -49,7 +49,7 @@
 
 (defvar vip-insert-local-map nil
   "Local map used in insert command mode.  (Buffer-specific.)")
-  
+
 (make-variable-buffer-local 'vip-emacs-local-map)
 (make-variable-buffer-local 'vip-insert-local-map)
 
@@ -113,7 +113,7 @@
 
 (defvar vip-f-forward nil
   "For use by \";\" command.")
-  
+
 (defvar vip-f-offset nil
   "For use by \";\" command.")
 
@@ -378,7 +378,7 @@
 		   'delete-backward-char))
 	       (define-key vip-insert-local-map "\C-w"
 		 'vip-delete-backward-word))
-	      ((eq new-mode 'emacs-mode) 
+	      ((eq new-mode 'emacs-mode)
 	       (vip-change-mode-line "Emacs:")
 	       (use-local-map vip-emacs-local-map)))
 	(setq vip-current-mode new-mode)
@@ -508,7 +508,7 @@
   "Compute numeric prefix arg value.  Invoked by CHAR.  VALUE is the value
 obtained so far, and COM is the command part obtained so far."
   (while (and (>= char ?0) (<= char ?9))
-    (setq value (+ (* (if (numberp value) value 0) 10) (- char ?0)))	    
+    (setq value (+ (* (if (numberp value) value 0) 10) (- char ?0)))
     (setq char (read-char)))
   (setq prefix-arg value)
   (if com (setq prefix-arg (cons prefix-arg com)))
@@ -561,7 +561,7 @@
 	       (setq com char)
 	       (setq char (read-char)))))))
   (if (atom com)
-      ;; com is a single char, so we construct prefix-arg 
+      ;; com is a single char, so we construct prefix-arg
       ;; and if char is ?, describe prefix arg, otherwise exit by
       ;; pushing the char back
       (progn
@@ -615,7 +615,7 @@
   (interactive "P")
   (condition-case conditions
       (vip-prefix-arg-com
-       last-command-char   
+       last-command-char
        (cond ((null arg) nil)
 	     ((consp arg) (car arg))
 	     ((numberp arg) arg)
@@ -935,7 +935,7 @@
 command was invoked with argument > 1."
   (let ((i-com (car vip-d-com)) (val (car (cdr vip-d-com))))
     (if (and val (> val 1)) ;; first check that val is non-nil
-	(progn        
+	(progn
 	  (setq vip-d-com (list i-com (1- val) ?r))
 	  (vip-repeat nil)
 	  (setq vip-d-com (list i-com val ?r))))))
@@ -1037,7 +1037,7 @@
 	  (vip-change-subr (mark) (point))
 	(vip-change (mark) (point))))
     (setq vip-d-com (list 'vip-substitute val ?r))))
-  
+
 (defun vip-substitute-line (arg)
   "Substitute lines."
   (interactive "p")
@@ -1057,7 +1057,7 @@
   (interactive "P")
   (let ((val (vip-p-val arg)))
     (vip-line (cons val ?Y))))
-    
+
 
 ;; region command
 
@@ -1076,7 +1076,7 @@
     (move-marker vip-com-point (point))
     (exchange-point-and-mark)
     (vip-execute-com 'vip-Region val com)))
-  
+
 (defun vip-replace-char (arg)
   "Replace the following ARG chars by the character read."
   (interactive "P")
@@ -1171,7 +1171,7 @@
 	(progn
 	  (forward-char)
 	  (vip-execute-com 'vip-end-of-word val com)))))
-			 
+
 (defun vip-backward-word (arg)
   "Backward word."
   (interactive "P")
@@ -2911,7 +2911,7 @@
   (vip-change-mode-to-emacs)
   (shell))
 
-(defun ex-substitute (&optional repeat r-flag) 
+(defun ex-substitute (&optional repeat r-flag)
   "ex substitute.
 If REPEAT use previous reg-exp which is ex-reg-exp or
 vip-s-string"