Function: dns--filter

dns--filter is a byte-compiled function defined in dns.el.gz.

Signature

(dns--filter PROCESS CALLBACK TYPE FULL TCP)

Source Code

;; Defined in /usr/src/emacs/lisp/net/dns.el.gz
(defun dns--filter (process callback type full tcp)
  (let ((message (buffer-string)))
    (when (process-live-p process)
      (delete-process process))
    (kill-buffer (current-buffer))
    (when (>= (length message) 2)
      (let ((result (dns-read message tcp)))
        (funcall callback
                 (if full
                     result
                   (let ((answer (car (dns-get 'answers result))))
                     (when (eq type (dns-get 'type answer))
                       (if (eq type 'TXT)
                           (dns-get-txt-answer (dns-get 'answers result))
                         (dns-get 'data answer))))))))))