Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children 48a3d3281b48
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
775 (car invalid-sequence-coding-system))) 775 (car invalid-sequence-coding-system)))
776 (map-char-table 776 (map-char-table
777 #'(lambda (key entry) 777 #'(lambda (key entry)
778 (setq string (decode-coding-string (string entry) 778 (setq string (decode-coding-string (string entry)
779 invalid-sequence-coding-system)) 779 invalid-sequence-coding-system))
780 (when (= 1 (length string)) 780 (when (eql 1 (length string))
781 ;; Treat Unicode error sequence chars as the octets 781 ;; Treat Unicode error sequence chars as the octets
782 ;; corresponding to those on disk: 782 ;; corresponding to those on disk:
783 (setq unicode-error-lookup 783 (setq unicode-error-lookup
784 (get-char-table (aref string 0) 784 (get-char-table (aref string 0)
785 unicode-error-default-translation-table)) 785 unicode-error-default-translation-table))