diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-09 06:10:46 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-09 06:10:46 +0000 |
| commit | 30fa657c2818a68de8b27fe5134749199f5e2473 (patch) | |
| tree | fc228a07c7b105654af89d82b3527800150c1779 /lisp/emulation | |
| parent | 622de3e97ca7b36b35282bb62ce9795d10fea957 (diff) | |
| download | emacs-30fa657c2818a68de8b27fe5134749199f5e2473.tar.gz | |
(vi-kill-region): Pass args to kill-region.
(vi-mark-region): Don't pass unexpected args.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/vi.el | 12 |
1 files changed, 6 insertions, 6 deletions
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)) |