/[emacs]/emacs/lisp/emulation/vip.el
ViewVC logotype

Diff of /emacs/lisp/emulation/vip.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by miles, Mon Sep 1 15:45:22 2003 UTC revision 1.30 by wl, Fri Mar 25 08:30:01 2005 UTC
# Line 1  Line 1 
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>
# Line 2253  a token has type \(command, address, end Line 2253  a token has type \(command, address, end
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."
# Line 2478  a token has type \(command, address, end Line 2478  a token has type \(command, address, end
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
# Line 2503  a token has type \(command, address, end Line 2503  a token has type \(command, address, end
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"

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26