diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-06-01 08:34:29 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-06-01 08:34:29 +0200 |
| commit | 24d3fbacaae8358f41a0ea556253473bc0fce999 (patch) | |
| tree | fa20674e9c8e1ffa92efb2d61c7969bf4e46cbe5 | |
| parent | 29797e921d115565c68db9081ed1e872939db39f (diff) | |
| download | org-mode-24d3fbacaae8358f41a0ea556253473bc0fce999.tar.gz | |
Turn flyspell off in src blocks.
* lisp/org.el (org-mode-flyspell-verify): Check for src block.
Based on a patch by Trevor Murphy.
| -rw-r--r-- | lisp/org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index adb5fb1..96686ec 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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." |