summaryrefslogtreecommitdiff
path: root/lisp/disp-table.el
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1993-05-25 06:21:35 +0000
committerJim Blandy <jimb@redhat.com>1993-05-25 06:21:35 +0000
commitf0ab1fe99abed5b5cbf353630648b6944e842608 (patch)
tree6c10b28b3a572fd022ef10298e6cbb026cff9f40 /lisp/disp-table.el
parent63f8e51c226d29f3e982780fede84876e274738d (diff)
downloademacs-f0ab1fe99abed5b5cbf353630648b6944e842608.tar.gz
* disp-table.el (standard-display-european): Doc fix. Make
this autoload. Make it respond to prefix arg like a minor mode.
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r--lisp/disp-table.el16
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)