[COMMIT] Fix some assertion syntax in unicode.el

APPROVE COMMIT NOTE: This patch has been committed. lisp/ChangeLog addition: 2006-07-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * unicode.el (decode-char): * unicode.el (encode-char): Specify the SHOW-ARGS properly in a couple of assertions. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: lisp/unicode.el Index: lisp/unicode.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/unicode.el,v retrieving revision 1.13 diff -u -u -r1.13 unicode.el --- lisp/unicode.el 2006/06/03 17:50:40 1.13 +++ lisp/unicode.el 2006/07/13 20:43:54 ＠＠ -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)) -- Santa Maradona, priez pour moi!