1. Compile ox.el (new-to-be-merged export library) with Emacs 23.2.1
(stock Debian binary)
2. Load the ox.elc file on Emacs Bzr trunk.
3. setf on a defstruct field breaks as seen below.
Modify (1) so that .elc files are generated against Emacs Bzr trunk.
Note that setf succeeds.
----------------------------------------------------------------
I think existing *.elc files compiled against Emacs-23.2.1 should load
fine on new Emacs versions.
----------------------------------------------------------------
The struct is as below defined in ox.el
(defstruct (org-export-backend
(:constructor org-export-create-backend))
name parent transcoders options filters blocks menu)
ox-jabref.el is loaded uncompiled.
----------------------------------------------------------------
Debugger entered--Lisp error: (error "(org-export-backend-transcoders
enhanced-backend) is not a valid place expression")
signal(error ("(org-export-backend-transcoders enhanced-backend) is not a
valid place expression"))
error("%S is not a valid place expression" (org-export-backend-transcoders
enhanced-backend))
gv-get((org-export-backend-transcoders enhanced-backend) #[514
"\211\300!\207" [enhanced-transcoders] 4 "\n\n(fn GETTER SETTER)"])
#[128
"\211\203&\211\211AA\262\204&\211A\262@@\300\301\302\303\304\305!\306\"\307\310%\"\207\311\203@\312\211A\262@\211A\262@EB\262\202'\313\237B\207"
[gv-get make-byte-code 514 "\211\300!\207" vconcat vector [] 4 "\n\n(fn GETTER
SETTER)" nil setf progn] 11
("/home/kjambunathan/src/emacs/trunk/lisp/emacs-lisp/gv.elc" .
6424)]((org-export-backend-transcoders enhanced-backend) enhanced-transcoders)
(setf (org-export-backend-transcoders enhanced-backend) enhanced-transcoders)
(let* ((enhanced-backend (copy-org-export-backend
org-jabref--stock-odt-backend)) (stock-transcoders
(org-export-backend-transcoders org-jabref--stock-odt-backend))
(enhanced-transcoders (append (quote ((keyword . org-jabref-keyword)
(citation-reference . org-jabref-odt-citation-reference/text)))
stock-transcoders))) (setf (org-export-backend-transcoders enhanced-backend)
enhanced-transcoders) (let ((menu (org-export-backend-menu enhanced-backend)))
(setf (cadr menu) (concat (cadr menu) " (With Jabref Processing)")))
(org-export-register-backend enhanced-backend) enhanced-backend)
(defvar org-jabref--enhanced-odt-backend (let* ((enhanced-backend
(copy-org-export-backend org-jabref--stock-odt-backend)) (stock-transcoders
(org-export-backend-transcoders org-jabref--stock-odt-backend))
(enhanced-transcoders (append (quote ((keyword . org-jabref-keyword)
(citation-reference . org-jabref-odt-citation-reference/text)))
stock-transcoders))) (setf (org-export-backend-transcoders enhanced-backend)
enhanced-transcoders) (let ((menu (org-export-backend-menu enhanced-backend)))
(setf (cadr menu) (concat (cadr menu) " (With Jabref Processing)")))
(org-export-register-backend enhanced-backend) enhanced-backend))
eval-buffer(#<buffer *load*> nil
"/home/kjambunathan/src/org-mode/contrib/lisp/ox-jabref.el" nil t) ; Reading
at buffer position 6948
load-with-code-conversion("/home/kjambunathan/src/org-mode/contrib/lisp/ox-jabref.el"
"/home/kjambunathan/src/org-mode/contrib/lisp/ox-jabref.el" nil nil)
load("ox-jabref.el")
load-library("ox-jabref.el")
call-interactively(load-library record nil)
command-execute(load-library record)
execute-extended-command(nil "load-library")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
