aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-05-25 06:21:35 +0000
committerJim Blandy1993-05-25 06:21:35 +0000
commit2eae72268f91fad5c85f74a40d5a98120e8c6fbc (patch)
tree6245cbe1d73be3e5634e8af0e8e02046667d90ff
parent8b14d296745fb3203c0d518256ab0dcb423ddd4d (diff)
downloademacs-2eae72268f91fad5c85f74a40d5a98120e8c6fbc.tar.gz
emacs-2eae72268f91fad5c85f74a40d5a98120e8c6fbc.zip
* disp-table.el (standard-display-european): Doc fix. Make
this autoload. Make it respond to prefix arg like a minor mode.
-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 @@
121 (setq glyph-table (vconcat glyph-table (list string))) 121 (setq glyph-table (vconcat glyph-table (list string)))
122 (1- (length glyph-table))) 122 (1- (length glyph-table)))
123 123
124;;;###autoload
124(defun standard-display-european (arg) 125(defun standard-display-european (arg)
125 "Arrange to display European characters encoded with ISO 8859. 126 "Toggle display of European characters encoded with ISO 8859.
126This means that characters in the range of 160 to 255 display not 127When enabled, characters in the range of 160 to 255 display not
127as octal escapes, but as accented characters." 128as octal escapes, but as accented characters.
129With prefix argument, enable European character display iff arg is positive."
128 (interactive "P") 130 (interactive "P")
129 (if arg (standard-display-default 160 255) 131 (if (or (< (prefix-numeric-value arg) 0)
132 (and (null arg)
133 (vectorp standard-display-table)
134 (>= (length standard-display-table) 161)
135 (equal (aref standard-display-table 160) [160])))
136 (standard-display-default 160 255)
130 (standard-display-8bit 160 255))) 137 (standard-display-8bit 160 255)))
131
132 138
133(provide 'disp-table) 139(provide 'disp-table)
134 140