From 798aa8d0a7116e8bda2d204e851573c35464925c Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Mon, 24 May 1993 21:13:21 +0000
Subject: [PATCH] * disp-table.el (standard-display-default): New function. 
 (standard-display-european): New command.

---
 lisp/disp-table.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 0c5e0f093a6..83ac5d03b41 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -71,6 +71,17 @@
       (aset standard-display-table l (vector l)))
     (setq l (1+ l))))
 
+;;;###autoload
+(defun standard-display-default (l h)
+  "Display characters in the range L to H using the default notation."
+  (while (<= l h)
+    (if (and (>= l ?\ ) (< l 127))
+	(if standard-display-table (aset standard-display-table l nil))
+      (or standard-display-table
+	  (setq standard-display-table (make-vector 261 nil)))
+      (aset standard-display-table l nil))
+    (setq l (1+ l))))
+
 ;;;###autoload
 (defun standard-display-ascii (c s)
   "Display character C using string S."
@@ -110,6 +121,15 @@
   (setq glyph-table (vconcat glyph-table (list string)))
   (1- (length glyph-table)))
 
+(defun standard-display-european (arg)
+  "Arrange to display European characters encoded with ISO 8859.
+This means that characters in the range of 160 to 255 display not
+as octal escapes, but as accented characters."
+  (interactive "P")
+  (if arg (standard-display-default 160 255)
+    (standard-display-8bit 160 255)))
+  
+
 (provide 'disp-table)
 
 ;;; disp-table.el ends here