diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-05-25 06:21:35 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-05-25 06:21:35 +0000 |
| commit | 2eae72268f91fad5c85f74a40d5a98120e8c6fbc (patch) | |
| tree | 6245cbe1d73be3e5634e8af0e8e02046667d90ff /lisp/disp-table.el | |
| parent | 8b14d296745fb3203c0d518256ab0dcb423ddd4d (diff) | |
| download | emacs-2eae72268f91fad5c85f74a40d5a98120e8c6fbc.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.el | 16 |
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) |