Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
author Miles Bader <miles@gnu.org>
date Thu, 31 Mar 2005 09:58:14 +0000
parents 68c22ea6027c 62dc372efbe1
children f042e7c0fe20
comparison
equal deleted inserted replaced
90132:4080fe8b4f0f 90133:4da4a09e8b1b
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>
7 ;; Keywords: emulations 7 ;; Keywords: emulations
8 8
2251 (forward-char 1)) 2251 (forward-char 1))
2252 ((looking-at "\n") 2252 ((looking-at "\n")
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."
2260 (interactive) 2260 (interactive)
2261 (or string 2261 (or string
2476 (if (looking-at "[pl#]") 2476 (if (looking-at "[pl#]")
2477 (progn 2477 (progn
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
2485 ex-count nil 2485 ex-count nil
2486 ex-flag nil) 2486 ex-flag nil)
2501 (if (looking-at "[pl#]") 2501 (if (looking-at "[pl#]")
2502 (progn 2502 (progn
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"
2510 (setq ex-file nil 2510 (setq ex-file nil
2511 ex-variant nil 2511 ex-variant nil