From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Nov 1994 06:10:46 +0000 (+0000)
Subject: (vi-kill-region): Pass args to kill-region.
X-Git-Tag: emacs-19.34~5990
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30fa657c2818a68de8b27fe5134749199f5e2473;p=emacs.git

(vi-kill-region): Pass args to kill-region.
(vi-mark-region): Don't pass unexpected args.
---

diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 1b0e03b4391..e22603183ab 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -571,9 +571,9 @@ insert state."
    (kill-line arg)
    (vi-set-last-change-command 'kill-line arg))
 
-(defun vi-kill-region ()
-  (interactive)
-  (kill-region)
+(defun vi-kill-region (start end)
+  (interactive "*r")
+  (kill-region start end)
   (vi-set-last-change-command 'kill-region))
   
 (defun vi-append-at-end-of-line (arg)
@@ -1356,12 +1356,12 @@ The following CHAR will be the name for the command or macro."
 p(aragraph), P(age), f(unction in C/Pascal etc.), w(ord), e(nd of sentence),
 l(ines)."
   (interactive "p\nc")
-  (cond ((char-equal region ?d) (mark-defun arg))
+  (cond ((char-equal region ?d) (mark-defun))
 	((char-equal region ?s) (mark-sexp arg))
 	((char-equal region ?b) (mark-whole-buffer))
-	((char-equal region ?p) (mark-paragraph arg))
+	((char-equal region ?p) (mark-paragraph))
 	((char-equal region ?P) (mark-page arg))
-	((char-equal region ?f) (mark-c-function arg))
+	((char-equal region ?f) (mark-c-function))
 	((char-equal region ?w) (mark-word arg))
 	((char-equal region ?e) (mark-end-of-sentence arg))
 	((char-equal region ?l) (vi-mark-lines arg))