(char-charset): Fix typo.

diff --git a/poem-ltn1.el b/poem-ltn1.el
index e209974..be435c6 100644 (file)
--- a/poem-ltn1.el
+++ b/poem-ltn1.el
@@ -162,7 +162,7 @@ code conversion will not take place."
 
 (defun char-charset (char)
   "Return the character set of char CHAR."
-  (if (< chr 128)
+  (if (< char 128)
       'ascii
     'latin-iso8859-1))