Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 84b14dcb0985
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
1437 ;; enc1 enc2 i1 i2) 1437 ;; enc1 enc2 i1 i2)
1438 ;; (when (or (eq safe-charsets t) 1438 ;; (when (or (eq safe-charsets t)
1439 ;; (memq (char-charset char) safe-charsets)) 1439 ;; (memq (char-charset char) safe-charsets))
1440 ;; ;; We must find the encoded string of CHAR. But, just encoding 1440 ;; ;; We must find the encoded string of CHAR. But, just encoding
1441 ;; ;; CHAR will put extra control sequences (usually to designate 1441 ;; ;; CHAR will put extra control sequences (usually to designate
1442 ;; ;; ASCII charaset) at the tail if type of CODING is ISO 2022. 1442 ;; ;; ASCII charset) at the tail if type of CODING is ISO 2022.
1443 ;; ;; To exclude such tailing bytes, we at first encode one-char 1443 ;; ;; To exclude such tailing bytes, we at first encode one-char
1444 ;; ;; string and two-char string, then check how many bytes at the 1444 ;; ;; string and two-char string, then check how many bytes at the
1445 ;; ;; tail of both encoded strings are the same. 1445 ;; ;; tail of both encoded strings are the same.
1446 ;; 1446 ;;
1447 ;; (setq enc1 (string-as-unibyte (encode-coding-string str1 coding-system)) 1447 ;; (setq enc1 (string-as-unibyte (encode-coding-string str1 coding-system))