*** empty log message ***

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 63ee1bd49ee66573186617aa6a2dce3e1acffefd..dc79be91ad2b9d8b908ae268a7351133ccd2580d 100644 (file)
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -810,15 +810,16 @@ turn it off and display Unicode characters literally.  The display
 is't changed if the display can render Unicode characters."
   (interactive "p")
   (if (> arg 0)
-      (unless nil;; (latin1-char-displayable-p
-;;            (make-char 'mule-unicode-0100-24ff 32 33))
+      (unless (latin1-char-displayable-p
+              (make-char 'mule-unicode-0100-24ff 32 33))
        ;; It doesn't look as though we have a Unicode font.
        (let ((latin1-display-format "%s"))
          (mapc
           (lambda (l)
             (apply 'latin1-display-char l))
           ;; Table derived by running Lynx on a suitable list of
-          ;; characters in a utf-8 file.
+          ;; characters in a utf-8 file, except for some added by
+          ;; hand at the end.
           '((?\\9cô   "A")
             (?\\9cô ¡ "a")
             (?\\9cô ¢ "A")
@@ -3226,7 +3227,10 @@ is't changed if the display can render Unicode characters."
             (?\\9cóóá ".")
             (?\\9cóóâ "\"")
             (?\\9cóóã "\"")
-            (?\\9cóóä ",")))))
+            (?\\9cóóä ",")
+            ;; Not from Lynx
+            (?\9cóòß . "")
+            (?\9cóõ½ . "?")))))
     (aset standard-display-table
          (make-char 'mule-unicode-0100-24ff) nil)
     (aset standard-display-table