From 9dfded1edd3fde408d2650079fea93b01b25c75c Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 16 Feb 2001 16:42:18 +0000 Subject: [PATCH] Don't use a lambda for pre-write-conversion. --- lisp/international/utf-8.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index ae0bf33a8f0..19ffea72064 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -255,9 +255,8 @@ ;; ff 0000 0000 1111 1111 1101 1111 1011 1111 (write r1) - ;; unsupported character. - ;; output U+FFFD, which is `ef bf bd' in UTF-8 - ;; actually it never reach here + ;; Unsupported character. + ;; Output U+FFFD, which is `ef bf bd' in UTF-8. ((write #xef) (write #xbf) (write #xbd))))))))) @@ -281,7 +280,7 @@ Unicode characters out of these ranges are decoded into eight-bit-control or eight-bit-graphic." '(ccl-decode-mule-utf-8 . ccl-encode-mule-utf-8) - `((safe-charsets + '((safe-charsets ascii eight-bit-control eight-bit-graphic @@ -300,6 +299,9 @@ into eight-bit-control or eight-bit-graphic." mule-unicode-e000-ffff) (mime-charset . utf-8) ;; Kluge to ensure the translation table is loaded. - (pre-write-conversion . ,(lambda (junk) (require 'ucs-tables))))) + (pre-write-conversion . internal-require-ucs-tables))) + +(defun internal-require-ucs-tables () + (require 'ucs-tables)) (define-coding-system-alias 'utf-8 'mule-utf-8) -- 2.39.5