# HG changeset patch # User Karl Heuer # Date 820797062 0 # Node ID b777c515e6dcc238630399402145c472d1211f8e # Parent e9615c5f477a4a63abb358035a599fba6c7072e3 (vi-backward-windowful): Renamed from vi-backward-windowfull. (vi-forward-windowful): Renamed from vi-forward-windowfull. diff -r e9615c5f477a -r b777c515e6dc lisp/emulation/vi.el --- a/lisp/emulation/vi.el Thu Jan 04 23:10:07 1996 +0000 +++ b/lisp/emulation/vi.el Thu Jan 04 23:11:02 1996 +0000 @@ -1,7 +1,7 @@ ;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs. ; This file is in the public domain because the authors distributed it -; without a copyright noticed before the US signed the Bern Convention. +; without a copyright notice before the US signed the Bern Convention. ;; Author: Neal Ziring ;; Felix S. T. Wu @@ -117,11 +117,11 @@ ;;(fillarray vi-com-map 'vi-undefined) (define-key vi-com-map "\C-@" 'vi-mark-region) ; extension (define-key vi-com-map "\C-a" 'vi-ask-for-info) ; extension - (define-key vi-com-map "\C-b" 'vi-backward-windowfull) + (define-key vi-com-map "\C-b" 'vi-backward-windowful) (define-key vi-com-map "\C-c" 'vi-do-old-mode-C-c-command) ; extension (define-key vi-com-map "\C-d" 'vi-scroll-down-window) (define-key vi-com-map "\C-e" 'vi-expose-line-below) - (define-key vi-com-map "\C-f" 'vi-forward-windowfull) + (define-key vi-com-map "\C-f" 'vi-forward-windowful) (define-key vi-com-map "\C-g" 'keyboard-quit) (define-key vi-com-map "\C-i" 'indent-relative-maybe) ; TAB (define-key vi-com-map "\C-j" 'vi-next-line) ; LFD @@ -733,8 +733,8 @@ (kill-region vi-ins-point (point))) (vi-goto-command-state t))) -(defun vi-backward-windowfull (count) - "Backward COUNT windowfulls. Default is one." +(defun vi-backward-windowful (count) + "Backward COUNT windowfuls. Default is one." (interactive "p") ; (set-mark-command nil) (while (> count 0) @@ -755,8 +755,8 @@ (interactive "p") (scroll-up count)) -(defun vi-forward-windowfull (count) - "Forward COUNT windowfulls. Default is one." +(defun vi-forward-windowful (count) + "Forward COUNT windowfuls. Default is one." (interactive "p") ; (set-mark-command nil) (while (> count 0)