bug#21267: 25.0.50; error when installing org from dirty Emacs

[Rasmus]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: Rasmus <rasmus@gmx.us>
>> Date: Sat, 15 Aug 2015 18:31:34 +0200
>
>> 
>> 1. Start emacs -Q to use build in version of org 
>> 2. Load org: (mapc 'require '(org ob ox-latex))
>> 3. Install org 8.3 via gelpa
>> 4. Start with my "normal" emacs instance and M-x orgstruct.
>>    I have not found a way to trigger this from a clean emacs...
>> 
>> my version of emacs is GNU Emacs 25.0.50.1 (x86_64-unknown-linux-gnu,
>> GTK+ Version 3.16.6) of 2015-08-11 on W530.
>> [...]
>> Debugger entered--Lisp error: (invalid-function 
>> org-babel-header-args-safe-fn)
>> [...]
>>   eval-after-load-helper("/home/rasmus/.emacs.d/elpa/org-20150810/ob.elc")
>>   run-hook-with-args(eval-after-load-helper 
>> "/home/rasmus/.emacs.d/elpa/org-20150810/ob.elc")
>>   do-after-load-evaluation("/home/rasmus/.emacs.d/elpa/org-20150810/ob.elc")
>     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> What's this about?  Are you loading parts of Org in your init files,
> directly or indirectly, and is the version of Org in
> .emacs.d/elpa/org-20150810/ the one you call "org 8.3" above or some
> older version?

Yeah that version is version 8.3.1 from GELPA (in list-packages the
version is called "20150810" ).

>> Load-path shadows:
>> [...]
>> /usr/share/emacs/site-lisp/org/ox-texinfo hides
>> /usr/share/emacs/25.0.50/lisp/org/ox-texinfo
>> /usr/share/emacs/site-lisp/org/ox-odt hides
>> /usr/share/emacs/25.0.50/lisp/org/ox-odt
>
> And these say you have one more version of Org, under
> /usr/share/emacs/site-lisp/.  What version of Org is that?

That's the development version, so version 8.3.1 plus a couple of commits.
I have removed the site-lisp version now.

Here's the backtrace with the following receipt:

1. Start emacs -Q to use build in version of org 
2. Load org: (mapc 'require '(org ob ox-latex))
3. Install org 8.3 via GELPA (version called "20150810")
4. Start with my emacs -q.  Evaluate the following:

       (package-initialize)
       (with-eval-after-load 'ob
         (org-babel-do-load-languages 'org-babel-load-languages '((R . t))))
       (require 'ob)

Backtrace: 

Debugger entered--Lisp error: (invalid-function org-babel-header-args-safe-fn)
  org-babel-header-args-safe-fn((:cache :colnames :comments :exports :epilogue 
:hlines :noeval :noweb :noweb-ref :noweb-sep :padline :prologue :rownames :sep 
:session :tangle :wrap (:eval "never" "query") (:results lambda (str) (not 
(string-match "file" str))) :width :height :bg :units :pointsize :antialias 
:quality :compression :res :type :family :title :fonts :version :paper 
:encoding :pagecentre :colormodel :useDingbats :horizontal))
  byte-code("\301\302\303\304!#\210\305\306\307\310\311\312\313\314\315\316&   
\207" [ob-R-safe-header-args put org-babel-default-header-args:R 
safe-local-variable org-babel-header-args-safe-fn custom-declare-variable 
org-babel-R-command "R --slave --no-save" "Name of command to use for executing 
R code." :group org-babel :version "24.1" :type string] 10)
  require(ob-R)
  #[(pair) "A\303@!\211\203\304\305\306      P!!\202%\307\305\310    
P!!\210\307\305\311     P!!*\207" [pair lang active symbol-name require intern 
"ob-" fmakunbound "org-babel-execute:" "org-babel-expand-body:"] 5]((R . t))
  mapc(#[(pair) "A\303@!\211\203\304\305\306 P!!\202%\307\305\310    
P!!\210\307\305\311     P!!*\207" [pair lang active symbol-name require intern 
"ob-" fmakunbound "org-babel-execute:" "org-babel-expand-body:"] 5] ((R . t)))
  org-babel-do-load-languages(org-babel-load-languages ((R . t)))
  (lambda nil (org-babel-do-load-languages (quote org-babel-load-languages) 
(quote ((R . t)))))()
  eval-after-load-helper("/home/rasmus/.emacs.d/elpa/org-20150810/ob.elc")
  run-hook-with-args(eval-after-load-helper 
"/home/rasmus/.emacs.d/elpa/org-20150810/ob.elc")
  do-after-load-evaluation("/home/rasmus/.emacs.d/elpa/org-20150810/ob.elc")
  require(ob)
  eval((require (quote ob)) nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)


-- 
Don't panic!!!