diff options
| author | Miles Bader | 2005-03-31 09:58:14 +0000 |
|---|---|---|
| committer | Miles Bader | 2005-03-31 09:58:14 +0000 |
| commit | 773415d9340f12db3bd8654de5014deec57d49b7 (patch) | |
| tree | 579ecf466891c80df147934b0db24cb89d0abe3d /lisp/emulation | |
| parent | e9d5a4e18a8955cf60e78c54a511fd8e1259716f (diff) | |
| parent | 7c315e1cff9019c8af55921fab6f571e68b09623 (diff) | |
| download | emacs-773415d9340f12db3bd8654de5014deec57d49b7.tar.gz emacs-773415d9340f12db3bd8654de5014deec57d49b7.zip | |
Revision: miles@gnu.org--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
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/vi.el | 58 | ||||
| -rw-r--r-- | lisp/emulation/vip.el | 8 |
3 files changed, 34 insertions, 34 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index d72dc91ad2b..7b2ba5c6fb2 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1016,7 +1016,7 @@ If ARG is the atom `-', scroll upward by nearly full screen." | |||
| 1016 | (scroll-down arg) | 1016 | (scroll-down arg) |
| 1017 | (beginning-of-buffer (goto-char (point-min))))))) | 1017 | (beginning-of-buffer (goto-char (point-min))))))) |
| 1018 | 1018 | ||
| 1019 | (put 'cua-scroll-up 'CUA 'move) | 1019 | (put 'cua-scroll-down 'CUA 'move) |
| 1020 | 1020 | ||
| 1021 | ;;; Cursor indications | 1021 | ;;; Cursor indications |
| 1022 | 1022 | ||
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index 4e17644e66a..70a52617431 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 notice before the US signed the Bern Convention. | 4 | ;; without a copyright notice before the US signed the Bern Convention. |
| 5 | 5 | ||
| 6 | ;; This file is part of GNU Emacs. | 6 | ;; This file is part of GNU Emacs. |
| 7 | 7 | ||
| @@ -11,32 +11,32 @@ | |||
| 11 | 11 | ||
| 12 | ;;; Commentary: | 12 | ;;; Commentary: |
| 13 | 13 | ||
| 14 | ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring) | 14 | ;; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring) |
| 15 | ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu) | 15 | ;; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu) |
| 16 | ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33) | 16 | ;; Last revision: 01/07/87 Wed (for GNU Emacs 18.33) |
| 17 | 17 | ||
| 18 | ; INSTALLATION PROCEDURE: | 18 | ;; INSTALLATION PROCEDURE: |
| 19 | ; 1) Add a global key binding for command "vi-mode" (I use ESC ESC instead of | 19 | ;; 1) Add a global key binding for command "vi-mode" (I use ESC ESC instead of |
| 20 | ; the single ESC used in real "vi", so I can access other ESC prefixed emacs | 20 | ;; the single ESC used in real "vi", so I can access other ESC prefixed emacs |
| 21 | ; commands while I'm in "vi"), say, by putting the following line in your | 21 | ;; commands while I'm in "vi"), say, by putting the following line in your |
| 22 | ; ".emacs" file: | 22 | ;; ".emacs" file: |
| 23 | ; (define-key global-map "\e\e" 'vi-mode) ;quick switch into vi-mode | 23 | ;; (define-key global-map "\e\e" 'vi-mode) ;quick switch into vi-mode |
| 24 | ; 2) If you wish you can define "find-file-hooks" to enter "vi" automatically | 24 | ;; 2) If you wish you can define "find-file-hook" to enter "vi" automatically |
| 25 | ; after a file is loaded into the buffer. For example, I defined it as: | 25 | ;; after a file is loaded into the buffer. For example, I defined it as: |
| 26 | ; (setq find-file-hooks (list | 26 | ;; (setq find-file-hook (list |
| 27 | ; (function (lambda () | 27 | ;; (function (lambda () |
| 28 | ; (if (not (or (eq major-mode 'Info-mode) | 28 | ;; (if (not (or (eq major-mode 'Info-mode) |
| 29 | ; (eq major-mode 'vi-mode))) | 29 | ;; (eq major-mode 'vi-mode))) |
| 30 | ; (vi-mode)))))) | 30 | ;; (vi-mode)))))) |
| 31 | ; 3) In your .emacs file you can define the command "vi-mode" to be "autoload" | 31 | ;; 3) In your .emacs file you can define the command "vi-mode" to be "autoload" |
| 32 | ; or you can execute the "load" command to load "vi" directly. | 32 | ;; or you can execute the "load" command to load "vi" directly. |
| 33 | ; 4) Read the comments for command "vi-mode" before you start using it. | 33 | ;; 4) Read the comments for command "vi-mode" before you start using it. |
| 34 | ; | 34 | |
| 35 | ; COULD DO | 35 | ;; COULD DO |
| 36 | ; 1). A general 'define-operator' function to replace current hack | 36 | ;; 1). A general 'define-operator' function to replace current hack |
| 37 | ; 2). In operator handling, should allow other point moving Emacs commands | 37 | ;; 2). In operator handling, should allow other point moving Emacs commands |
| 38 | ; (such as ESC <, ESC >) to be used as arguments. | 38 | ;; (such as ESC <, ESC >) to be used as arguments. |
| 39 | ; | 39 | |
| 40 | ;;; Code: | 40 | ;;; Code: |
| 41 | 41 | ||
| 42 | (defvar vi-mode-old-major-mode) | 42 | (defvar vi-mode-old-major-mode) |
| @@ -1487,5 +1487,5 @@ With ARG, inserts that many newlines." | |||
| 1487 | 1487 | ||
| 1488 | (provide 'vi) | 1488 | (provide 'vi) |
| 1489 | 1489 | ||
| 1490 | ;;; arch-tag: ac9bdac3-8acb-4ddd-bdae-c6dd873153b3 | 1490 | ;; arch-tag: ac9bdac3-8acb-4ddd-bdae-c6dd873153b3 |
| 1491 | ;;; vi.el ends here | 1491 | ;;; vi.el ends here |
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index cbb0aa55aa8..af878085ba8 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; vip.el --- a VI Package for GNU Emacs | 1 | ;;; vip.el --- a VI Package for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998 | 3 | ;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2005 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Masahiko Sato <ms@sail.stanford.edu> | 6 | ;; Author: Masahiko Sato <ms@sail.stanford.edu> |
| @@ -2253,7 +2253,7 @@ a token has type \(command, address, end-mark\) and value." | |||
| 2253 | (setq ex-token-type "end-mark") | 2253 | (setq ex-token-type "end-mark") |
| 2254 | (setq ex-token "goto")) | 2254 | (setq ex-token "goto")) |
| 2255 | (t | 2255 | (t |
| 2256 | (error "illegal token"))))) | 2256 | (error "invalid token"))))) |
| 2257 | 2257 | ||
| 2258 | (defun vip-ex (&optional string) | 2258 | (defun vip-ex (&optional string) |
| 2259 | "ex commands within VIP." | 2259 | "ex commands within VIP." |
| @@ -2478,7 +2478,7 @@ a token has type \(command, address, end-mark\) and value." | |||
| 2478 | (setq ex-flag t) | 2478 | (setq ex-flag t) |
| 2479 | (forward-char 1))) | 2479 | (forward-char 1))) |
| 2480 | (if (not (looking-at "[\n|]")) | 2480 | (if (not (looking-at "[\n|]")) |
| 2481 | (error "Illegal extra characters")))) | 2481 | (error "Invalid extra characters")))) |
| 2482 | 2482 | ||
| 2483 | (defun vip-get-ex-count () | 2483 | (defun vip-get-ex-count () |
| 2484 | (setq ex-variant nil | 2484 | (setq ex-variant nil |
| @@ -2503,7 +2503,7 @@ a token has type \(command, address, end-mark\) and value." | |||
| 2503 | (setq ex-flag t) | 2503 | (setq ex-flag t) |
| 2504 | (forward-char 1))) | 2504 | (forward-char 1))) |
| 2505 | (if (not (looking-at "[\n|]")) | 2505 | (if (not (looking-at "[\n|]")) |
| 2506 | (error "Illegal extra characters")))) | 2506 | (error "Invalid extra characters")))) |
| 2507 | 2507 | ||
| 2508 | (defun vip-get-ex-file () | 2508 | (defun vip-get-ex-file () |
| 2509 | "get a file name and set ex-variant, ex-append and ex-offset if found" | 2509 | "get a file name and set ex-variant, ex-append and ex-offset if found" |