diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-10-09 10:28:33 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-10-09 10:29:01 -0600 |
commit | be3dad300feca316cbcd593e054fcbc939cdb280 (patch) | |
tree | 4e87554cbb61852af294f295f4ec742efc7b72fc | |
parent | 15847336c39e7219e1c51c55d487f99956a06e34 (diff) | |
download | 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.el | 22 |
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))))) |