Merge branch 'master' of orgmode.org:org-mode

This commit is contained in:
Bastien Guerry 2014-03-25 12:13:01 +01:00
commit 71ee4425b6
3 changed files with 19 additions and 12 deletions

View File

@ -6179,17 +6179,13 @@ targets."
The regular expression finds the targets also if there is a line break The regular expression finds the targets also if there is a line break
between words." between words."
(and targets (and targets
(concat (concat "\\("
"\\_<\\("
(mapconcat (mapconcat
(lambda (x) (lambda (x)
(setq x (regexp-quote x)) (replace-regexp-in-string " +" "\\s-+" (regexp-quote x) t t))
(while (string-match " +" x)
(setq x (replace-match "\\s-+" t t x)))
x)
targets targets
"\\|") "\\|")
"\\)\\_>"))) "\\)")))
(defun org-activate-tags (limit) (defun org-activate-tags (limit)
(if (re-search-forward (org-re "^\\*+.*[ \t]\\(:[[:alnum:]_@#%:]+:\\)[ \r\n]") limit t) (if (re-search-forward (org-re "^\\*+.*[ \t]\\(:[[:alnum:]_@#%:]+:\\)[ \r\n]") limit t)

View File

@ -1169,7 +1169,9 @@ the file including them will be republished as well."
(let* ((element (org-element-at-point)) (let* ((element (org-element-at-point))
(included-file (included-file
(and (eq (org-element-type element) 'keyword) (and (eq (org-element-type element) 'keyword)
(org-string-nw-p (org-element-property :value element))))) (string-match "^\\(\".+?\"\\|\\S-+\\)"
(org-element-property :value element))
(org-remove-double-quotes (match-string 1)))))
(when included-file (when included-file
(add-to-list 'included-files-ctime (add-to-list 'included-files-ctime
(org-publish-cache-ctime-of-src (org-publish-cache-ctime-of-src

View File

@ -2042,6 +2042,15 @@ Another text. (ref:text)
(org-export-resolve-radio-link (org-export-resolve-radio-link
(org-element-map tree 'link 'identity info t) (org-element-map tree 'link 'identity info t)
info)))) info))))
;; Radio link next to an apostrophe.
(should
(org-test-with-temp-text "<<<radio>>> radio's"
(org-update-radio-target-regexp)
(let* ((tree (org-element-parse-buffer))
(info `(:parse-tree ,tree)))
(org-export-resolve-radio-link
(org-element-map tree 'link 'identity info t)
info))))
;; Multiple radio targets. ;; Multiple radio targets.
(should (should
(equal '("radio1" "radio2") (equal '("radio1" "radio2")