From: Barry Warsaw <barry@python.org>
Date: Tue, 30 Apr 2002 18:58:52 +0000 (+0000)
Subject: Watch out for older XEmacsen for which requiring info-look doesn't
X-Git-Tag: v2.3c1~5760
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=5dfc7afff93d99f986250f1b3f865f87cfde3aa6;p=python

Watch out for older XEmacsen for which requiring info-look doesn't
define info-lookup-maybe-add-help.
---

diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index 9e78579127..b242f3b677 100644
--- a/Misc/python-mode.el
+++ b/Misc/python-mode.el
@@ -3123,14 +3123,17 @@ to newline-and-indent in the global keymap, and shadows them with
 local bindings to py-newline-and-indent."))
 
 (require 'info-look)
-(info-lookup-maybe-add-help
- :mode 'python-mode
- :regexp "[a-zA-Z0-9_]+"
- :doc-spec '(("(python-lib)Module Index")
-	     ("(python-lib)Class-Exception-Object Index")
-	     ("(python-lib)Function-Method-Variable Index")
-	     ("(python-lib)Miscellaneous Index")))
-
+;; The info-look package does not always provide this function (it
+;; appears this is the case with XEmacs 21.1)
+(when (fboundp 'info-lookup-maybe-add-help)
+  (info-lookup-maybe-add-help
+   :mode 'python-mode
+   :regexp "[a-zA-Z0-9_]+"
+   :doc-spec '(("(python-lib)Module Index")
+	       ("(python-lib)Class-Exception-Object Index")
+	       ("(python-lib)Function-Method-Variable Index")
+	       ("(python-lib)Miscellaneous Index")))
+  )
 
 
 ;; Helper functions