Mercurial > emacs
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 |