TeX-find-texdoc.el

(defun TeX-find-texdoc (texdoc-query)
  (interactive "sPackage: ")
  (if (string-equal texdoc-query "")
      (error "Cannot query texdoc against an empty string")
    (let ((texdoc-output (shell-command-to-string
                          (concat "texdoc -l -M "
                                  texdoc-query))))
      (if (string-match "no documentation found" texdoc-output)
          (error "Sorry, no documentation found for %s" texdoc-query)
        (let ((texdoc-file (nth 2 (split-string texdoc-output))))
          (if (file-readable-p texdoc-file)
              (let ((new-file (make-temp-file
                               (format "TeX-find-texdoc--%s--" texdoc-query)
                               nil ".pdf")))
                (copy-file texdoc-file new-file t)
                (find-file-other-window new-file))
            (error "Sorry, the file returned by texdoc for %s isn't readable"
                   texdoc-query)))))))