emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emulation/vip.el


From: Werner LEMBERG
Subject: [Emacs-diffs] Changes to emacs/lisp/emulation/vip.el
Date: Fri, 25 Mar 2005 03:30:03 -0500

Index: emacs/lisp/emulation/vip.el
diff -c emacs/lisp/emulation/vip.el:1.29 emacs/lisp/emulation/vip.el:1.30
*** emacs/lisp/emulation/vip.el:1.29    Mon Sep  1 15:45:22 2003
--- emacs/lisp/emulation/vip.el Fri Mar 25 08:30:01 2005
***************
*** 1,6 ****
  ;;; vip.el --- a VI Package for GNU Emacs
  
! ;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Masahiko Sato <address@hidden>
--- 1,6 ----
  ;;; vip.el --- a VI Package for GNU Emacs
  
! ;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Masahiko Sato <address@hidden>
***************
*** 2253,2259 ****
           (setq ex-token-type "end-mark")
           (setq ex-token "goto"))
          (t
!          (error "illegal token")))))
  
  (defun vip-ex (&optional string)
    "ex commands within VIP."
--- 2253,2259 ----
           (setq ex-token-type "end-mark")
           (setq ex-token "goto"))
          (t
!          (error "invalid token")))))
  
  (defun vip-ex (&optional string)
    "ex commands within VIP."
***************
*** 2478,2484 ****
          (setq ex-flag t)
          (forward-char 1)))
      (if (not (looking-at "[\n|]"))
!       (error "Illegal extra characters"))))
  
  (defun vip-get-ex-count ()
    (setq ex-variant nil
--- 2478,2484 ----
          (setq ex-flag t)
          (forward-char 1)))
      (if (not (looking-at "[\n|]"))
!       (error "Invalid extra characters"))))
  
  (defun vip-get-ex-count ()
    (setq ex-variant nil
***************
*** 2503,2509 ****
          (setq ex-flag t)
          (forward-char 1)))
      (if (not (looking-at "[\n|]"))
!       (error "Illegal extra characters"))))
  
  (defun vip-get-ex-file ()
    "get a file name and set ex-variant, ex-append and ex-offset if found"
--- 2503,2509 ----
          (setq ex-flag t)
          (forward-char 1)))
      (if (not (looking-at "[\n|]"))
!       (error "Invalid extra characters"))))
  
  (defun vip-get-ex-file ()
    "get a file name and set ex-variant, ex-append and ex-offset if found"




reply via email to

[Prev in Thread] Current Thread [Next in Thread]