From 6ee20b523058e7e6381acce7388e9939634f8652 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 20 Mar 2002 20:07:20 +0000
Subject: [PATCH] * gettext.el (bind-text-domain): Fix typo.

---
 lisp/gettext.el |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
1.7.10.4