Turn flyspell off in src blocks.

* lisp/org.el (org-mode-flyspell-verify): Check for src block.

Based on a patch by Trevor Murphy.
This commit is contained in:
Carsten Dominik 2013-06-01 08:34:29 +02:00
parent 29797e921d
commit 24d3fbacaa
1 changed files with 2 additions and 1 deletions

View File

@ -23600,7 +23600,8 @@ To get rid of the restriction, use \\[org-agenda-remove-restriction-lock]."
(not (member-ignore-case word (org-get-export-keywords)))
(not (member-ignore-case
word (mapcar 'car org-element-block-name-alist)))
(not (member-ignore-case word '("BEGIN" "END" "ATTR"))))))
(not (member-ignore-case word '("BEGIN" "END" "ATTR")))
(not (org-in-src-block-p)))))
(defun org-remove-flyspell-overlays-in (beg end)
"Remove flyspell overlays in region."