diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-07-03 16:25:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-07-03 16:25:59 +0000 |
| commit | 3b72eca0a36c364e9fdeb2ae7c50718b3d3c2bea (patch) | |
| tree | 144a8183bdcb7e40a9ca0f601448efaae4342989 /lisp/emulation/vi.el | |
| parent | 4668b9f92d1c8bf8370130a13168b8c8d6259aef (diff) | |
| download | emacs-3b72eca0a36c364e9fdeb2ae7c50718b3d3c2bea.tar.gz | |
(vi-mark-region): Use c-mark-function.
(c-mark-function): Add point-moving-unit property.
(vi-goto-line): Use with-no-warnings.
Diffstat (limited to 'lisp/emulation/vi.el')
| -rw-r--r-- | lisp/emulation/vi.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index d6b7c2728b2..559d1677347 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el @@ -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)) |