APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2006-07-13 Aidan Kehoe <kehoea(a)parhasard.net>
* 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!
Show replies by thread