From mboxrd@z Thu Jan 1 00:00:00 1970 From: Trevor Murphy Subject: [PATCH v2] org.el: Don't flyspell check within source code blocks Date: Wed, 29 May 2013 20:49:55 -0400 Message-ID: <1369874995-24158-1-git-send-email-trevor.m.murphy@gmail.com> References: <1369466635-8217-1-git-send-email-trevor.m.murphy@gmail.com> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:46733) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uhr7S-00024a-QT for emacs-orgmode@gnu.org; Wed, 29 May 2013 20:53:35 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uhr7M-0002jq-QH for emacs-orgmode@gnu.org; Wed, 29 May 2013 20:53:30 -0400 Received: from mail-gg0-x22e.google.com ([2607:f8b0:4002:c02::22e]:61494) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uhr7M-0002jN-MG for emacs-orgmode@gnu.org; Wed, 29 May 2013 20:53:24 -0400 Received: by mail-gg0-f174.google.com with SMTP id y1so2529819ggc.19 for ; Wed, 29 May 2013 17:53:24 -0700 (PDT) In-Reply-To: <1369466635-8217-1-git-send-email-trevor.m.murphy@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Trevor Murphy * lisp/org.el (org-mode-flyspell-verify): Add check for `org-in-src-block-p'. TINYCHANGE --- lisp/org.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 94078f9..77de2d7 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 (org-in-src-block-p))))) (defun org-remove-flyspell-overlays-in (beg end) "Remove flyspell overlays in region." -- 1.8.3