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

Fix typo 

* lisp/org.el (org-do-latex-and-related): Fix typo.
This commit is contained in:
Nicolas Goaziou 2018-12-16 11:13:49 +01:00
parent af3e2b1856
commit 6656f11596
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org.el
View File

@ -6265,7 +6265,7 @@ done, nil otherwise."
(save-excursion (save-excursion
(goto-char (1+ (match-beginning 0))) (goto-char (1+ (match-beginning 0)))
(face-at-point nil t))) (face-at-point nil t)))
(let ((start (if (memq (char-after (1+ (match-beginning 0))) (let* ((start (if (memq (char-after (1+ (match-beginning 0)))
'(?_ ?^)) '(?_ ?^))
(1+ (match-beginning 0)) (1+ (match-beginning 0))
(match-beginning 0))) (match-beginning 0)))
@ -6274,7 +6274,8 @@ done, nil otherwise."
(e (match-end 0)) (e (match-end 0))
(m (buffer-substring-no-properties b e))) (m (buffer-substring-no-properties b e)))
(cond (cond
((string-match "\\`[ \t]*\\\\begin{\\([a-zA-Z0-9\\*]+\\)}" m) ((string-match "\\`[ \t]*\\\\begin{\\([a-zA-Z0-9\\*]+\\)}"
m)
(let ((re (format "\\\\end{%s}[ \t]*$" (let ((re (format "\\\\end{%s}[ \t]*$"
(regexp-quote (match-string 1 m))))) (regexp-quote (match-string 1 m)))))
(or (re-search-forward re nil t) e))) (or (re-search-forward re nil t) e)))