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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
