レス数が1000を超えています。残念ながら全部は表示しません。

くだらない質問はここに書き込め！なんでもアリ16

460 ：名無しさん＠Ｅｍａｃｓ ：02/11/02 20:46

>>454
diff -u -p -r1.30 un-define.el
@@ -610,13 +624,21 @@ by calling post-read-conversion and pre-

(mapcar
(lambda (x)
- (mapcar
- (lambda (y)
- (mucs-define-coding-system
-(nth 0 y) (nth 1 y) (nth 2 y)
-(nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y))
- (coding-system-put (car y) 'alias-coding-systems (list (car x))))
- (cdr x)))
+ (if (fboundp 'register-char-codings)
+;; Mule 5, where we don't need the eol-type specified and
+;; register-char-codings may be very slow for these coding
+;; system definitions.
+(let ((y (cadr x)))
+ (mucs-define-coding-system
+ (car x) (nth 1 y) (nth 2 y)
+ (nth 3 y) (nth 4 y) (nth 5 y)))
+ (mapcar
+ (lambda (y)
+ (mucs-define-coding-system
+ (nth 0 y) (nth 1 y) (nth 2 y)
+ (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y))
+ (coding-system-put (car y) 'alias-coding-systems (list (car x)))))
+ (cdr x)))
`((utf-8
(utf-8-unix
?u "UTF-8 coding system"

read.cgi ver5.26+ (01/10/21-)