[elpa] externals/guess-language 93dcc15 071/101: Display ISO 639-1 code in mode line.

[Stefan Monnier]

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

    Display ISO 639-1 code in mode line.
---
 guess-language.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guess-language.el b/guess-language.el
index 3ddc0e1..b280f5b 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -116,7 +116,9 @@ detected."
   :group 'guess-language)
 
 (defvar guess-language-current-language nil
-  "The language detected when `guess-language' was last executed.")
+  "The language detected when `guess-language' was last executed.
+
+Uses ISO 639-1 to identify languages.")
 
 (defun guess-language-load-trigrams ()
   "Load language statistics."
@@ -234,7 +236,7 @@ correctly."
   ;; The initial value.
   :init-value nil
   ;; The indicator for the mode line.
-  :lighter (:eval (format " (%s)" (or ispell-local-dictionary "default")))
+  :lighter (:eval (format " (%s)" (or guess-language-current-language 
"default")))
   :global nil
   :group 'guess-language
   (if guess-language-mode