1 files changed, 11 insertions, 5 deletions

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 83ac5d03b41..7add5e3a261 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -121,14 +121,20 @@
   (setq glyph-table (vconcat glyph-table (list string)))
   (1- (length glyph-table)))
 
+;;;###autoload
 (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."
+  "Toggle display of European characters encoded with ISO 8859.
+When enabled, characters in the range of 160 to 255 display not
+as octal escapes, but as accented characters.
+With prefix argument, enable European character display iff arg is positive."
   (interactive "P")
-  (if arg (standard-display-default 160 255)
+  (if (or (< (prefix-numeric-value arg) 0)
+          (and (null arg)
+               (vectorp standard-display-table)
+               (>= (length standard-display-table) 161)
+               (equal (aref standard-display-table 160) [160])))
+      (standard-display-default 160 255)
     (standard-display-8bit 160 255)))
-  
 
 (provide 'disp-table)