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

Fixes: debbugs:14240

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f7757e750e27edaf4899184a1a4e35832d7b622..b0cad6454c383b16157be3735f4f347d5dc1ac08 100644 (file)
--- 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 afe4301c6596f774d93e1804e6b512d719e493db..e43cd731547d24930831d5f4c5fb09cd2dc89187 100644 (file)
--- 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