[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el

[Juanma Barranquero]

Index: emacs/lisp/emulation/viper-ex.el
diff -c emacs/lisp/emulation/viper-ex.el:1.49 
emacs/lisp/emulation/viper-ex.el:1.50
*** emacs/lisp/emulation/viper-ex.el:1.49       Sat Feb 19 19:32:47 2005
--- emacs/lisp/emulation/viper-ex.el    Mon May 16 11:14:13 2005
***************
*** 434,440 ****
                         ((eq ex-token-type 'minus) 'sub-number)
                         (t 'abs-number)))
             (setq ex-token
!                  (string-to-int (buffer-substring (point) (mark t)))))
            ((looking-at "\\$")
             (forward-char 1)
             (setq ex-token-type 'end))
--- 434,440 ----
                         ((eq ex-token-type 'minus) 'sub-number)
                         (t 'abs-number)))
             (setq ex-token
!                  (string-to-number (buffer-substring (point) (mark t)))))
            ((looking-at "\\$")
             (forward-char 1)
             (setq ex-token-type 'end))
***************
*** 912,918 ****
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-int (buffer-substring (point) (mark t))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
--- 912,918 ----
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-number (buffer-substring (point) (mark t))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
***************
*** 938,944 ****
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-int (buffer-substring (point) (mark t))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
--- 938,944 ----
        (progn
          (set-mark (point))
          (re-search-forward "[0-9][0-9]*")
!         (setq ex-count (string-to-number (buffer-substring (point) (mark t))))
          (skip-chars-forward " \t")))
      (if (looking-at "[pl#]")
        (progn
***************
*** 1490,1496 ****
                (progn
                  (ex-edit t)
                  (throw 'ex-edit nil))
!             (setq count (string-to-int ex-file))
              (if (= count 0) (setq count 1))
              (if (< count 0) (error "Usage: `next <count>' (count >= 0)"))))
        (setq count 1))
--- 1490,1496 ----
                (progn
                  (ex-edit t)
                  (throw 'ex-edit nil))
!             (setq count (string-to-number ex-file))
              (if (= count 0) (setq count 1))
              (if (< count 0) (error "Usage: `next <count>' (count >= 0)"))))
        (setq count 1))