Mercurial > emacs
changeset 3061:1e0f5fb4fcf1
* disp-table.el (standard-display-european): Doc fix. Make
this autoload. Make it respond to prefix arg like a minor mode.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 25 May 1993 06:21:35 +0000 |
| parents | 6bb1c8f853cb |
| children | c1dcd28d351b |
| files | lisp/disp-table.el |
| diffstat | 1 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/disp-table.el Tue May 25 06:18:24 1993 +0000 +++ b/lisp/disp-table.el Tue May 25 06:21:35 1993 +0000 @@ -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)