diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 10:07:59 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 10:07:59 +0000 |
| commit | 216d380630ec8be9569a56687f0e08b89ee97c47 (patch) | |
| tree | 3e4277a92220cf7828d5a9b8a7ea158a6bea0396 /lisp/url/url-ns.el | |
| parent | cc211a0ff8145e0814413e237bb5674d615968b7 (diff) | |
| download | emacs-216d380630ec8be9569a56687f0e08b89ee97c47.tar.gz | |
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/url/url-ns.el')
| -rw-r--r-- | lisp/url/url-ns.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/url/url-ns.el b/lisp/url/url-ns.el index fe181422e4f..1dcb1f85f27 100644 --- a/lisp/url/url-ns.el +++ b/lisp/url/url-ns.el @@ -51,9 +51,9 @@ (if (or (/= (length netc) (length ipc)) (/= (length ipc) (length maskc))) nil - (setq netc (mapcar 'string-to-int netc) - ipc (mapcar 'string-to-int ipc) - maskc (mapcar 'string-to-int maskc)) + (setq netc (mapcar 'string-to-number netc) + ipc (mapcar 'string-to-number ipc) + maskc (mapcar 'string-to-number maskc)) (and (= (logand (nth 0 netc) (nth 0 maskc)) (logand (nth 0 ipc) (nth 0 maskc))) |