* gettext.el (bind-text-domain): Fix typo.

diff --git a/lisp/gettext.el b/lisp/gettext.el
index ef29bc8..5e9cbe9 100644 (file)
--- a/lisp/gettext.el
+++ b/lisp/gettext.el
@@ -244,7 +244,7 @@ Return the list of results."
 Here's how the path to message files is constructed under SunOS 5.0:
   {pathname}/{LANG}/LC_MESSAGES/{domain}.mo
 \[XEmacs I18N level 3 emulating function]"
-    (let* ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG"))
+    (let* ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG")))
           (language (progn
                       (string-match "\\([^_.]+\\)\\(_[^.]+\\)?\\(\\.[^@]+\\)?"
                                     lang)