(make-coding-system): If the coding system

accepts extra latin codes, register such codes as safe for the
coding system.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 89f2e02727a6c002334ea3dfb8be70868ecbe7fe..5228464ab829d794f01033beb1c3d71bb7198e47 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -716,6 +716,7 @@ a value of `safe-charsets' in PLIST."
   (let ((coding-spec (make-vector 5 nil))
        (no-initial-designation t)
        (no-alternative-designation t)
+       (accept-latin-extra-code nil)
        coding-category)
     (if (or (not (integerp type)) (< type 0) (> type 5))
        (error "TYPE argument must be 0..5"))
@@ -763,6 +764,9 @@ a value of `safe-charsets' in PLIST."
               (setq fl (cdr fl) i (1+ i)))
             (while (and (< i 32) fl)
               (aset vec i (car fl))
+              (if (and (= i 16)        ; ACCEPT-LATIN-EXTRA-CODE
+                       (car fl))
+                  (setq accept-latin-extra-code t))
               (setq fl (cdr fl) i (1+ i)))
             (aset coding-spec 4 vec)
             (setq coding-category
@@ -839,7 +843,13 @@ a value of `safe-charsets' in PLIST."
                             (aset safe-chars i t)
                             (setq i (1+ i)))))
                        (t
-                        (aset safe-chars (make-char charset) t)))))
+                        (aset safe-chars (make-char charset) t))))
+               (if accept-latin-extra-code
+                   (let ((i 128))
+                     (while (< i 160)
+                       (if (aref latin-extra-code-table i)
+                           (aset safe-chars i t))
+                       (setq i (1+ i))))))
              (setq l (cons (cons 'safe-chars safe-chars) l))))
        (while l
          (setq prop (car (car l)) val (cdr (car l)) l (cdr l))