summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-10-09 16:28:33 (GMT)
committer Eric Schulte <schulte.eric@gmail.com>2013-10-09 16:29:01 (GMT)
commitbe3dad300feca316cbcd593e054fcbc939cdb280 (patch)
tree4e87554cbb61852af294f295f4ec742efc7b72fc
parent15847336c39e7219e1c51c55d487f99956a06e34 (diff)
downloadorg-mode-be3dad300feca316cbcd593e054fcbc939cdb280.zip
org-mode-be3dad300feca316cbcd593e054fcbc939cdb280.tar.gz
re-apply an orphaned anonymous lambda function
* lisp/ob-tangle.el (org-babel-tangle-collect-blocks): Re-apply an orphaned anonymous lambda function.
-rw-r--r--lisp/ob-tangle.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index 835b2af..8980746 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -365,17 +365,17 @@ source code blocks by language. Optional argument TANGLE-FILE
can be used to limit the collected code blocks by target file."
(let ((block-counter 1) (current-heading "") blocks by-lang)
(org-babel-map-src-blocks (buffer-file-name)
- (lambda (new-heading)
- (if (not (string= new-heading current-heading))
- (progn
- (setq block-counter 1)
- (setq current-heading new-heading))
- (setq block-counter (+ 1 block-counter))))
- (replace-regexp-in-string "[ \t]" "-"
- (condition-case nil
- (or (nth 4 (org-heading-components))
- "(dummy for heading without text)")
- (error (buffer-file-name))))
+ ((lambda (new-heading)
+ (if (not (string= new-heading current-heading))
+ (progn
+ (setq block-counter 1)
+ (setq current-heading new-heading))
+ (setq block-counter (+ 1 block-counter))))
+ (replace-regexp-in-string "[ \t]" "-"
+ (condition-case nil
+ (or (nth 4 (org-heading-components))
+ "(dummy for heading without text)")
+ (error (buffer-file-name)))))
(let* ((info (org-babel-get-src-block-info 'light))
(src-lang (nth 0 info))
(src-tfile (cdr (assoc :tangle (nth 2 info)))))