ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

This commit is contained in:
Carsten Dominik 2010-10-22 09:20:05 +02:00
parent ca991d2ad4 8d85a67deb
commit 9dc28ea0ed
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob-R.el
View File

@ -53,7 +53,7 @@
(defun org-babel-expand-body:R (body params) (defun org-babel-expand-body:R (body params)
"Expand BODY according to PARAMS, return the expanded body." "Expand BODY according to PARAMS, return the expanded body."
(let (out-file (cdr (assoc :file params))) (let ((out-file (cdr (assoc :file params))))
(mapconcat (mapconcat
#'identity #'identity
((lambda (inside) ((lambda (inside)

23
lisp/org-exp.el
View File

@ -1831,16 +1831,19 @@ Also, store forcedalignment information found in such lines."
nodesc) nodesc)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward re-plain-link nil t) (while (re-search-forward re-plain-link nil t)
(goto-char (1- (match-end 0))) (unless (org-string-match-p
(org-if-unprotected-at (1+ (match-beginning 0)) "\\[\\[\\S+:\\S-*?\\<"
(let* ((s (concat (match-string 1) (buffer-substring (point-at-bol) (match-beginning 0)))
"[[" (match-string 2) ":" (match-string 3) (goto-char (1- (match-end 0)))
"][" (match-string 2) ":" (org-export-protect-sub-super (org-if-unprotected-at (1+ (match-beginning 0))
(match-string 3)) (let* ((s (concat (match-string 1)
"]]"))) "[[" (match-string 2) ":" (match-string 3)
;; added 'org-link face to links "][" (match-string 2) ":" (org-export-protect-sub-super
(put-text-property 0 (length s) 'face 'org-link s) (match-string 3))
(replace-match s t t)))) "]]")))
;; added 'org-link face to links
(put-text-property 0 (length s) 'face 'org-link s)
(replace-match s t t)))))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward re-angle-link nil t) (while (re-search-forward re-angle-link nil t)
(goto-char (1- (match-end 0))) (goto-char (1- (match-end 0)))