314 |
(put 'mark-defun 'point-moving-unit 'region) |
(put 'mark-defun 'point-moving-unit 'region) |
315 |
(put 'mark-whole-buffer 'point-moving-unit 'region) |
(put 'mark-whole-buffer 'point-moving-unit 'region) |
316 |
(put 'mark-end-of-sentence 'point-moving-unit 'region) |
(put 'mark-end-of-sentence 'point-moving-unit 'region) |
317 |
(put 'mark-c-function 'point-moving-unit 'region) |
(put 'c-mark-function 'point-moving-unit 'region) |
318 |
;;; |
;;; |
319 |
|
|
320 |
(defvar vi-mark-alist nil |
(defvar vi-mark-alist nil |
637 |
"Go to ARGth line." |
"Go to ARGth line." |
638 |
(interactive "P") |
(interactive "P") |
639 |
(if (null (vi-raw-numeric-prefix arg)) |
(if (null (vi-raw-numeric-prefix arg)) |
640 |
(end-of-buffer) |
(with-no-warnings |
641 |
|
(end-of-buffer)) |
642 |
(goto-line (vi-prefix-numeric-value arg)))) |
(goto-line (vi-prefix-numeric-value arg)))) |
643 |
|
|
644 |
(defun vi-beginning-of-buffer () |
(defun vi-beginning-of-buffer () |
1385 |
((char-equal region ?b) (mark-whole-buffer)) |
((char-equal region ?b) (mark-whole-buffer)) |
1386 |
((char-equal region ?p) (mark-paragraph)) |
((char-equal region ?p) (mark-paragraph)) |
1387 |
((char-equal region ?P) (mark-page arg)) |
((char-equal region ?P) (mark-page arg)) |
1388 |
((char-equal region ?f) (mark-c-function)) |
((char-equal region ?f) (c-mark-function)) |
1389 |
((char-equal region ?w) (mark-word arg)) |
((char-equal region ?w) (mark-word arg)) |
1390 |
((char-equal region ?e) (mark-end-of-sentence arg)) |
((char-equal region ?e) (mark-end-of-sentence arg)) |
1391 |
((char-equal region ?l) (vi-mark-lines arg)) |
((char-equal region ?l) (vi-mark-lines arg)) |