[elpa] externals/guess-language 8c8a161 094/101: Treat org lists as one paragraph.

[Stefan Monnier]

branch: externals/guess-language
commit 8c8a1616b6a7bc4c10942ee0a1b2591b98fcd493
Author: Titus von der Malsburg <address@hidden>
Commit: Titus von der Malsburg <address@hidden>

    Treat org lists as one paragraph.
    
    The default in org is that each list item is a paragraph but in many
    cases this won’t give us enough material to detect the language reliably.
---
 guess-language.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index ef2a1a9..a0c5a1e 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -153,14 +153,24 @@ Uses ISO 639-1 to identify languages.")
   "Uses whatever method for moving to the previous paragraph is
 most appropriate given the buffer mode."
   (if (eq major-mode 'org-mode)
-      (org-backward-paragraph)
+      ;; When in list, go to the beginning of the top-level list:
+      (if (org-in-item-p)
+          (progn
+            (while (org-in-item-p)
+              (org-beginning-of-item-list)
+              (forward-line -1))
+            (forward-line 1))
+        (org-backward-paragraph))
     (backward-paragraph)))
 
 (defun guess-language-forward-paragraph ()
   "Uses whatever method for moving to the previous paragraph is
 most appropriate given the buffer mode."
   (if (eq major-mode 'org-mode)
-      (org-forward-paragraph)
+      (if (org-in-item-p)
+          (while (org-in-item-p)
+            (org-end-of-item-list))
+        (org-forward-paragraph))
     (forward-paragraph)))
 
 (defun guess-language-region (beginning end)