diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-12-16 11:13:49 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-12-16 11:13:49 +0100 |
| commit | 6656f11596602648b57a84e0bfea54802b8e7d34 (patch) | |
| tree | 1e3e67873c99cca535841d97b76a22b261563af9 | |
| parent | af3e2b1856be4088071bd01f386560cff1e292bc (diff) | |
| download | org-mode-6656f11596602648b57a84e0bfea54802b8e7d34.tar.gz | |
Fix typo
* lisp/org.el (org-do-latex-and-related): Fix typo.
| -rw-r--r-- | lisp/org.el | 47 |
1 files changed, 24 insertions, 23 deletions
diff --git a/lisp/org.el b/lisp/org.el index 64d7fed..22d6374 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6265,29 +6265,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))) |