/[emacs]/emacs/lisp/emulation/viper-ex.el
ViewVC logotype

Diff of /emacs/lisp/emulation/viper-ex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by kifer, Sat Feb 19 19:32:47 2005 UTC revision 1.50 by lektu, Mon May 16 11:14:13 2005 UTC
# Line 434  reversed." Line 434  reversed."
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))
# Line 912  reversed." Line 912  reversed."
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
# Line 938  reversed." Line 938  reversed."
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
# Line 1490  reversed." Line 1490  reversed."
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))

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26