procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vi-kill-region): Pass args to kill-region.

Browse source 
(vi-mark-region): Don't pass unexpected args.
This commit is contained in:
Karl Heuer 1994-11-09 06:10:46 +00:00
parent 622de3e97c
commit 30fa657c28
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/emulation/vi.el
View file

@ -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))