From c6831d8cf28db31e8866fb0de5a81f0425d501ab Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 10 Sep 2001 19:30:09 +0000 Subject: [PATCH] *** empty log message *** --- lisp/international/latin1-disp.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index 63ee1bd49ee..dc79be91ad2 100644 --- 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. '((?\œô   "A") (?\œô ¡ "a") (?\œô ¢ "A") @@ -3226,7 +3227,10 @@ is't changed if the display can render Unicode characters." (?\œóóá ".") (?\œóóâ "\"") (?\œóóã "\"") - (?\œóóä ","))))) + (?\œóóä ",") + ;; Not from Lynx + (?œóòß . "") + (?œóõ½ . "?"))))) (aset standard-display-table (make-char 'mule-unicode-0100-24ff) nil) (aset standard-display-table -- 2.39.5