0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:00:49 +00:00

ob: preserve the order of variable parameters

* lisp/ob.el (org-babel-merge-params): Ensure variable parameters are
  not reversed.

* lisp/ob-ref.el (org-babel-ref-split-args): Ensure variable
  parameters are not reversed.
This commit is contained in:
Eric Schulte 2011-06-27 11:31:12 -07:00
parent d1f0ae650f
commit 27c3cad589
2 changed files with 2 additions and 1 deletions

View file

@ -207,7 +207,7 @@ to \"0:-1\"."
(cond
((string= holder ",")
(when (= depth 0)
(setq return (reverse (cons (substring buffer 0 -1) return)))
(setq return (cons (substring buffer 0 -1) return))
(setq buffer "")))
((or (string= holder "(") (string= holder "[")) (setq depth (+ depth 1)))
((or (string= holder ")") (string= holder "]")) (setq depth (- depth 1)))))

View file

@ -1805,6 +1805,7 @@ parameters when merging lists."
(setq params (cons pair (assq-delete-all (car pair) params))))))
plist))
plists))
(setq vars (reverse vars))
(while vars (setq params (cons (cons :var (cddr (pop vars))) params)))
(mapc
(lambda (hd)