Don't use a lambda for pre-write-conversion.

diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el
index ae0bf33a8f0c305f4255b5afcd313716d5fccc78..19ffea720646df2de6520c916be8ef3dd669be8b 100644 (file)
--- 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)