Mercurial > emacs
comparison lisp/term/mac-win.el @ 49250:6c62487c3c29
Setup the fontset "fontset-mac" correctly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 15 Jan 2003 05:32:56 +0000 |
| parents | aeb8117c2101 |
| children | 1e7527c1a0a0 |
comparison
equal
deleted
inserted
replaced
| 49249:7c4bc41333d1 | 49250:6c62487c3c29 |
|---|---|
| 203 (let ((monaco-font '("monaco" . "mac-roman"))) | 203 (let ((monaco-font '("monaco" . "mac-roman"))) |
| 204 (map-char-table | 204 (map-char-table |
| 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 |
| 215 (setq file-name-coding-system 'utf-8) | 215 (setq file-name-coding-system 'utf-8) |
| 216 ;; To display filenames in Chinese or Japanese, replace mac-roman with | 216 ;; To display filenames in Chinese or Japanese, replace mac-roman with |