Re: [Bug-AUCTeX] 11.83; TeX-doc does not work with emacs-21.4a

[Ralf Angeli]

* Frank Küster (2006-06-29) writes:

> While editing a LaTeX file, C-c ? calls TeX-doc which in many cases
> brings up the info file about LaTeX.  With Debian sarge's emacs-21.4a,
> this does not work.  The message in the info buffer is "Autoloading
> failed to define function Info-find-file".

This was fixed some time ago in CVS.  Here is a patch against 11.83 in
case you need it:

--- tex.el~     2006-06-29 21:00:32 +0200
+++ tex.el      2006-06-29 21:01:47 +0200
@@ -4732,7 +4732,6 @@
   (interactive)
   (info "auctex"))
 
-(autoload 'Info-find-file "info")
 (autoload 'info-lookup->completions "info-look")
 
 (defvar TeX-doc-backend-alist
@@ -4744,7 +4743,11 @@
              (call-process "texdoc" nil 0 nil doc)))
     (latex-info (latex-mode)
                (lambda ()
-                 (when (Info-find-file "latex" t)
+                 (when (condition-case nil
+                           (save-window-excursion
+                             (info "latex" (generate-new-buffer-name "*info*"))
+                             t)
+                         (error nil))
                    (mapcar (lambda (x)
                              (let ((x (car x)))
                                (if (string-match "\\`\\\\" x)
@@ -4754,7 +4757,12 @@
                  (info-lookup-symbol (concat "\\" doc) 'latex-mode)))
     (texinfo-info (texinfo-mode)
                  (lambda ()
-                   (when (Info-find-file "texinfo" t)
+                   (when (condition-case nil
+                             (save-window-excursion
+                               (info "texinfo"
+                                     (generate-new-buffer-name "*info*"))
+                               t)
+                           (error nil))
                      (mapcar (lambda (x)
                                (let ((x (car x)))
                                  (if (string-match "\\`@" x)
@@ -4793,7 +4801,7 @@
     (if (null docs)
        (message "No documentation found")
       ;; Ask the user about the package, command, or document.
-      (when (and (called-interactively-p)
+      (when (and (interactive-p)
                 (or (not name) (string= name "")))
        (let ((symbol (thing-at-point 'symbol))
              contained completions doc)


-- 
Ralf