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

[Juanma Barranquero]

Index: emacs/lisp/emulation/vip.el
diff -c emacs/lisp/emulation/vip.el:1.30 emacs/lisp/emulation/vip.el:1.31
*** emacs/lisp/emulation/vip.el:1.30    Fri Mar 25 08:30:01 2005
--- emacs/lisp/emulation/vip.el Mon May 16 11:14:13 2005
***************
*** 2177,2183 ****
                 (cond ((string= ex-token-type "plus") "add-number")
                       ((string= ex-token-type "minus") "sub-number")
                       (t "abs-number")))
!          (setq ex-token (string-to-int (buffer-substring (point) (mark)))))
          ((looking-at "\\$")
           (forward-char 1)
           (setq ex-token-type "end"))
--- 2177,2183 ----
                 (cond ((string= ex-token-type "plus") "add-number")
                       ((string= ex-token-type "minus") "sub-number")
                       (t "abs-number")))
!          (setq ex-token (string-to-number (buffer-substring (point) (mark)))))
          ((looking-at "\\$")
           (forward-char 1)
           (setq ex-token-type "end"))
***************
*** 2471,2477 ****
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-int (buffer-substring (point) (mark))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
--- 2471,2477 ----
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-number (buffer-substring (point) (mark))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
***************
*** 2496,2502 ****
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-int (buffer-substring (point) (mark))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
--- 2496,2502 ----
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-number (buffer-substring (point) (mark))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn