From: ueno <ueno>
Date: Wed, 20 Mar 2002 20:07:20 +0000 (+0000)
Subject: * gettext.el (bind-text-domain): Fix typo.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ee20b523058e7e6381acce7388e9939634f8652;p=elisp%2Fliece.git

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

diff --git a/lisp/gettext.el b/lisp/gettext.el
index ef29bc8..5e9cbe9 100644
--- 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)