mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

Deleted unnecessary calls of set-fontset-font.

Browse source 
(ccl-encode-mac-roman-font): Deleted.
This commit is contained in:
Kenichi Handa 2002-03-01 02:29:38 +00:00
parent f5027deb92
commit 4f8b265894
1 changed files with 4 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/term/mac-win.el
View file

@ -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