[elpa] externals/greader 0bd8d0ee00 3/4: greader-get-language: modified.

[ELPA Syncer]

branch: externals/greader
commit 0bd8d0ee00b458118f20c2bf81bff9e0c6748176
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>

    greader-get-language: modified.
    
    Now this function takes advantage of the function
    `greader--get-local-language' to make the result more robust.
---
 greader.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/greader.el b/greader.el
index e2fe571e1c..942dcb0da0 100644
--- a/greader.el
+++ b/greader.el
@@ -686,9 +686,15 @@ buffer, so if you want to set it globally, please use
       "en"))) ; Default to "en" if the locale format is unrecognized
 
 (defun greader-get-language ()
-  "return language set in current back-end."
-  (greader-call-backend 'get-language))
-
+  "return language set in current back-end.
+if `current-backend' does not implement `get-language' command, try to
+get the language from the environment."
+  (let ((lang nil))
+    (if (equal (greader-call-backend 'get-language)
+              'not-implemented)
+       (setq lang (greader--get-local-language))
+      (setq lang (greader-call-backend 'get-language)))
+    lang))
 (defun greader-toggle-punctuation ()
   "Toggle punctuation locally for current buffer."
   (interactive)