branch: externals/org
commit 86abaf640701c40eb01f1f1a9f42c4537309c8de
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-mode-flyspell-verify: Do not disable flyspell inside LOGBOOK drawers
* lisp/org-compat.el (org-mode-flyspell-verify): Remove LOGBOOK drawer
filter. Not checking inside LOGBOOK drawers has no clear purpose. I
also see no explanation in the git logs and mailing list archives, all
the way back to refactoring this function to use org-element API.
* etc/ORG-NEWS (Org mode no longer prevents =flyspell= from
spell-checking inside =LOGBOOK= drawers): Announce the breaking
change.
Reported-by: Morgan Willcock <[email protected]>
Link: https://orgmode.org/list/[email protected]
---
etc/ORG-NEWS | 7 +++++++
lisp/org-compat.el | 8 --------
2 files changed, 7 insertions(+), 8 deletions(-)
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 86bc94208c..6f858f3ca7 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -114,6 +114,13 @@ to dynamically generate the content of the resulting
~<head>~ tag in
the resulting HTML document.
** Miscellaneous
+*** Org mode no longer prevents =flyspell= from spell-checking inside
=LOGBOOK= drawers
+
+Previously, spell-checking via =flyspell= was disabled inside
+=LOGBOOK= (or ~org-log-into-drawer~) drawers. Now, it is no longer
+the case. It can be useful to see spelling mistakes inside notes
+added via ~org-add-note~ command.
+
*** ~ob-R~ and ~ob-julia~ no longer use ESS settings for working directory
Previously, without =:dir= parameter, R and Julia code blocks could
diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index a1b1bff47d..d843216f33 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -1597,14 +1597,6 @@ ELEMENT is the element at point."
(let ((case-fold-search t)) (looking-at "[ \t]*#\\+CAPTION:")))
(> (point) (match-end 0))
(org--flyspell-object-check-p element)))
- ;; Ignore checks in LOGBOOK (or equivalent) drawer.
- ((let ((log (org-log-into-drawer)))
- (and log
- (let ((drawer (org-element-lineage element 'drawer)))
- (and drawer
- (org-string-equal-ignore-case
- log (org-element-property :drawer-name drawer))))))
- nil)
(t
(cl-case (org-element-type element)
((comment quote-section) t)
