Mailing List Archive

Update of /cvsroot/python/python/dist/src/Misc
In directory usw-pr-cvs1:/tmp/cvs-serv23567

Modified Files:
python-mode.el
Log Message:
Watch out for older XEmacsen for which requiring info-look doesn't
define info-lookup-maybe-add-help.


Index: python-mode.el
===================================================================
RCS file: /cvsroot/python/python/dist/src/Misc/python-mode.el,v
retrieving revision 4.19
retrieving revision 4.20
diff -C2 -d -r4.19 -r4.20
*** python-mode.el 26 Apr 2002 15:49:52 -0000 4.19
--- python-mode.el 30 Apr 2002 18:58:52 -0000 4.20
***************
*** 3124,3135 ****

(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")))
!


--- 3124,3138 ----

(require 'info-look)
! ;; 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")))
! )