# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738278001 0
# Node ID 8bf84289be173cdc37a68a19a410299b27b507f2
# Parent  371058345c421ce3a79c962e032cb5701bfc568b
	* disp-table.el (standard-display-default): New function.
	(standard-display-european): New command.

diff -r 371058345c42 -r 8bf84289be17 lisp/disp-table.el
--- a/lisp/disp-table.el	Mon May 24 21:09:38 1993 +0000
+++ b/lisp/disp-table.el	Mon May 24 21:13:21 1993 +0000
@@ -72,6 +72,17 @@
     (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."
   (or standard-display-table
@@ -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