diff options
Diffstat (limited to 'lisp/emulation/vip.el')
| -rw-r--r-- | lisp/emulation/vip.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index af878085ba8..19f08d54989 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -2177,7 +2177,7 @@ a token has type \(command, address, end-mark\) and value." (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))))) + (setq ex-token (string-to-number (buffer-substring (point) (mark))))) ((looking-at "\\$") (forward-char 1) (setq ex-token-type "end")) @@ -2471,7 +2471,7 @@ a token has type \(command, address, end-mark\) and value." (progn (set-mark (point)) (re-search-forward "[0-9][0-9]*") - (setq ex-count (string-to-int (buffer-substring (point) (mark)))) + (setq ex-count (string-to-number (buffer-substring (point) (mark)))) (skip-chars-forward " \t"))) (if (looking-at "[pl#]") (progn @@ -2496,7 +2496,7 @@ a token has type \(command, address, end-mark\) and value." (progn (set-mark (point)) (re-search-forward "[0-9][0-9]*") - (setq ex-count (string-to-int (buffer-substring (point) (mark)))) + (setq ex-count (string-to-number (buffer-substring (point) (mark)))) (skip-chars-forward " \t"))) (if (looking-at "[pl#]") (progn |