From: Jambunathan K <kjambunathan@gmail.com>
To: emacs-devel@gnu.org
Cc: emacs-orgmode@gnu.org, Nicolas Goaziou <n.goaziou@gmail.com>
Subject: (Emacs 23/24 binary compatibility): defstruct, setf
Date: Tue, 03 Sep 2013 14:12:48 +0530 [thread overview]
Message-ID: <87wqmyi9dj.fsf@gmail.com> (raw)
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\a!\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)
next reply other threads:[~2013-09-03 8:42 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-09-03 8:42 Jambunathan K [this message]
2013-09-03 19:06 ` (Emacs 23/24 binary compatibility): defstruct, setf Stefan Monnier
2013-09-03 21:14 ` Jambunathan K
2013-09-04 2:57 ` Stefan Monnier
2013-09-04 4:01 ` Jambunathan K
2013-09-04 20:04 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87wqmyi9dj.fsf@gmail.com \
--to=kjambunathan@gmail.com \
--cc=emacs-devel@gnu.org \
--cc=emacs-orgmode@gnu.org \
--cc=n.goaziou@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).