monnier pushed a commit to branch externals/auctex
in repository elpa.
commit e31a958a6c8520d6ff8a805f8bb5d12926cd3012
Author: Tassilo Horn <[email protected]>
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 <[email protected]>
+
+ * tex.el (TeX-doc-backend-alist): Remove unnecessary `info' check.
+
2013-06-14 Tassilo Horn <[email protected]>
* 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.
