Ack, what? Please disregard, I slipped a double negative in somehow.
On Sat, May 25, 2013 at 3:17 AM, Trevor Murphy <trevor.m.mur...@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
>
>
