[elpa] externals/guess-language 2fd5023 093/101: In org buffers use org-backward/forward-paragraph.

[Stefan Monnier]

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

    In org buffers use org-backward/forward-paragraph.
---
 guess-language.el | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index c8b79d7..ef2a1a9 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -149,6 +149,20 @@ Uses ISO 639-1 to identify languages.")
          for regexp = (concat "\\(" regexp "\\)")
          collect (cons (car lang) regexp))))
 
+(defun guess-language-backward-paragraph ()
+  "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)
+    (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)
+    (forward-paragraph)))
+
 (defun guess-language-region (beginning end)
   "Guess language in the specified region.
 
@@ -170,8 +184,8 @@ Region starts at BEGINNING and ends at END."
 
 (defun guess-language-paragraph ()
   "Guess the language of the current paragraph."
-  (let ((beginning (save-excursion (backward-paragraph) (point)))
-        (end       (save-excursion (forward-paragraph) (point))))
+  (let ((beginning (save-excursion (guess-language-backward-paragraph) 
(point)))
+        (end       (save-excursion (guess-language-forward-paragraph) 
(point))))
     (guess-language-region beginning end)))
 
 (defun guess-language-line ()
@@ -188,8 +202,8 @@ Calls the functions in
 switch the dictionary of the spell checker and do other useful
 things like changing the keyboard layout or input method."
   (interactive)
-  (let ((beginning (save-excursion (backward-paragraph) (point)))
-        (end       (save-excursion (forward-paragraph)  (point))))
+  (let ((beginning (save-excursion (guess-language-backward-paragraph) 
(point)))
+        (end       (save-excursion (guess-language-forward-paragraph)  
(point))))
     (when (> (- end beginning) guess-language-min-paragraph-length)
       (let ((lang (guess-language-region beginning end)))
         (run-hook-with-args 'guess-language-after-detection-functions lang 
beginning end)