aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorMiles Bader2005-03-31 09:58:14 +0000
committerMiles Bader2005-03-31 09:58:14 +0000
commit773415d9340f12db3bd8654de5014deec57d49b7 (patch)
tree579ecf466891c80df147934b0db24cb89d0abe3d /lisp/emulation
parente9d5a4e18a8955cf60e78c54a511fd8e1259716f (diff)
parent7c315e1cff9019c8af55921fab6f571e68b09623 (diff)
downloademacs-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.el2
-rw-r--r--lisp/emulation/vi.el58
-rw-r--r--lisp/emulation/vip.el8
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"