Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 3506:bcc2611d4cfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 d1754e7f0cea
children 98af8a976fc3
comparison
equal deleted inserted replaced
3505:c62ab34c2912 3506:bcc2611d4cfc
305 need-bom t)) 305 need-bom t))
306 306
307 (defun decode-char (quote-ucs code &optional restriction) 307 (defun decode-char (quote-ucs code &optional restriction)
308 "FSF compatibility--return Mule character with Unicode codepoint `code'. 308 "FSF compatibility--return Mule character with Unicode codepoint `code'.
309 The second argument must be 'ucs, the third argument is ignored. " 309 The second argument must be 'ucs, the third argument is ignored. "
310 (assert (eq quote-ucs 'ucs) 310 (assert (eq quote-ucs 'ucs) t
311 "Sorry, decode-char doesn't yet support anything but the UCS. ") 311 "Sorry, decode-char doesn't yet support anything but the UCS. ")
312 (unicode-to-char code)) 312 (unicode-to-char code))
313 313
314 (defun encode-char (char quote-ucs &optional restriction) 314 (defun encode-char (char quote-ucs &optional restriction)
315 "FSF compatibility--return the Unicode code point of `char'. 315 "FSF compatibility--return the Unicode code point of `char'.
316 The second argument must be 'ucs, the third argument is ignored. " 316 The second argument must be 'ucs, the third argument is ignored. "
317 (assert (eq quote-ucs 'ucs) 317 (assert (eq quote-ucs 'ucs) t
318 "Sorry, encode-char doesn't yet support anything but the UCS. ") 318 "Sorry, encode-char doesn't yet support anything but the UCS. ")
319 (char-to-unicode char)) 319 (char-to-unicode char))
320 320
321 (when (featurep 'mule) 321 (when (featurep 'mule)
322 ;; This CCL program is used for displaying the fallback UCS character set, 322 ;; This CCL program is used for displaying the fallback UCS character set,