From 4f8b265894916ad4c2a5bd6422f2bb0ffe08fb76 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 1 Mar 2002 02:29:38 +0000 Subject: [PATCH] Deleted unnecessary calls of set-fontset-font. (ccl-encode-mac-roman-font): Deleted. --- lisp/term/mac-win.el | 31 ++++--------------------------- 1 file changed, 4 insertions(+), 27 deletions(-) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 48c210d51e2..862e6d89820 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -178,38 +178,15 @@ Switch to a buffer editing the last file dropped." (defconst kTextEncodingISOLatin2 514 "0x202") -(define-ccl-program ccl-encode-mac-roman-font - `(0 - (if (r0 != ,(charset-id 'ascii)) - (if (r0 == ,(charset-id 'latin-iso8859-1)) - (translate-character mac-roman-encoder r0 r1) - ((r1 <<= 7) - (r1 |= r2) - (translate-character mac-roman-encoder r0 r1))))) - "CCL program for Mac Roman font") - -(setq font-ccl-encoder-alist - (cons '("mac-roman" . ccl-encode-mac-roman-font) - font-ccl-encoder-alist)) - ;; Create a fontset that uses mac-roman font. With this fontset, ;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1, ;; and mule-unicode-xxxx-yyyy) are displayed by a mac-roman font. (if (fboundp 'new-fontset) - (progn - (create-fontset-from-fontset-spec - "-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac, -ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") - (let ((monaco-font '("monaco" . "mac-roman"))) - (map-char-table - (function - (lambda (key val) - (or (generic-char-p key) - (memq (char-charset key) - '(ascii eight-bit-control eight-bit-graphic)) - (set-fontset-font "fontset-mac" key monaco-font)))) - (get 'mac-roman-encoder 'translation-table))))) + (create-fontset-from-fontset-spec + "-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac, +ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman +mac-roman:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")) ;; To display filenames in Chinese or Japanese, replace mac-roman with ;; big5 or sjis -- 2.11.4.GIT