Mercurial > emacs

comparison lisp/emulation/vip.el @ 62402:a7e02ef1e3d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace `string-to-int' by `string-to-number'.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 16 May 2005 11:33:47 +0000
parents 62dc372efbe1
children 91a5f7200df2 f042e7c0fe20
comparison
equal deleted inserted replaced
62401:4512c4db6912 62402:a7e02ef1e3d6
2175 (re-search-forward "[0-9]*") 2175 (re-search-forward "[0-9]*")
2176 (setq ex-token-type 2176 (setq ex-token-type
2177 (cond ((string= ex-token-type "plus") "add-number") 2177 (cond ((string= ex-token-type "plus") "add-number")
2178 ((string= ex-token-type "minus") "sub-number") 2178 ((string= ex-token-type "minus") "sub-number")
2179 (t "abs-number"))) 2179 (t "abs-number")))
2180 (setq ex-token (string-to-int (buffer-substring (point) (mark))))) 2180 (setq ex-token (string-to-number (buffer-substring (point) (mark)))))
2181 ((looking-at "\\$") 2181 ((looking-at "\\$")
2182 (forward-char 1) 2182 (forward-char 1)
2183 (setq ex-token-type "end")) 2183 (setq ex-token-type "end"))
2184 ((looking-at "%") 2184 ((looking-at "%")
2185 (forward-char 1) 2185 (forward-char 1)
2469 (skip-chars-forward " \t"))) 2469 (skip-chars-forward " \t")))
2470 (if (looking-at "[0-9]") 2470 (if (looking-at "[0-9]")
2471 (progn 2471 (progn
2472 (set-mark (point)) 2472 (set-mark (point))
2473 (re-search-forward "[0-9][0-9]*") 2473 (re-search-forward "[0-9][0-9]*")
2474 (setq ex-count (string-to-int (buffer-substring (point) (mark)))) 2474 (setq ex-count (string-to-number (buffer-substring (point) (mark))))
2475 (skip-chars-forward " \t"))) 2475 (skip-chars-forward " \t")))
2476 (if (looking-at "[pl#]") 2476 (if (looking-at "[pl#]")
2477 (progn 2477 (progn
2478 (setq ex-flag t) 2478 (setq ex-flag t)
2479 (forward-char 1))) 2479 (forward-char 1)))
2494 (skip-chars-forward " \t") 2494 (skip-chars-forward " \t")
2495 (if (looking-at "[0-9]") 2495 (if (looking-at "[0-9]")
2496 (progn 2496 (progn
2497 (set-mark (point)) 2497 (set-mark (point))
2498 (re-search-forward "[0-9][0-9]*") 2498 (re-search-forward "[0-9][0-9]*")
2499 (setq ex-count (string-to-int (buffer-substring (point) (mark)))) 2499 (setq ex-count (string-to-number (buffer-substring (point) (mark))))
2500 (skip-chars-forward " \t"))) 2500 (skip-chars-forward " \t")))
2501 (if (looking-at "[pl#]") 2501 (if (looking-at "[pl#]")
2502 (progn 2502 (progn
2503 (setq ex-flag t) 2503 (setq ex-flag t)
2504 (forward-char 1))) 2504 (forward-char 1)))