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

Merge branch 'master' into next

This commit is contained in:
Nicolas Goaziou 2018-12-16 11:14:16 +01:00
parent cc594e6fba 6656f11596
commit dd26f03e18
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
lisp/org.el
View File

@ -6117,29 +6117,30 @@ done, nil otherwise."
(save-excursion
(goto-char (1+ (match-beginning 0)))
(face-at-point nil t)))
(let ((start (if (memq (char-after (1+ (match-beginning 0)))
'(?_ ?^))
(1+ (match-beginning 0))
(match-beginning 0)))
(end
(let* ((b (match-beginning 0))
(e (match-end 0))
(m (buffer-substring-no-properties b e)))
(cond
((string-match "\\`[ \t]*\\\\begin{\\([a-zA-Z0-9\\*]+\\)}" m)
(let ((re (format "\\\\end{%s}[ \t]*$"
(regexp-quote (match-string 1 m)))))
(or (re-search-forward re nil t) e)))
((string-match "\\\\end{\\([a-zA-Z0-9\\*]+\\)}[ \t]*\\'" m)
(let ((re (format "^[ \t]*\\\\begin{%s}"
(regexp-quote (match-string 1 m)))))
(setq start
(or (save-excursion (re-search-backward re nil t))
b))
(line-end-position)))
((string-match "\\`\\\\[a-zA-Z]+\\*?{\\'" m)
(search-forward "}" nil t))
(t e)))))
(let* ((start (if (memq (char-after (1+ (match-beginning 0)))
'(?_ ?^))
(1+ (match-beginning 0))
(match-beginning 0)))
(end
(let* ((b (match-beginning 0))
(e (match-end 0))
(m (buffer-substring-no-properties b e)))
(cond
((string-match "\\`[ \t]*\\\\begin{\\([a-zA-Z0-9\\*]+\\)}"
m)
(let ((re (format "\\\\end{%s}[ \t]*$"
(regexp-quote (match-string 1 m)))))
(or (re-search-forward re nil t) e)))
((string-match "\\\\end{\\([a-zA-Z0-9\\*]+\\)}[ \t]*\\'" m)
(let ((re (format "^[ \t]*\\\\begin{%s}"
(regexp-quote (match-string 1 m)))))
(setq start
(or (save-excursion (re-search-backward re nil t))
b))
(line-end-position)))
((string-match "\\`\\\\[a-zA-Z]+\\*?{\\'" m)
(search-forward "}" nil t))
(t e)))))
(font-lock-prepend-text-property
start end 'face 'org-latex-and-related)
(add-text-properties start end '(font-lock-multiline t)))