mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(vi-mark-region): Use c-mark-function.

Browse Source 
(c-mark-function): Add point-moving-unit property.
(vi-goto-line): Use with-no-warnings.
This commit is contained in:
Richard M. Stallman 2005-07-03 16:25:59 +00:00
parent 4668b9f92d
commit 3b72eca0a3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/emulation/vi.el
View File

@ -314,7 +314,7 @@ command extensions.")
(put 'mark-defun 'point-moving-unit 'region)
(put 'mark-whole-buffer 'point-moving-unit 'region)
(put 'mark-end-of-sentence 'point-moving-unit 'region)
(put 'mark-c-function 'point-moving-unit 'region)
(put 'c-mark-function 'point-moving-unit 'region)
;;;
(defvar vi-mark-alist nil
@ -637,7 +637,8 @@ insert state."
"Go to ARGth line."
(interactive "P")
(if (null (vi-raw-numeric-prefix arg))
(end-of-buffer)
(with-no-warnings
(end-of-buffer))
(goto-line (vi-prefix-numeric-value arg))))
(defun vi-beginning-of-buffer ()
@ -1384,7 +1385,7 @@ l(ines)."
((char-equal region ?b) (mark-whole-buffer))
((char-equal region ?p) (mark-paragraph))
((char-equal region ?P) (mark-page arg))
((char-equal region ?f) (mark-c-function))
((char-equal region ?f) (c-mark-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))