From: yamaoka <yamaoka>
Date: Fri, 22 Oct 1999 06:58:42 +0000 (+0000)
Subject: (mime-iso646-character-unification-alist): Move to mcs-xmu.el.
X-Git-Tag: apel-9_23~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ccad5292504294b389d84fe678b5881e2cab6e94;p=elisp%2Fapel.git

(mime-iso646-character-unification-alist): Move to mcs-xmu.el.
(mime-unified-character-face): Move to mcs-xmu.el.
(mime-character-unification-limit-size): Move to mcs-xmu.el.
(decode-mime-charset-region-with-iso646-unification): Move to mcs-xmu.el.

(decode-mime-charset-region-with-iso646-unification): Narrow to the region
while decoding; bind `case-fold-search' to nil.
(mime-character-unification-limit-size): Make it can also be nil which means
the size is unlimited.

(decode-mime-charset-region-with-iso646-unification): Don't put
`mime-unified-character-face' to unified text if it is nil.
(mime-character-unification-limit-size): Fix doc string.
---

diff --git a/mcs-xm.el b/mcs-xm.el
index 3497be1..d3de9cf 100644
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -61,57 +61,7 @@
       )))
 
 (unless (featurep 'utf-2000)
-  (defcustom mime-iso646-character-unification-alist
-    (eval-when-compile
-      (let (dest
-	    (i 33))
-	(while (< i 92)
-	  (setq dest
-		(cons (cons (char-to-string (make-char 'latin-jisx0201 i))
-			    (format "%c" i))
-		      dest))
-	  (setq i (1+ i)))
-	(setq i 93)
-	(while (< i 126)
-	  (setq dest
-		(cons (cons (char-to-string (make-char 'latin-jisx0201 i))
-			    (format "%c" i))
-		      dest))
-	  (setq i (1+ i)))
-	(nreverse dest)))
-    "Alist unified string vs. canonical string."
-    :group 'i18n
-    :type '(repeat (cons string string)))
-
-  (defcustom mime-unified-character-face nil
-    "*Face of unified character."
-    :group 'i18n
-    :type 'face)
-
-  (defcustom mime-character-unification-limit-size 2048
-    "*Limit size to unify characters."
-    :group 'i18n
-    :type 'integer)
-
-  (defun decode-mime-charset-region-with-iso646-unification (start end charset
-								   lbt)
-    (decode-mime-charset-region-default start end charset lbt)
-    (if (<= (- end start) mime-character-unification-limit-size)
-	(save-excursion
-	  (let ((rest mime-iso646-character-unification-alist))
-	    (while rest
-	      (let ((pair (car rest)))
-		(goto-char start)
-		(while (search-forward (car pair) end t)
-		  (let ((str (cdr pair)))
-		    (put-text-property 0 (length str)
-				       'face mime-unified-character-face str)
-		    (replace-match str 'fixed-case 'literal)
-		    )
-		  ))
-	      (setq rest (cdr rest)))))
-      ))
-  )
+  (require 'mcs-xmu))
 
 (defun decode-mime-charset-region-for-hz (start end charset lbt)
   (if lbt