Mercurial > hg > xemacs-beta

diff lisp/mule/viet-util.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children
line wrap: on
line diff
--- a/lisp/mule/viet-util.el	Tue Feb 22 22:56:02 2011 +0100
+++ b/lisp/mule/viet-util.el	Thu Mar 17 23:42:59 2011 +0100
@@ -43,8 +43,8 @@
   (if (eq char ?~)
       char
     (setq char (encode-coding-string char 'viscii))
-    (if (and (= 1 (length char))
-	     (not (eq (aref char 0) ?~)))
+    (if (and (eql 1 (length char))
+	     (not (eql (aref char 0) ?~)))
 	(aref char 0))))
 
 ;; VIQR is a menmonic encoding specification for Vietnamese.