branch: externals/guess-language
commit 93dcc1521e26feaff28177bee3af491ec97ce200
Author: Titus von der Malsburg <[email protected]>
Commit: Titus von der Malsburg <[email protected]>
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
