[elpa] externals/org 7c4d057 5/5: org-compat.el (org-mode-flyspell-verify): Do not check code in headline

[ELPA Syncer]

branch: externals/org
commit 7c4d057cd4591df2aa98f38d6dc620ec4444fc6c
Author: Sébastien Miquel <sebastien.miquel@posteo.eu>
Commit: Kyle Meyer <kyle@kyleam.com>

    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
---
 lisp/org-compat.el | 7 ++++---
 1 file 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