mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 21:52:04 -08:00
Code Issues Projects Releases Wiki Activity

socks.el: remove pre-21 compatibility code

Browse source 
* lisp/net/socks.el (socks-split-string): Remove.
(socks-nslookup-host): Just use split-string.
This commit is contained in:
Glenn Morris 2018-04-24 21:13:00 -04:00
parent 1a6f595736
commit cab400aacd
1 changed files with 1 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/net/socks.el
View file

@ -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))