diff options
| author | Kenichi Handa | 2003-01-15 05:33:18 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-01-15 05:33:18 +0000 |
| commit | be25dab0a15be6c037c40eda2cda58cabe60dfe2 (patch) | |
| tree | f57a56f08d34f94d492cb96a872a823c99e49aa2 /lisp/term | |
| parent | 377f175fe2a35138e7bd19b5ddc15875286e47b6 (diff) | |
| download | emacs-be25dab0a15be6c037c40eda2cda58cabe60dfe2.tar.gz emacs-be25dab0a15be6c037c40eda2cda58cabe60dfe2.zip | |
Setup the fontset "fontset-mac" correctly.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 25c66103dd9..04989999db9 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -205,10 +205,10 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") | |||
| 205 | (function | 205 | (function |
| 206 | (lambda (key val) | 206 | (lambda (key val) |
| 207 | (or (generic-char-p key) | 207 | (or (generic-char-p key) |
| 208 | (memq (char-charset key) | 208 | (memq (char-charset val) |
| 209 | '(ascii eight-bit-control eight-bit-graphic)) | 209 | '(ascii eight-bit-control eight-bit-graphic)) |
| 210 | (set-fontset-font "fontset-mac" key monaco-font)))) | 210 | (set-fontset-font "fontset-mac" val monaco-font)))) |
| 211 | (get 'mac-roman-encoder 'translation-table))))) | 211 | (get 'mac-roman-decoder 'translation-table))))) |
| 212 | 212 | ||
| 213 | (if (eq system-type 'darwin) | 213 | (if (eq system-type 'darwin) |
| 214 | ;; On Darwin filenames are encoded in UTF-8 | 214 | ;; On Darwin filenames are encoded in UTF-8 |