Mercurial > hg > xemacs-beta

diff lisp/unicode.el @ 3506:bcc2611d4cfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-07-13 20:45:48 by aidan] Fix some assertion syntax in unicode.el.
author aidan
date Thu, 13 Jul 2006 20:45:49 +0000
parents d1754e7f0cea
children 98af8a976fc3
line wrap: on
line diff
--- a/lisp/unicode.el	Wed Jul 12 21:51:07 2006 +0000
+++ b/lisp/unicode.el	Thu Jul 13 20:45:49 2006 +0000
@@ -307,14 +307,14 @@
 (defun decode-char (quote-ucs code &optional restriction) 
   "FSF compatibility--return Mule character with Unicode codepoint `code'.
 The second argument must be 'ucs, the third argument is ignored.  "
-  (assert (eq quote-ucs 'ucs) 
+  (assert (eq quote-ucs 'ucs) t
 	  "Sorry, decode-char doesn't yet support anything but the UCS.  ")
   (unicode-to-char code))
 
 (defun encode-char (char quote-ucs &optional restriction)
   "FSF compatibility--return the Unicode code point of `char'.
 The second argument must be 'ucs, the third argument is ignored.  "
-  (assert (eq quote-ucs 'ucs)
+  (assert (eq quote-ucs 'ucs) t
 	  "Sorry, encode-char doesn't yet support anything but the UCS.  ")
   (char-to-unicode char))