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

Export: Allow #+label, #+caption, and #_attr_... to be indented.

Browse source
This commit is contained in:
Carsten Dominik 2009-05-27 16:38:19 +02:00
parent ecfabf4968
commit 0c49456103
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-exp.el
View file

@ -1708,11 +1708,11 @@ table line. If it is a link, add it to the line containing the link."
(remove-text-properties (point-min) (point-max)
'(org-caption nil org-attributes nil))
(let ((case-fold-search t)
(re (concat "^#\\+caption:[ \t]+\\(.*\\)"
(re (concat "^[ \t]*#\\+caption:[ \t]+\\(.*\\)"
"\\|"
"^#\\+attr_" (symbol-name backend) ":[ \t]+\\(.*\\)"
"^[ \t]*#\\+attr_" (symbol-name backend) ":[ \t]+\\(.*\\)"
"\\|"
"^#\\+label:[ \t]+\\(.*\\)"
"^[ \t]*#\\+label:[ \t]+\\(.*\\)"
"\\|"
"^[ \t]*|[^-]"
"\\|"

6
lisp/org.el
View file

@ -4245,6 +4245,12 @@ will be prompted for."
beg (match-end 0)
'(font-lock-fontified t face org-meta-line))
t)
((or (member dc1 '("caption:" "label:"))
(and (match-end 4) (equal dc3 "attr")))
(add-text-properties
beg (match-end 0)
'(font-lock-fontified t face org-meta-line))
t)
(t nil))))))
(defun org-activate-angle-links (limit)