mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 18:16:27 +00:00
Code Releases Activity

Merge branch 'ded-babel'

Browse source
This commit is contained in:
Eric Schulte 2009-11-01 14:40:17 -07:00
parent 55a740afef 43cd1aa2b9
commit 7edbb11a57
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
contrib/babel/lisp/org-babel.el
View file

@ -764,7 +764,7 @@ these arguments are not evaluated in the current source-code block but are passe
(cdr (assoc lang org-src-lang-modes)))) (cdr (assoc lang org-src-lang-modes))))
lang) "-mode"))) lang) "-mode")))
(setq index (point)) (setq index (point))
(while (and (re-search-forward "<<\\(.+\\)>>" nil t)) (while (and (re-search-forward "<<\\(.+?\\)>>" nil t))
(save-match-data (setf source-name (match-string 1))) (save-match-data (setf source-name (match-string 1)))
(save-match-data (setq evaluate (string-match "\(.*\)" source-name))) (save-match-data (setq evaluate (string-match "\(.*\)" source-name)))
;; add interval to new-body (removing noweb reference) ;; add interval to new-body (removing noweb reference)
@ -782,8 +782,8 @@ these arguments are not evaluated in the current source-code block but are passe
(if point (if point
(save-excursion (save-excursion
(goto-char point) (goto-char point)
(concat "\n" (org-babel-expand-noweb-references (org-babel-trim (org-babel-expand-noweb-references
(org-babel-get-src-block-info)))) (org-babel-get-src-block-info))))
"")))))) ""))))))
(nb-add (buffer-substring index (point-max))))) (nb-add (buffer-substring index (point-max)))))
new-body)) new-body))
@ -852,9 +852,10 @@ the table is trivial, then return it as a scalar."
"Remove any trailing space or carriage returns characters from "Remove any trailing space or carriage returns characters from
STRING. Default regexp used is \"[ \f\t\n\r\v]\" but can be STRING. Default regexp used is \"[ \f\t\n\r\v]\" but can be
overwritten by specifying a regexp as a second argument." overwritten by specifying a regexp as a second argument."
(while (and (> (length string) 0) (string-match "[ \f\t\n\r\v]" (substring string -1))) (let ((regexp (or regexp "[ \f\t\n\r\v]")))
(setq string (substring string 0 -1))) (while (and (> (length string) 0) (string-match regexp (substring string -1)))
string) (setq string (substring string 0 -1)))
string))
(defun org-babel-trim (string &optional regexp) (defun org-babel-trim (string &optional regexp)
"Like `org-babel-chomp' only it runs on both the front and back of the string" "Like `org-babel-chomp' only it runs on both the front and back of the string"