434 |
((eq ex-token-type 'minus) 'sub-number) |
((eq ex-token-type 'minus) 'sub-number) |
435 |
(t 'abs-number))) |
(t 'abs-number))) |
436 |
(setq ex-token |
(setq ex-token |
437 |
(string-to-int (buffer-substring (point) (mark t))))) |
(string-to-number (buffer-substring (point) (mark t))))) |
438 |
((looking-at "\\$") |
((looking-at "\\$") |
439 |
(forward-char 1) |
(forward-char 1) |
440 |
(setq ex-token-type 'end)) |
(setq ex-token-type 'end)) |
912 |
(progn |
(progn |
913 |
(set-mark (point)) |
(set-mark (point)) |
914 |
(re-search-forward "[0-9][0-9]*") |
(re-search-forward "[0-9][0-9]*") |
915 |
(setq ex-count (string-to-int (buffer-substring (point) (mark t)))) |
(setq ex-count (string-to-number (buffer-substring (point) (mark t)))) |
916 |
(skip-chars-forward " \t"))) |
(skip-chars-forward " \t"))) |
917 |
(if (looking-at "[pl#]") |
(if (looking-at "[pl#]") |
918 |
(progn |
(progn |
938 |
(progn |
(progn |
939 |
(set-mark (point)) |
(set-mark (point)) |
940 |
(re-search-forward "[0-9][0-9]*") |
(re-search-forward "[0-9][0-9]*") |
941 |
(setq ex-count (string-to-int (buffer-substring (point) (mark t)))) |
(setq ex-count (string-to-number (buffer-substring (point) (mark t)))) |
942 |
(skip-chars-forward " \t"))) |
(skip-chars-forward " \t"))) |
943 |
(if (looking-at "[pl#]") |
(if (looking-at "[pl#]") |
944 |
(progn |
(progn |
1490 |
(progn |
(progn |
1491 |
(ex-edit t) |
(ex-edit t) |
1492 |
(throw 'ex-edit nil)) |
(throw 'ex-edit nil)) |
1493 |
(setq count (string-to-int ex-file)) |
(setq count (string-to-number ex-file)) |
1494 |
(if (= count 0) (setq count 1)) |
(if (= count 0) (setq count 1)) |
1495 |
(if (< count 0) (error "Usage: `next <count>' (count >= 0)")))) |
(if (< count 0) (error "Usage: `next <count>' (count >= 0)")))) |
1496 |
(setq count 1)) |
(setq count 1)) |