Mercurial > emacs

comparison lisp/emulation/vi.el @ 773:9c89fd7ddd41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Tue, 14 Jul 1992 19:42:01 +0000
parents e4253da532fb
children 71d052f72ac1
comparison
equal deleted inserted replaced
772:2b5af16c9af3 773:9c89fd7ddd41
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
3 ;; Author: Neal Ziring <nz@rsch.wisc.edu>
4 ;; Felix S. T. Wu <wu@crys.wisc.edu>
5 ;; Last-Modified: 7 Jan 1987
6
7 ;;; Commentary:
2 8
3 ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring) 9 ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring)
4 ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu) 10 ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu)
5 ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33) 11 ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)
6 ; 12 ;
24 ; COULD DO 30 ; COULD DO
25 ; 1). A general 'define-operator' function to replace current hack 31 ; 1). A general 'define-operator' function to replace current hack
26 ; 2). In operator handling, should allow other point moving Emacs commands 32 ; 2). In operator handling, should allow other point moving Emacs commands
27 ; (such as ESC <, ESC >) to be used as arguments. 33 ; (such as ESC <, ESC >) to be used as arguments.
28 ; 34 ;
35 ;;; Code:
29 36
30 (defun vi-switch-mode (arg mode-char) 37 (defun vi-switch-mode (arg mode-char)
31 "Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}" 38 "Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}"
32 (interactive "P\nc") 39 (interactive "P\nc")
33 (let ((mode-cmd (lookup-key vi-tilde-map (char-to-string mode-char)))) 40 (let ((mode-cmd (lookup-key vi-tilde-map (char-to-string mode-char))))