emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] [PATCH] org.el: Don't flyspell check within source code blocks


From: Trevor Murphy
Subject: Re: [O] [PATCH] org.el: Don't flyspell check within source code blocks
Date: Sat, 25 May 2013 03:24:59 -0400

Ack, what?  Please disregard, I slipped a double negative in somehow.


On Sat, May 25, 2013 at 3:17 AM, Trevor Murphy <address@hidden> 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]