diff options
| author | Jim Blandy | 1993-05-25 06:21:35 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-25 06:21:35 +0000 |
| commit | 2eae72268f91fad5c85f74a40d5a98120e8c6fbc (patch) | |
| tree | 6245cbe1d73be3e5634e8af0e8e02046667d90ff | |
| parent | 8b14d296745fb3203c0d518256ab0dcb423ddd4d (diff) | |
| download | emacs-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.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 @@ | |||
| 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. |
| 126 | This means that characters in the range of 160 to 255 display not | 127 | When enabled, characters in the range of 160 to 255 display not |
| 127 | as octal escapes, but as accented characters." | 128 | as octal escapes, but as accented characters. |
| 129 | With 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 | ||