[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-devel] [PATCH] TeX-doc-backend-alist: Remove unnecessary `info'
From: |
Rüdiger Sonderfeld |
Subject: |
[AUCTeX-devel] [PATCH] TeX-doc-backend-alist: Remove unnecessary `info' check. |
Date: |
Wed, 19 Jun 2013 21:37:51 +0200 |
User-agent: |
KMail/4.10.3 (Linux/3.8.0-23-generic; KDE/4.10.3; x86_64; ; ) |
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
- [AUCTeX-devel] [PATCH] TeX-doc-backend-alist: Remove unnecessary `info' check.,
Rüdiger Sonderfeld <=