mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

babel: swapping function order to appease the compiler 

* lisp/babel/ob-tangle.el (org-babel-spec-to-string): swap flet and
  let order to make compiler happy
This commit is contained in:
Eric Schulte 2010-06-14 17:50:28 -07:00
parent 0751f2ebfa
commit df5f954c79
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/babel/ob-tangle.el
View File

@ -242,22 +242,22 @@ assumes that the appropriate major-mode is set. SPEC has the
form
(link source-name params body)"
(flet ((insert-comment (text)
(when (and commentable
org-babel-tangle-w-comments)
(insert "\n")
(comment-region (point)
(progn (insert text) (point)))
(end-of-line nil)
(insert "\n"))))
(let ((link (nth 0 spec))
(source-name (nth 1 spec))
(body (nth 3 spec))
(commentable (not (if (> (length (cdr (assoc :comments (nth 2 spec))))
0)
(string= (cdr (assoc :comments (nth 2 spec)))
"no")
(nth 4 spec)))))
(let ((link (nth 0 spec))
(source-name (nth 1 spec))
(body (nth 3 spec))
(commentable (not (if (> (length (cdr (assoc :comments (nth 2 spec))))
0)
(string= (cdr (assoc :comments (nth 2 spec)))
"no")
(nth 4 spec)))))
(flet ((insert-comment (text)
(when (and commentable
org-babel-tangle-w-comments)
(insert "\n")
(comment-region (point)
(progn (insert text) (point)))
(end-of-line nil)
(insert "\n"))))
(insert-comment (format "[[%s][%s]]" (org-link-escape link) source-name))
(insert (format "\n%s\n" (replace-regexp-in-string
"^," "" (org-babel-chomp body))))