comparison lisp/term/mac-win.el @ 64701:34bd8e434dd7

Update years in copyright notice; nfc.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Mon, 01 Aug 2005 15:47:19 +0000
parents a6a8c13a3caa
children eb3fe804bd18 edf295560b5a
comparison
equal deleted inserted replaced
64700:766998b4d3ee 64701:34bd8e434dd7
1 ;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: iso-2022-7bit;-*- 1 ;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: iso-2022-7bit;-*-
2 2
3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2005 3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
4 ;; Free Software Foundation, Inc. 4 ;; 2005 Free Software Foundation, Inc.
5 5
6 ;; Author: Andrew Choi <akochoi@mac.com> 6 ;; Author: Andrew Choi <akochoi@mac.com>
7 ;; Keywords: terminals 7 ;; Keywords: terminals
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
1499 ;; (define-translation-table 'mac-symbol-decoder translation-table) 1499 ;; (define-translation-table 'mac-symbol-decoder translation-table)
1500 (define-translation-table 'mac-symbol-encoder 1500 (define-translation-table 'mac-symbol-encoder
1501 (char-table-extra-slot translation-table 0))) 1501 (char-table-extra-slot translation-table 0)))
1502 1502
1503 (let 1503 (let
1504 ((encoding-vector 1504 ((encoding-vector
1505 (vconcat 1505 (vconcat
1506 (make-vector 32 nil) 1506 (make-vector 32 nil)
1507 ;; mac-dingbats (32..126) -> emacs-mule mapping 1507 ;; mac-dingbats (32..126) -> emacs-mule mapping
1508 [?\ ?\$,2%A(B ?\$,2%B(B ?\$,2%C(B ?\$,2%D(B ?\$,2"n(B ?\$,2%F(B ?\$,2%G(B ?\$,2%H(B ?\$,2%I(B ?\$,2"{(B ?\$,2"~(B ?\$,2%L(B ?\$,2%M(B ?\$,2%N(B ?\$,2%O(B 1508 [?\ ?\$,2%A(B ?\$,2%B(B ?\$,2%C(B ?\$,2%D(B ?\$,2"n(B ?\$,2%F(B ?\$,2%G(B ?\$,2%H(B ?\$,2%I(B ?\$,2"{(B ?\$,2"~(B ?\$,2%L(B ?\$,2%M(B ?\$,2%N(B ?\$,2%O(B
1509 ?\$,2%P(B ?\$,2%Q(B ?\$,2%R(B ?\$,2%S(B ?\$,2%T(B ?\$,2%U(B ?\$,2%V(B ?\$,2%W(B ?\$,2%X(B ?\$,2%Y(B ?\$,2%Z(B ?\$,2%[(B ?\$,2%\(B ?\$,2%](B ?\$,2%^(B ?\$,2%_(B 1509 ?\$,2%P(B ?\$,2%Q(B ?\$,2%R(B ?\$,2%S(B ?\$,2%T(B ?\$,2%U(B ?\$,2%V(B ?\$,2%W(B ?\$,2%X(B ?\$,2%Y(B ?\$,2%Z(B ?\$,2%[(B ?\$,2%\(B ?\$,2%](B ?\$,2%^(B ?\$,2%_(B