diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-08-13 01:39:53 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-08-13 01:39:53 +0200 |
| commit | 63b7697a677260c21730440d797763b442622d95 (patch) | |
| tree | 495d99ea562ba3ec74f96e413bee4ffbe8f374f2 /lisp/net | |
| parent | 434ebb51edd1d36737f4b41c7255a333acde9d31 (diff) | |
| download | emacs-63b7697a677260c21730440d797763b442622d95.tar.gz emacs-63b7697a677260c21730440d797763b442622d95.tar.bz2 emacs-63b7697a677260c21730440d797763b442622d95.zip | |
Remove Emacs 22 compat code from dns.el
* lisp/net/dns.el (dns-servers-up-to-date-p, dns-set-servers):
Remove check for function that is always there.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/dns.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/net/dns.el b/lisp/net/dns.el index c3c294395cb..c368cd773c2 100644 --- a/lisp/net/dns.el +++ b/lisp/net/dns.el @@ -316,8 +316,6 @@ If TCP-P, the first two bytes of the packet will be the length field." "Return false if we need to recheck the list of DNS servers." (and dns-servers (or (eq dns-servers-valid-for-interfaces t) - ;; `network-interface-list' was introduced in Emacs 22.1. - (not (fboundp 'network-interface-list)) (equal dns-servers-valid-for-interfaces (network-interface-list))))) @@ -339,8 +337,7 @@ Parses \"/etc/resolv.conf\" or calls \"nslookup\"." (when (re-search-forward "^Address:[ \t]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\|[[:xdigit:]:]*\\)" nil t) (setq dns-servers (list (match-string 1))))))) - (when (fboundp 'network-interface-list) - (setq dns-servers-valid-for-interfaces (network-interface-list)))) + (setq dns-servers-valid-for-interfaces (network-interface-list))) (defun dns-read-txt (string) (if (> (length string) 1) |