On Sat, May 25, 2013 at 3:17 AM, Trevor Murphy <trevor.m.murphy@gmail.com> wrote:

* lisp/org.el (org-mode-flyspell-verify): Check if
`org-element-at-point' is of type `src-block', and don't flyspell if
that's the case.

TINYCHANGE
---
lisp/org.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 94078f9..81428f5 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -23596,7 +23596,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 (not (eq (org-element-type (org-element-at-point)) 'src-block))))))

(defun org-remove-flyspell-overlays-in (beg end)
"Remove flyspell overlays in region."
--
1.8.2.3