diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-19 00:57:03 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-19 00:57:03 +0200 |
commit | 69552bd42f99236578f51abcccd201dec3855d39 (patch) | |
tree | f59e9ce1cd0d28fab2fd7f832c33b22f7ec25c3e | |
parent | 65e9dcee8d17e108b12cf09b1397ca2282ef205e (diff) | |
download | org-mode-69552bd42f99236578f51abcccd201dec3855d39.tar.gz |
ob-tangle: Fix failing test on Emacs 24.3
* lisp/ob-tangle.el (org-babel-tangle): Do not use `add-to-list' on
a let-bound symbol.
-rw-r--r-- | lisp/ob-tangle.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 674f88a..76c2d73 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -290,10 +290,8 @@ used to limit the exported source code blocks by language." (unless tangle-mode (setq tangle-mode #o755))) ;; update counter (setq block-counter (+ 1 block-counter)) - (add-to-list 'path-collector - (cons file-name tangle-mode) - nil - (lambda (a b) (equal (car a) (car b)))))))) + (unless (assoc file-name path-collector) + (push (cons file-name tangle-mode) path-collector)))))) specs))) (if (equal arg '(4)) (org-babel-tangle-single-block 1 t) |