1 |
;;; vip.el --- a VI Package for GNU Emacs |
;;; vip.el --- a VI Package for GNU Emacs |
2 |
|
|
3 |
;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998 |
;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2005 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Masahiko Sato <ms@sail.stanford.edu> |
;; Author: Masahiko Sato <ms@sail.stanford.edu> |
2253 |
(setq ex-token-type "end-mark") |
(setq ex-token-type "end-mark") |
2254 |
(setq ex-token "goto")) |
(setq ex-token "goto")) |
2255 |
(t |
(t |
2256 |
(error "illegal token"))))) |
(error "invalid token"))))) |
2257 |
|
|
2258 |
(defun vip-ex (&optional string) |
(defun vip-ex (&optional string) |
2259 |
"ex commands within VIP." |
"ex commands within VIP." |
2478 |
(setq ex-flag t) |
(setq ex-flag t) |
2479 |
(forward-char 1))) |
(forward-char 1))) |
2480 |
(if (not (looking-at "[\n|]")) |
(if (not (looking-at "[\n|]")) |
2481 |
(error "Illegal extra characters")))) |
(error "Invalid extra characters")))) |
2482 |
|
|
2483 |
(defun vip-get-ex-count () |
(defun vip-get-ex-count () |
2484 |
(setq ex-variant nil |
(setq ex-variant nil |
2503 |
(setq ex-flag t) |
(setq ex-flag t) |
2504 |
(forward-char 1))) |
(forward-char 1))) |
2505 |
(if (not (looking-at "[\n|]")) |
(if (not (looking-at "[\n|]")) |
2506 |
(error "Illegal extra characters")))) |
(error "Invalid extra characters")))) |
2507 |
|
|
2508 |
(defun vip-get-ex-file () |
(defun vip-get-ex-file () |
2509 |
"get a file name and set ex-variant, ex-append and ex-offset if found" |
"get a file name and set ex-variant, ex-append and ex-offset if found" |