# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120407959 0
# Node ID c9581f50bd50f1640e3e2dfbf1b7c11c59805dcc
# Parent  929eb735e11d5670fc71e7d3a4ecfb3a862bf226
(vi-mark-region): Use c-mark-function.
(c-mark-function): Add point-moving-unit property.
(vi-goto-line): Use with-no-warnings.

diff -r 929eb735e11d -r c9581f50bd50 lisp/emulation/vi.el
--- a/lisp/emulation/vi.el	Sun Jul 03 16:24:30 2005 +0000
+++ b/lisp/emulation/vi.el	Sun Jul 03 16:25:59 2005 +0000
@@ -314,7 +314,7 @@
 (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 @@
    "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 @@
 	((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))