[elpa] 136/299: Simplify TeX-doc-backend-alist.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit e31a958a6c8520d6ff8a805f8bb5d12926cd3012
Author: Tassilo Horn <address@hidden>
Date:   Fri Jun 21 09:31:56 2013 +0200

    Simplify TeX-doc-backend-alist.
    
    * tex.el (TeX-doc-backend-alist): Remove unnecessary `info' check.
---
 ChangeLog |    4 ++++
 tex.el    |   36 +++++++++++-------------------------
 2 files changed, 15 insertions(+), 25 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bea09a5..23b0906 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-21  R�diger Sonderfeld  <address@hidden>
+
+       * tex.el (TeX-doc-backend-alist): Remove unnecessary `info' check.
+
 2013-06-14  Tassilo Horn  <address@hidden>
 
        * tex-jp.el: Change to `coding: iso-2022-jp-unix'.
diff --git a/tex.el b/tex.el
index 23edc03..2df7a4d 100644
--- a/tex.el
+++ b/tex.el
@@ -5563,35 +5563,21 @@ Your bug report will be posted to the AUCTeX bug 
reporting list.
              (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.