Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 4222:38ef5a6da799

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-10-13 14:08:26 by aidan] Fix the nomule package build; eliminate some non-X compile time warnings.
author aidan
date Sat, 13 Oct 2007 14:08:30 +0000
parents 3651e9c49476
children 75d0292c1bff
comparison
equal deleted inserted replaced
4221:807c86a7612a 4222:38ef5a6da799
536 ;; sequences are caught by the regexp. 536 ;; sequences are caught by the regexp.
537 (with-temp-buffer 537 (with-temp-buffer
538 (loop 538 (loop
539 for i from ?\x00 to ?\xFF 539 for i from ?\x00 to ?\xFF
540 with to-check = (make-string 20 ?\x20) 540 with to-check = (make-string 20 ?\x20)
541 with res = t
542 do 541 do
543 (delete-region (point-min) (point-max)) 542 (delete-region (point-min) (point-max))
544 (insert to-check) 543 (insert to-check)
545 (goto-char 10) 544 (goto-char 10)
546 (insert (decode-coding-string (format "\xd8\x00\x00%c" i) 545 (insert (decode-coding-string (format "\xd8\x00\x00%c" i)