mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 21:32:52 +00:00
Code Releases Activity

Improve flyspell support in verbatim emphasis strings

Browse source
This commit is contained in:
Carsten Dominik 2009-06-08 08:36:33 +02:00
parent 379b24cc63
commit a554e0ce5c
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org.el
View file

@ -4649,7 +4649,8 @@ If KWD is a number, get the corresponding match group."
deactivate-mark buffer-file-name buffer-file-truename)
(remove-text-properties beg end
'(mouse-face t keymap t org-linked-text t
invisible t intangible t))))
invisible t intangible t
org-no-flyspell t))))
;;;; Visibility cycling, including org-goto and indirect buffer
@ -16500,13 +16501,15 @@ To get rid of the restriction, use \\[org-agenda-remove-restriction-lock]."
;; Make flyspell not check words in links, to not mess up our keymap
(defun org-mode-flyspell-verify ()
"Don't let flyspell put overlays at active buttons."
(not (get-text-property (point) 'keymap)))
(and (not (get-text-property (point) 'keymap))
(not (get-text-property (point) 'org-no-flyspell))))
(defun org-remove-flyspell-overlays-in (beg end)
"Remove flyspell overlays in region."
(and (org-bound-and-true-p flyspell-mode)
(fboundp 'flyspell-delete-region-overlays)
(flyspell-delete-region-overlays beg end)))
(flyspell-delete-region-overlays beg end))
(add-text-properties beg end '(org-no-flyspell t)))
;; Make `bookmark-jump' show the jump location if it was hidden.
(eval-after-load "bookmark"