diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-04-24 21:13:00 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-04-24 21:13:00 -0400 |
| commit | cab400aacde04e4455caea4a6525b26ca7909850 (patch) | |
| tree | 1b96cb474d3cb8b8a2fc146bb015e397e8b51e36 /lisp/net/socks.el | |
| parent | 1a6f59573603a57f64f4bc8866d482a20ef1ea52 (diff) | |
| download | emacs-cab400aacde04e4455caea4a6525b26ca7909850.tar.gz | |
socks.el: remove pre-21 compatibility code
* lisp/net/socks.el (socks-split-string): Remove.
(socks-nslookup-host): Just use split-string.
Diffstat (limited to 'lisp/net/socks.el')
| -rw-r--r-- | lisp/net/socks.el | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/lisp/net/socks.el b/lisp/net/socks.el index 32362e25434..1c2459a8e65 100644 --- a/lisp/net/socks.el +++ b/lisp/net/socks.el @@ -36,22 +36,6 @@ (require 'wid-edit)) (require 'custom) -(eval-and-compile - (if (featurep 'emacs) - (defalias 'socks-split-string 'split-string) ; since at least 21.1 - (if (fboundp 'split-string) - (defalias 'socks-split-string 'split-string) - (defun socks-split-string (string &optional pattern) - "Return a list of substrings of STRING which are separated by PATTERN. -If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." - (or pattern - (setq pattern "[ \f\t\n\r\v]+")) - (let (parts (start 0)) - (while (string-match pattern string start) - (setq parts (cons (substring string start - (match-beginning 0)) parts) - start (match-end 0))) - (nreverse (cons (substring string start) parts))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Custom widgets ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -652,7 +636,7 @@ version.") (setq res (buffer-substring (match-beginning 2) (match-end 2)) res (mapcar 'string-to-number - (socks-split-string res "\\."))))) + (split-string res "\\."))))) (kill-buffer (current-buffer))) res) host)) |