Mercurial > emacs

comparison lisp/net/dns.el @ 110111:5b9f64b04a04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Delete all trailing white space.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 02 Sep 2010 01:42:32 +0000
parents 8d09094063d0
children 417b1e4d63cd
comparison
equal deleted inserted replaced
110110:91cc7bab2ca4 110111:5b9f64b04a04
149 -3) 149 -3)
150 (lsh (if (dns-get 'authoritative-p spec) 1 0) -2) 150 (lsh (if (dns-get 'authoritative-p spec) 1 0) -2)
151 (lsh (if (dns-get 'truncated-p spec) 1 0) -1) 151 (lsh (if (dns-get 'truncated-p spec) 1 0) -1)
152 (lsh (if (dns-get 'recursion-desired-p spec) 1 0) 0))) 152 (lsh (if (dns-get 'recursion-desired-p spec) 1 0) 0)))
153 (dns-write-bytes 153 (dns-write-bytes
154 (cond 154 (cond
155 ((eq (dns-get 'response-code spec) 'no-error) 0) 155 ((eq (dns-get 'response-code spec) 'no-error) 0)
156 ((eq (dns-get 'response-code spec) 'format-error) 1) 156 ((eq (dns-get 'response-code spec) 'format-error) 1)
157 ((eq (dns-get 'response-code spec) 'server-failure) 2) 157 ((eq (dns-get 'response-code spec) 'server-failure) 2)
158 ((eq (dns-get 'response-code spec) 'name-error) 3) 158 ((eq (dns-get 'response-code spec) 'name-error) 3)
159 ((eq (dns-get 'response-code spec) 'not-implemented) 4) 159 ((eq (dns-get 'response-code spec) 'not-implemented) 4)