aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-04 23:11:02 +0000
committerKarl Heuer1996-01-04 23:11:02 +0000
commit4f9da2416a49e1aa46128074e938ea015d437531 (patch)
tree2f01992f5e527491fbfb2b8533e41a3fd83a80d1
parent1498db1830b6e9f1c98c7e117aa2de5354f463d5 (diff)
downloademacs-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.el14
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)