summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSébastien Miquel <sebastien.miquel@posteo.eu>2021-03-07 17:06:34 +0100
committerKyle Meyer <kyle@kyleam.com>2021-03-14 22:50:53 -0400
commit7c4d057cd4591df2aa98f38d6dc620ec4444fc6c (patch)
treefc51727d66fa67a56ab8acfad08e6f00bcbf8aac
parentd477f61ee1a828086c25d87c195352fcd9979a4f (diff)
downloadorg-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.el7
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