[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    06/06/11 14:16:45

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.573
retrieving revision 5.574
diff -u -b -r5.573 -r5.574
--- tex.el      7 Jun 2006 08:59:26 -0000       5.573
+++ tex.el      11 Jun 2006 14:16:45 -0000      5.574
@@ -4744,7 +4744,9 @@
              (call-process "texdoc" nil 0 nil doc)))
     (latex-info (latex-mode)
                (lambda ()
-                 (when (Info-find-file "latex" t)
+                 (when (condition-case nil ; If function is not available.
+                           (Info-find-file "latex" t)
+                         (error nil))
                    (mapcar (lambda (x)
                              (let ((x (car x)))
                                (if (string-match "\\`\\\\" x)
@@ -4754,7 +4756,9 @@
                  (info-lookup-symbol (concat "\\" doc) 'latex-mode)))
     (texinfo-info (texinfo-mode)
                  (lambda ()
-                   (when (Info-find-file "texinfo" t)
+                   (when (condition-case nil ; If function is not available.
+                             (Info-find-file "texinfo" t)
+                           (error nil))
                      (mapcar (lambda (x)
                                (let ((x (car x)))
                                  (if (string-match "\\`@" x)
@@ -4793,7 +4797,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)