# HG changeset patch
# User Carsten Dominik <dominik@science.uva.nl>
# Date 1210546496 0
# Node ID ee90761f44b6d54e11b196b2b9cb8e67a48a8f38
# Parent  fbd05404e7f3136ce8f1a2fb146ecfac628bde94
	* org/org.el (org-modules): Repair problems with loading
	org-jsinfo.org.

diff -r fbd05404e7f3 -r ee90761f44b6 lisp/org/org.el
--- a/lisp/org/org.el	Sun May 11 22:54:08 2008 +0000
+++ b/lisp/org/org.el	Sun May 11 22:54:56 2008 +0000
@@ -138,7 +138,11 @@
   (when (featurep 'org)
     (org-load-modules-maybe 'force)))
 
-(defcustom org-modules '(org-bbdb org-bibtex org-gnus org-info org-infojs org-irc org-mew org-mhe org-rmail org-vm org-wl)
+(when (org-bound-and-true-p org-modules)
+  (let ((a (member 'org-infojs org-modules)))
+    (and a (setcar a 'org-jsinfo))))
+
+(defcustom org-modules '(org-bbdb org-bibtex org-gnus org-info org-jsinfo org-irc org-mew org-mhe org-rmail org-vm org-wl)
   "Modules that should always be loaded together with org.el.
 If a description starts with <C>, the file is not part of Emacs
 and loading it will require that you have downloaded and properly installed
@@ -158,7 +162,7 @@
 	(const :tag "   bibtex:            Links to BibTeX entries" org-bibtex)
 	(const :tag "   gnus:              Links to GNUS folders/messages" org-gnus)
 	(const :tag "   info:              Links to Info nodes" org-info)
-	(const :tag "   infojs:            Set up Sebastian Rose's JavaScript org-info.js" org-infojs)
+	(const :tag "   jsinfo:            Set up Sebastian Rose's JavaScript org-info.js" org-jsinfo)
 	(const :tag "   irc:               Links to IRC/ERC chat sessions" org-irc)
 	(const :tag "   mac-message:       Links to messages in Apple Mail" org-mac-message)
 	(const :tag "   mew                Links to Mew folders/messages" org-mew)