diff options
author | Sébastien Miquel <sebastien.miquel@posteo.eu> | 2021-03-07 17:06:34 +0100 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2021-03-14 22:50:53 -0400 |
commit | 7c4d057cd4591df2aa98f38d6dc620ec4444fc6c (patch) | |
tree | fc51727d66fa67a56ab8acfad08e6f00bcbf8aac | |
parent | d477f61ee1a828086c25d87c195352fcd9979a4f (diff) | |
download | org-mode-7c4d057cd4591df2aa98f38d6dc620ec4444fc6c.tar.gz |
org-compat.el (org-mode-flyspell-verify): Do not check code in headline
* lisp/org-compat.el (org-mode-flyspell-verify): Do not spell check
code, verbatim and LaTeX fragments in headline title.
TINYCHANGE
-rw-r--r-- | lisp/org-compat.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 8cbf331..3d45bed 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -1025,8 +1025,7 @@ ELEMENT is the element at point." (defun org-mode-flyspell-verify () "Function used for `flyspell-generic-check-word-predicate'." (if (org-at-heading-p) - ;; At a headline or an inlinetask, check title only. This is - ;; faster than relying on `org-element-at-point'. + ;; At a headline or an inlinetask, check title only. (and (save-excursion (beginning-of-line) (and (let ((case-fold-search t)) (not (looking-at-p "\\*+ END[ \t]*$"))) @@ -1035,7 +1034,9 @@ ELEMENT is the element at point." (match-beginning 4) (>= (point) (match-beginning 4)) (or (not (match-beginning 5)) - (< (point) (match-beginning 5)))) + (< (point) (match-beginning 5))) + ;; Ignore checks in code, verbatim and others. + (org--flyspell-object-check-p (org-element-at-point))) (let* ((element (org-element-at-point)) (post-affiliated (org-element-property :post-affiliated element))) (cond |