comparison lisp/emulation/vi.el @ 90133:4da4a09e8b1b

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-31 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 206-222) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 45-52) - Update from CVS - Update from CVS: texi Makefile.in CVS keyw cruft - Update from CVS: ChangeLog tweaks

90132:4080fe8b4f0f

;;; 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 notice before the US signed the Bern Convention.

;; This file is part of GNU Emacs.

;; Author: Neal Ziring <[e-mail]>
;;	Felix S. T. Wu <[e-mail]>
;; Keywords: emulations

;;; Commentary:

; Originally written by : seismo!wucs![e-mail] (Neal Ziring)
; Extensively redesigned and rewritten by [e-mail] (Felix S.T. Wu)
; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)

; INSTALLATION PROCEDURE:
; 1) Add a global key binding for command "vi-mode" (I use ESC ESC instead of
;    the single ESC used in real "vi", so I can access other ESC prefixed emacs
;    commands while I'm in "vi"), say, by putting the following line in your
;    ".emacs" file:
;    (define-key global-map "\e\e" 'vi-mode) ;quick switch into vi-mode
; 2) If you wish you can define "find-file-hooks" to enter "vi" automatically
;    after a file is loaded into the buffer. For example, I defined it as:
;    (setq find-file-hooks (list
;                            (function (lambda ()
;                                (if (not (or (eq major-mode 'Info-mode)
;	                                      (eq major-mode 'vi-mode)))
;                                    (vi-mode))))))
; 3) In your .emacs file you can define the command "vi-mode" to be "autoload"
;    or you can execute the "load" command to load "vi" directly.
; 4) Read the comments for command "vi-mode" before you start using it.
;
; COULD DO
; 1). A general 'define-operator' function to replace current hack
; 2). In operator handling, should allow other point moving Emacs commands
;     (such as ESC <, ESC >) to be used as arguments.
;
;;; Code:

(defvar vi-mode-old-major-mode)
(defvar vi-mode-old-mode-name)
(defvar vi-mode-old-local-map)

			(if flag (forward-char 1))))) arg)
    t))

(provide 'vi)

;;; arch-tag: ac9bdac3-8acb-4ddd-bdae-c6dd873153b3
;;; vi.el ends here

90133:4da4a09e8b1b

;;; 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 notice before the US signed the Bern Convention.

;; This file is part of GNU Emacs.

;; Author: Neal Ziring <[e-mail]>
;;	Felix S. T. Wu <[e-mail]>
;; Keywords: emulations

;;; Commentary:

;; Originally written by : seismo!wucs![e-mail] (Neal Ziring)
;; Extensively redesigned and rewritten by [e-mail] (Felix S.T. Wu)
;; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)

;; INSTALLATION PROCEDURE:
;; 1) Add a global key binding for command "vi-mode" (I use ESC ESC instead of
;;    the single ESC used in real "vi", so I can access other ESC prefixed emacs
;;    commands while I'm in "vi"), say, by putting the following line in your
;;    ".emacs" file:
;;    (define-key global-map "\e\e" 'vi-mode) ;quick switch into vi-mode
;; 2) If you wish you can define "find-file-hook" to enter "vi" automatically
;;    after a file is loaded into the buffer. For example, I defined it as:
;;    (setq find-file-hook (list
;;                           (function (lambda ()
;;                               (if (not (or (eq major-mode 'Info-mode)
;; 	                                     (eq major-mode 'vi-mode)))
;;                                   (vi-mode))))))
;; 3) In your .emacs file you can define the command "vi-mode" to be "autoload"
;;    or you can execute the "load" command to load "vi" directly.
;; 4) Read the comments for command "vi-mode" before you start using it.

;; COULD DO
;; 1). A general 'define-operator' function to replace current hack
;; 2). In operator handling, should allow other point moving Emacs commands
;;     (such as ESC <, ESC >) to be used as arguments.

;;; Code:

(defvar vi-mode-old-major-mode)
(defvar vi-mode-old-mode-name)
(defvar vi-mode-old-local-map)

			(if flag (forward-char 1))))) arg)
    t))

(provide 'vi)

;; arch-tag: ac9bdac3-8acb-4ddd-bdae-c6dd873153b3
;;; vi.el ends here