(defvar mm-charset-synonym-alist
'((big5 . cn-big5)
(gb2312 . cn-gb-2312)
- (iso-2022-jp-2 . iso-2022-7bit-ss2)
(x-ctext . ctext))
"A mapping from invalid charset names to the real charset names.")
(defun mm-find-charset-region (b e)
"Return a list of charsets in the region."
(cond
- ((fboundp 'find-charset-region)
+ ((and (boundp 'enable-multibyte-characters)
+ enable-multibyte-characters
+ (fboundp 'find-charset-region))
(find-charset-region b e))
((not (boundp 'current-language-environment))
(save-excursion