From: Leo Liu <sdl.web@gmail.com>
Date: Mon, 22 Apr 2013 14:41:32 +0000 (+0800)
Subject: * info-look.el: Prefer latex2e.info.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~401
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72d548a9d79e2069272e5d43392e1bdf366c3f02;p=emacs.git

* info-look.el: Prefer latex2e.info.

Fixes: debbugs:14240
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f7757e750e..b0cad6454c3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-22  Leo Liu  <sdl.web@gmail.com>
+
+	* info-look.el: Prefer latex2e.info.  (Bug#14240)
+
 2013-04-22  Michael Albinus  <michael.albinus@gmx.de>
 
 	Fix pack/unpack coding.  Reported by David Smith <davidsmith@acm.org>.
diff --git a/lisp/info-look.el b/lisp/info-look.el
index afe4301c659..e43cd731547 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -881,8 +881,11 @@ Return nil if there is nothing appropriate in the buffer near point."
 (info-lookup-maybe-add-help
  :mode 'latex-mode
  :regexp "\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)"
- :doc-spec '(("(latex)Command Index" nil
-	      "`" "\\({[^}]*}\\)?'")))
+ :doc-spec `((,(if (Info-find-file "latex2e" t)
+		   ;; From http://home.gna.org/latexrefman
+		   "(latex2e)Command Index"
+		 "(latex)Command Index")
+	      nil "`" "\\({[^}]*}\\)?'")))
 
 (info-lookup-maybe-add-help
  :mode 'emacs-lisp-mode