CVS update by aidan xemacs/lisp ...

User: aidan Date: 06/07/13 22:45:51 Modified: xemacs/lisp ChangeLog unicode.el Log: Fix some assertion syntax in unicode.el. Revision Changes Path 1.753 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.752 retrieving revision 1.753 diff -u -p -r1.752 -r1.753 --- ChangeLog 2006/07/06 17:07:40 1.752 +++ ChangeLog 2006/07/13 20:45:48 1.753 ＠＠ -1,3 +1,9 ＠＠ +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. + 2006-06-30 Jerry James <james(a)xemacs.org&gt; * process.el (shell-command): If a specific output buffer was 1.14 +2 -2 XEmacs/xemacs/lisp/unicode.el Index: unicode.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/unicode.el,v retrieving revision 1.13 retrieving revision 1.14 diff -u -p -r1.13 -r1.14 --- unicode.el 2006/06/03 17:50:40 1.13 +++ unicode.el 2006/07/13 20:45:49 1.14 ＠＠ -307,14 +307,14 ＠＠ Standard encoding for representing UTF-8 (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))