/[emacs]/emacs/lisp/emulation/vi.el
ViewVC logotype

Diff of /emacs/lisp/emulation/vi.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by lektu, Tue Jun 14 11:31:43 2005 UTC revision 1.27 by rms, Sun Jul 3 16:25:59 2005 UTC
# Line 314  command extensions.") Line 314  command extensions.")
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
# Line 637  insert state." Line 637  insert state."
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 ()
# Line 1384  l(ines)." Line 1385  l(ines)."
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))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26