[O] [bug] [babel] org-reload doesn't use full emacs load-path?

[Eric S Fraga]

Hello,

I have my own org babel language implementations (very specific
languages for my own software).  One of these is called Jacaranda and
the org babel file is ob-jacaranda.el, as one would expect.

I activate jacaranda support in org babel using

(org-babel-do-load-languages 'org-babel-load-languages
 '((jacaranda . t)                      ; mine
   ))

For illustration above, I've removed all the other languages I want
enabled.

In any case, when I start emacs + org, everything goes well and org
babel supports my language perfectly.

However, if org changes (e.g. some bug fix) and I download the new
version and then try to org-reload from an existing emacs instance, I
get the following error:

,----
| Debugger entered--Lisp error: (file-error "Cannot open load file" 
"/home/ucecesf/git/org-mode/lisp/ob-jacaranda.el")
|   load("/home/ucecesf/git/org-mode/lisp/ob-jacaranda.el" nil nil nosuffix)
|   (if (and (not uncompiled) (file-exists-p (concat f ".elc"))) (load (concat 
f ".elc") nil nil (quote nosuffix)) (load (concat f ".el") nil nil (quote 
nosuffix)))
|   (progn (if (and (not uncompiled) (file-exists-p (concat f ".elc"))) (load 
(concat f ".elc") nil nil (quote nosuffix)) (load (concat f ".el") nil nil 
(quote nosuffix))))
|   (if (featurep (intern (file-name-nondirectory f))) (progn (if (and (not 
uncompiled) (file-exists-p (concat f ".elc"))) (load (concat f ".elc") nil nil 
(quote nosuffix)) (load (concat f ".el") nil nil (quote nosuffix)))))
|   (when (featurep (intern (file-name-nondirectory f))) (if (and (not 
uncompiled) (file-exists-p (concat f ".elc"))) (load (concat f ".elc") nil nil 
(quote nosuffix)) (load (concat f ".el") nil nil (quote nosuffix))))
|   (lambda (f) (when (featurep (intern (file-name-nondirectory f))) (if (and 
(not uncompiled) (file-exists-p (concat f ".elc"))) (load (concat f ".elc") nil 
nil (quote nosuffix)) (load (concat f ".el") nil nil (quote 
nosuffix)))))("/home/ucecesf/git/org-mode/lisp/ob-jacaranda")
|   mapc((lambda (f) (when (featurep (intern (file-name-nondirectory f))) (if 
(and (not uncompiled) (file-exists-p (concat f ".elc"))) (load (concat f 
".elc") nil nil (quote nosuffix)) (load (concat f ".el") nil nil (quote 
nosuffix))))) ("/home/ucecesf/git/org-mode/lisp/ob" 
"/home/ucecesf/git/org-mode/lisp/ob-comint" 
"/home/ucecesf/git/org-mode/lisp/ob-eval" 
"/home/ucecesf/git/org-mode/lisp/ob-exp" 
"/home/ucecesf/git/org-mode/lisp/ob-keys" 
"/home/ucecesf/git/org-mode/lisp/ob-lob" 
"/home/ucecesf/git/org-mode/lisp/ob-ref" 
"/home/ucecesf/git/org-mode/lisp/ob-table" 
"/home/ucecesf/git/org-mode/lisp/ob-tangle" 
"/home/ucecesf/git/org-mode/lisp/ob-R" 
"/home/ucecesf/git/org-mode/lisp/ob-calc" 
"/home/ucecesf/git/org-mode/lisp/ob-clojure" 
"/home/ucecesf/git/org-mode/lisp/ob-ditaa" 
"/home/ucecesf/git/org-mode/lisp/ob-dot" 
"/home/ucecesf/git/org-mode/lisp/ob-emacs-lisp" 
"/home/ucecesf/git/org-mode/lisp/ob-gnuplot" 
"/home/ucecesf/git/org-mode/lisp/ob-jacaranda" 
"/home/ucecesf/git/org-mode/lisp/ob-latex" 
"/home/ucecesf/git/org-mode/lisp/ob-ledger" 
"/home/ucecesf/git/org-mode/lisp/ob-maxima" 
"/home/ucecesf/git/org-mode/lisp/ob-octave" 
"/home/ucecesf/git/org-mode/lisp/ob-org" 
"/home/ucecesf/git/org-mode/lisp/ob-plantuml" 
"/home/ucecesf/git/org-mode/lisp/ob-python" 
"/home/ucecesf/git/org-mode/lisp/ob-ruby" 
"/home/ucecesf/git/org-mode/lisp/ob-sh" 
"/home/ucecesf/git/org-mode/lisp/ob-sqlite" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-annotate-file" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-bibtex-extras" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-bookmark" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-checklist" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-choose" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-collector" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-contacts" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-contribdir" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-depend" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-drill" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-e-ascii" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-e-html" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-e-latex" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-e-odt" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-e-publish" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-element" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-elisp-symbol" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-eval-light" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-eval" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-exp-bibtex" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-expiry" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-export-generic" 
"/home/ucecesf/git/org-mode/contrib/lisp/org-export" ...))
|   (let* ((file-re "^org\\(-.*\\)?\\.el") (dir-org (file-name-directory 
(org-find-library-dir "org"))) (dir-org-contrib (ignore-errors 
(file-name-directory (org-find-library-dir "org-contribdir")))) (babel-files 
(mapcar (lambda (el) (concat (concat dir-org "ob") (when el (format "-%s" el)) 
".el")) (append (list nil "comint" "eval" "exp" "keys" "lob" "ref" "table" 
"tangle") (delq nil (mapcar (lambda ... ...) org-babel-load-languages))))) 
(files (append babel-files (and dir-org-contrib (directory-files 
dir-org-contrib t file-re)) (directory-files dir-org t file-re))) (remove-re 
(concat (if (featurep (quote xemacs)) "org-colview" "org-colview-xemacs") 
"\\'"))) (setq files (mapcar (quote file-name-sans-extension) files)) (setq 
files (mapcar (lambda (x) (if (string-match remove-re x) nil x)) files)) (setq 
files (delq nil files)) (mapc (lambda (f) (when (featurep (intern 
(file-name-nondirectory f))) (if (and (not uncompiled) (file-exists-p (concat f 
".elc"))) (load (concat f ".elc") nil nil (quote nosuffix)) (load (concat f 
".el") nil nil (quote nosuffix))))) files) (load (concat dir-org 
"org-version.el") (quote noerror) nil (quote nosuffix)))
|   org-reload(nil)
`----

For some reason, org tries to load my ob-jacaranda.el from where org
itself sits despite ob-jacaranda.el being in one of the directories in
the load-path.

One possible worry: even with emacs -Q, I get org-version returning the
following:

Org-mode version 7.8.10 (release_7.8.10-619-g540dfc @ mixed installation! 
/usr/share/emacs/24.1.50/lisp/org/ and /home/ucecesf/git/org-mode/lisp/)

Note the "mixed installation" bit.  I've never seen this before.  

thanks,
eric

-- 
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 24.1.50.1 + Ma Gnus v0.6