* net/socks.el (socks-nslookup-host): Use string-to-number.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c600ca7e6f..8e94ec32147 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-25  Dmitry Antipov  <dmantipov@yandex.ru>
+
+        * net/socks.el (socks-nslookup-host): Use string-to-number.
+
 2013-01-25  Michael Albinus  <michael.albinus@gmx.de>
 
         * autorevert.el (auto-revert-remote-files)
diff --git a/lisp/net/socks.el b/lisp/net/socks.el
index 75b0ebe55ff..415397c4171 100644
--- a/lisp/net/socks.el
+++ b/lisp/net/socks.el
@@ -648,7 +648,7 @@ version.")
               (progn
                 (setq res (buffer-substring (match-beginning 2)
                                             (match-end 2))
-                      res (mapcar 'string-to-int (split-string res "\\.")))))
+                      res (mapcar 'string-to-number (split-string res "\\.")))))
           (kill-buffer (current-buffer)))
         res)
     host))