# HG changeset patch
# User aidan
# Date 1152823549 0
# Node ID bcc2611d4cfc06cd0952ca09d24e1b0df0336943
# Parent  c62ab34c29125e59b24036006359bb5d79fc7d00
[xemacs-hg @ 2006-07-13 20:45:48 by aidan]
Fix some assertion syntax in unicode.el.

diff -r c62ab34c2912 -r bcc2611d4cfc lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jul 12 21:51:07 2006 +0000
+++ b/lisp/ChangeLog	Thu Jul 13 20:45:49 2006 +0000
@@ -1,3 +1,9 @@
+2006-07-13  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* unicode.el (decode-char):
+	* unicode.el (encode-char):
+	Specify the SHOW-ARGS properly in a couple of assertions. 
+	
 2006-06-30  Jerry James  <james@xemacs.org>
 
 	* process.el (shell-command): If a specific output buffer was
diff -r c62ab34c2912 -r bcc2611d4cfc lisp/unicode.el
--- 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))