Mercurial > hg > xemacs-beta
changeset 3506:bcc2611d4cfc
[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 | c62ab34c2912 |
| children | c27e8aa3ad12 |
| files | lisp/ChangeLog lisp/unicode.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))