diff options
| author | Karl Heuer | 1996-01-04 23:11:02 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-04 23:11:02 +0000 |
| commit | 4f9da2416a49e1aa46128074e938ea015d437531 (patch) | |
| tree | 2f01992f5e527491fbfb2b8533e41a3fd83a80d1 | |
| parent | 1498db1830b6e9f1c98c7e117aa2de5354f463d5 (diff) | |
| download | emacs-4f9da2416a49e1aa46128074e938ea015d437531.tar.gz emacs-4f9da2416a49e1aa46128074e938ea015d437531.zip | |
(vi-backward-windowful): Renamed from vi-backward-windowfull.
(vi-forward-windowful): Renamed from vi-forward-windowfull.
| -rw-r--r-- | lisp/emulation/vi.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index 47ff8a64804..265ab94f43f 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs. | 1 | ;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs. |
| 2 | 2 | ||
| 3 | ; This file is in the public domain because the authors distributed it | 3 | ; This file is in the public domain because the authors distributed it |
| 4 | ; without a copyright noticed before the US signed the Bern Convention. | 4 | ; without a copyright notice before the US signed the Bern Convention. |
| 5 | 5 | ||
| 6 | ;; Author: Neal Ziring <nz@rsch.wisc.edu> | 6 | ;; Author: Neal Ziring <nz@rsch.wisc.edu> |
| 7 | ;; Felix S. T. Wu <wu@crys.wisc.edu> | 7 | ;; Felix S. T. Wu <wu@crys.wisc.edu> |
| @@ -117,11 +117,11 @@ command extensions.") | |||
| 117 | ;;(fillarray vi-com-map 'vi-undefined) | 117 | ;;(fillarray vi-com-map 'vi-undefined) |
| 118 | (define-key vi-com-map "\C-@" 'vi-mark-region) ; extension | 118 | (define-key vi-com-map "\C-@" 'vi-mark-region) ; extension |
| 119 | (define-key vi-com-map "\C-a" 'vi-ask-for-info) ; extension | 119 | (define-key vi-com-map "\C-a" 'vi-ask-for-info) ; extension |
| 120 | (define-key vi-com-map "\C-b" 'vi-backward-windowfull) | 120 | (define-key vi-com-map "\C-b" 'vi-backward-windowful) |
| 121 | (define-key vi-com-map "\C-c" 'vi-do-old-mode-C-c-command) ; extension | 121 | (define-key vi-com-map "\C-c" 'vi-do-old-mode-C-c-command) ; extension |
| 122 | (define-key vi-com-map "\C-d" 'vi-scroll-down-window) | 122 | (define-key vi-com-map "\C-d" 'vi-scroll-down-window) |
| 123 | (define-key vi-com-map "\C-e" 'vi-expose-line-below) | 123 | (define-key vi-com-map "\C-e" 'vi-expose-line-below) |
| 124 | (define-key vi-com-map "\C-f" 'vi-forward-windowfull) | 124 | (define-key vi-com-map "\C-f" 'vi-forward-windowful) |
| 125 | (define-key vi-com-map "\C-g" 'keyboard-quit) | 125 | (define-key vi-com-map "\C-g" 'keyboard-quit) |
| 126 | (define-key vi-com-map "\C-i" 'indent-relative-maybe) ; TAB | 126 | (define-key vi-com-map "\C-i" 'indent-relative-maybe) ; TAB |
| 127 | (define-key vi-com-map "\C-j" 'vi-next-line) ; LFD | 127 | (define-key vi-com-map "\C-j" 'vi-next-line) ; LFD |
| @@ -733,8 +733,8 @@ are given, use those instead of the ones saved." | |||
| 733 | (kill-region vi-ins-point (point))) | 733 | (kill-region vi-ins-point (point))) |
| 734 | (vi-goto-command-state t))) | 734 | (vi-goto-command-state t))) |
| 735 | 735 | ||
| 736 | (defun vi-backward-windowfull (count) | 736 | (defun vi-backward-windowful (count) |
| 737 | "Backward COUNT windowfulls. Default is one." | 737 | "Backward COUNT windowfuls. Default is one." |
| 738 | (interactive "p") | 738 | (interactive "p") |
| 739 | ; (set-mark-command nil) | 739 | ; (set-mark-command nil) |
| 740 | (while (> count 0) | 740 | (while (> count 0) |
| @@ -755,8 +755,8 @@ The given COUNT is remembered for future scrollings." | |||
| 755 | (interactive "p") | 755 | (interactive "p") |
| 756 | (scroll-up count)) | 756 | (scroll-up count)) |
| 757 | 757 | ||
| 758 | (defun vi-forward-windowfull (count) | 758 | (defun vi-forward-windowful (count) |
| 759 | "Forward COUNT windowfulls. Default is one." | 759 | "Forward COUNT windowfuls. Default is one." |
| 760 | (interactive "p") | 760 | (interactive "p") |
| 761 | ; (set-mark-command nil) | 761 | ; (set-mark-command nil) |
| 762 | (while (> count 0) | 762 | (while (> count 0) |