Fix: Warning: "string-to-int" is an obsolete function (as of 22.1); use
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 30 Mar 2017 00:34:44 +0300
changeset 1521 df20553d4bd2
parent 1520 049eff94d357
child 1522 bbc10891c9a0
Fix: Warning: "string-to-int" is an obsolete function (as of 22.1); use "string-to-number" instead.
ag.el
--- a/ag.el	Thu Mar 30 00:24:42 2017 +0300
+++ b/ag.el	Thu Mar 30 00:34:44 2017 +0300
@@ -13,7 +13,7 @@
       (forward-line 0)
       (if (not (search-forward-regexp "^\\([1-9][0-9]*\\):" end t))
           (message "Not at line number...")
-        (setq lineno (string-to-int (match-string 1)))
+        (setq lineno (string-to-number (match-string 1)))
         (if (search-backward-regexp "^$" nil t)
             (forward-char)
           (goto-char (point-min)))