[AUCTeX-devel] [PATCH] TeX-doc-backend-alist: Remove unnecessary `info' check.

[Rüdiger Sonderfeld]

The current `info' check expects certain names of info files which
might not be correct.  E.g., (latex2e) instead of (latex).  The check
seems to be unnecessary because `info-lookup->completions' does simply
return nil in case no matching info document was found.  A `message'
is printed but it can be ignored.

* tex.el (TeX-doc-backend-alist): Remove unnecessary `info' check.

Signed-off-by: Rüdiger Sonderfeld <address@hidden>
---
 tex.el | 36 +++++++++++-------------------------
 1 file changed, 11 insertions(+), 25 deletions(-)

diff --git a/tex.el b/tex.el
index 23edc03..2df7a4d 100644
--- a/tex.el
+++ b/tex.el
@@ -5563,35 +5563,21 @@ (defvar TeX-doc-backend-alist
              (call-process "texdoc" nil 0 nil "--view" doc)))
     (latex-info (latex-mode)
                (lambda ()
-                 (when (condition-case nil
-                           (save-window-excursion
-                             (let ((buf (generate-new-buffer-name "*info*")))
-                               (info "latex" buf)
-                               (kill-buffer buf))
-                             t)
-                         (error nil))
-                   (mapcar (lambda (x)
-                             (let ((x (car x)))
-                               (if (string-match "\\`\\\\" x)
-                                   (substring x 1) x)))
-                           (info-lookup->completions 'symbol 'latex-mode))))
+                  (mapcar (lambda (x)
+                            (let ((x (car x)))
+                              (if (string-match "\\`\\\\" x)
+                                  (substring x 1) x)))
+                          (info-lookup->completions 'symbol 'latex-mode)))
                (lambda (doc)
                  (info-lookup-symbol (concat "\\" doc) 'latex-mode)))
     (texinfo-info (texinfo-mode)
                  (lambda ()
-                   (when (condition-case nil
-                             (save-window-excursion
-                               (let ((buf (generate-new-buffer-name "*info*")))
-                                 (info "texinfo" buf)
-                                 (kill-buffer buf))
-                               t)
-                           (error nil))
-                     (mapcar (lambda (x)
-                               (let ((x (car x)))
-                                 (if (string-match "\\`@" x)
-                                     (substring x 1) x)))
-                             (info-lookup->completions 'symbol
-                                                       'texinfo-mode))))
+                    (mapcar (lambda (x)
+                              (let ((x (car x)))
+                                (if (string-match "\\`@" x)
+                                    (substring x 1) x)))
+                            (info-lookup->completions 'symbol
+                                                      'texinfo-mode)))
                  (lambda (doc)
                    (info-lookup-symbol (concat "@" doc) 'texinfo-mode))))
   "Alist of backends used for looking up documentation.
-- 
1.8.3.1