Mercurial > emacs
annotate lisp/term/mac-win.el @ 84033:52ef29977fe9
Move to ../doc/lispref
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 06 Sep 2007 04:14:59 +0000 |
parents | 727d03075a75 |
children | ec2f30e07030 bdb3fe0ba9fa |
rev | line source |
---|---|
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1 ;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: iso-2022-7bit;-*- |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
2 |
74509 | 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
75347 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
5 |
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents:
39101
diff
changeset
|
6 ;; Author: Andrew Choi <akochoi@mac.com> |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
7 ;; Keywords: terminals |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
8 |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
10 |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
78226
030ae62d5c57
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
77659
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
14 ;; any later version. |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
15 |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
20 |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64084 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
25 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34467
diff
changeset
|
26 ;;; Commentary: |
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34467
diff
changeset
|
27 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
28 ;; Mac-win.el: this file is loaded from ../lisp/startup.el when it recognizes |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
29 ;; that Mac windows are to be used. Command line switches are parsed and those |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
30 ;; pertaining to Mac are processed and removed from the command line. The |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
31 ;; Mac display is opened and hooks are set for popping up the initial window. |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
32 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
33 ;; startup.el will then examine startup files, and eventually call the hooks |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
34 ;; which create the first window(s). |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
35 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
36 ;;; Code: |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
37 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
38 ;; These are the standard X switches from the Xt Initialize.c file of |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
39 ;; Release 4. |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
40 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
41 ;; Command line Resource Manager string |
38930
9cf07e15b208
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38436
diff
changeset
|
42 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
43 ;; +rv *reverseVideo |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
44 ;; +synchronous *synchronous |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
45 ;; -background *background |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
46 ;; -bd *borderColor |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
47 ;; -bg *background |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
48 ;; -bordercolor *borderColor |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
49 ;; -borderwidth .borderWidth |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
50 ;; -bw .borderWidth |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
51 ;; -display .display |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
52 ;; -fg *foreground |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
53 ;; -fn *font |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
54 ;; -font *font |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
55 ;; -foreground *foreground |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
56 ;; -geometry .geometry |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
57 ;; -iconic .iconic |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
58 ;; -name .name |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
59 ;; -reverse *reverseVideo |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
60 ;; -rv *reverseVideo |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
61 ;; -selectionTimeout .selectionTimeout |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
62 ;; -synchronous *synchronous |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
63 ;; -xrm |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
64 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
65 ;; An alist of X options and the function which handles them. See |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
66 ;; ../startup.el. |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
67 |
83619
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
68 ;; (if (not (eq window-system 'mac)) |
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
69 ;; (error "%s: Loading mac-win.el but not compiled for Mac" (invocation-name))) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
70 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
71 (require 'frame) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
72 (require 'mouse) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
73 (require 'scroll-bar) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
74 (require 'faces) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
75 (require 'select) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
76 (require 'menu-bar) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
77 (require 'fontset) |
61497
c47b59f4f76f
(dnd): Require dnd
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61335
diff
changeset
|
78 (require 'dnd) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
79 |
65256
eb3fe804bd18
(mac-charset-info-alist, mac-services-selection, mac-system-script-code):
Juanma Barranquero <lekktu@gmail.com>
parents:
64701
diff
changeset
|
80 (defvar mac-charset-info-alist) |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
81 (defvar mac-service-selection) |
65256
eb3fe804bd18
(mac-charset-info-alist, mac-services-selection, mac-system-script-code):
Juanma Barranquero <lekktu@gmail.com>
parents:
64701
diff
changeset
|
82 (defvar mac-system-script-code) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
83 (defvar mac-apple-event-map) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
84 (defvar mac-font-panel-mode) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
85 (defvar mac-ts-active-input-overlay) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
86 (defvar x-invocation-args) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
87 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
88 (defvar x-command-line-resources nil) |
56887
25a1d37d22fb
Add ASCII equivalents for some function keys.
Steven Tamm <steventamm@mac.com>
parents:
56373
diff
changeset
|
89 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
90 ;; Handler for switches of the form "-switch value" or "-switch". |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
91 (defun x-handle-switch (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
92 (let ((aelt (assoc switch command-line-x-option-alist))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
93 (if aelt |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
94 (let ((param (nth 3 aelt)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
95 (value (nth 4 aelt))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
96 (if value |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
97 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
98 (cons (cons param value) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
99 default-frame-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
100 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
101 (cons (cons param |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
102 (car x-invocation-args)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
103 default-frame-alist) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
104 x-invocation-args (cdr x-invocation-args))))))) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
105 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
106 ;; Handler for switches of the form "-switch n" |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
107 (defun x-handle-numeric-switch (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
108 (let ((aelt (assoc switch command-line-x-option-alist))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
109 (if aelt |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
110 (let ((param (nth 3 aelt))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
111 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
112 (cons (cons param |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
62291
diff
changeset
|
113 (string-to-number (car x-invocation-args))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
114 default-frame-alist) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
115 x-invocation-args |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
116 (cdr x-invocation-args)))))) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
117 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
118 ;; Handle options that apply to initial frame only |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
119 (defun x-handle-initial-switch (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
120 (let ((aelt (assoc switch command-line-x-option-alist))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
121 (if aelt |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
122 (let ((param (nth 3 aelt)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
123 (value (nth 4 aelt))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
124 (if value |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
125 (setq initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
126 (cons (cons param value) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
127 initial-frame-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
128 (setq initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
129 (cons (cons param |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
130 (car x-invocation-args)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
131 initial-frame-alist) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
132 x-invocation-args (cdr x-invocation-args))))))) |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
133 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
134 ;; Make -iconic apply only to the initial frame! |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
135 (defun x-handle-iconic (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
136 (setq initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
137 (cons '(visibility . icon) initial-frame-alist))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
138 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
139 ;; Handle the -xrm option. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
140 (defun x-handle-xrm-switch (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
141 (unless (consp x-invocation-args) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
142 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
143 (setq x-command-line-resources |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
144 (if (null x-command-line-resources) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
145 (car x-invocation-args) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
146 (concat x-command-line-resources "\n" (car x-invocation-args)))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
147 (setq x-invocation-args (cdr x-invocation-args))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
148 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
149 ;; Handle the geometry option |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
150 (defun x-handle-geometry (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
151 (let* ((geo (x-parse-geometry (car x-invocation-args))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
152 (left (assq 'left geo)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
153 (top (assq 'top geo)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
154 (height (assq 'height geo)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
155 (width (assq 'width geo))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
156 (if (or height width) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
157 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
158 (append default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
159 '((user-size . t)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
160 (if height (list height)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
161 (if width (list width))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
162 initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
163 (append initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
164 '((user-size . t)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
165 (if height (list height)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
166 (if width (list width))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
167 (if (or left top) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
168 (setq initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
169 (append initial-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
170 '((user-position . t)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
171 (if left (list left)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
172 (if top (list top))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
173 (setq x-invocation-args (cdr x-invocation-args)))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
174 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
175 ;; Handle the -name option. Set the variable x-resource-name |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
176 ;; to the option's operand; set the name of |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
177 ;; the initial frame, too. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
178 (defun x-handle-name-switch (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
179 (or (consp x-invocation-args) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
180 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
181 (setq x-resource-name (car x-invocation-args) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
182 x-invocation-args (cdr x-invocation-args)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
183 (setq initial-frame-alist (cons (cons 'name x-resource-name) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
184 initial-frame-alist))) |
58644
14b3f432fd7e
* term/mac-win.el (ccl-encode-mac-roman-font)
Steven Tamm <steventamm@mac.com>
parents:
56887
diff
changeset
|
185 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
186 (defvar x-display-name nil |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
187 "The display name specifying server and frame.") |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
188 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
189 (defun x-handle-display (switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
190 (setq x-display-name (car x-invocation-args) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
191 x-invocation-args (cdr x-invocation-args))) |
58644
14b3f432fd7e
* term/mac-win.el (ccl-encode-mac-roman-font)
Steven Tamm <steventamm@mac.com>
parents:
56887
diff
changeset
|
192 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
193 (defun x-handle-args (args) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
194 "Process the X-related command line options in ARGS. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
195 This is done before the user's startup file is loaded. They are copied to |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
196 `x-invocation-args', from which the X-related things are extracted, first |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
197 the switch (e.g., \"-fg\") in the following code, and possible values |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
198 \(e.g., \"black\") in the option handler code (e.g., x-handle-switch). |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
199 This function returns ARGS minus the arguments that have been processed." |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
200 ;; We use ARGS to accumulate the args that we don't handle here, to return. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
201 (setq x-invocation-args args |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
202 args nil) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
203 (while (and x-invocation-args |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
204 (not (equal (car x-invocation-args) "--"))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
205 (let* ((this-switch (car x-invocation-args)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
206 (orig-this-switch this-switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
207 completion argval aelt handler) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
208 (setq x-invocation-args (cdr x-invocation-args)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
209 ;; Check for long options with attached arguments |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
210 ;; and separate out the attached option argument into argval. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
211 (if (string-match "^--[^=]*=" this-switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
212 (setq argval (substring this-switch (match-end 0)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
213 this-switch (substring this-switch 0 (1- (match-end 0))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
214 ;; Complete names of long options. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
215 (if (string-match "^--" this-switch) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
216 (progn |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
217 (setq completion (try-completion this-switch command-line-x-option-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
218 (if (eq completion t) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
219 ;; Exact match for long option. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
220 nil |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
221 (if (stringp completion) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
222 (let ((elt (assoc completion command-line-x-option-alist))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
223 ;; Check for abbreviated long option. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
224 (or elt |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
225 (error "Option `%s' is ambiguous" this-switch)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
226 (setq this-switch completion)))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
227 (setq aelt (assoc this-switch command-line-x-option-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
228 (if aelt (setq handler (nth 2 aelt))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
229 (if handler |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
230 (if argval |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
231 (let ((x-invocation-args |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
232 (cons argval x-invocation-args))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
233 (funcall handler this-switch)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
234 (funcall handler this-switch)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
235 (setq args (cons orig-this-switch args))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
236 (nconc (nreverse args) x-invocation-args)) |
60620
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
237 |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
238 |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
239 ;; |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
240 ;; Standard Mac cursor shapes |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
241 ;; |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
242 |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
243 (defconst mac-pointer-arrow 0) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
244 (defconst mac-pointer-copy-arrow 1) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
245 (defconst mac-pointer-alias-arrow 2) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
246 (defconst mac-pointer-contextual-menu-arrow 3) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
247 (defconst mac-pointer-I-beam 4) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
248 (defconst mac-pointer-cross 5) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
249 (defconst mac-pointer-plus 6) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
250 (defconst mac-pointer-watch 7) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
251 (defconst mac-pointer-closed-hand 8) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
252 (defconst mac-pointer-open-hand 9) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
253 (defconst mac-pointer-pointing-hand 10) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
254 (defconst mac-pointer-counting-up-hand 11) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
255 (defconst mac-pointer-counting-down-hand 12) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
256 (defconst mac-pointer-counting-up-and-down-hand 13) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
257 (defconst mac-pointer-spinning 14) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
258 (defconst mac-pointer-resize-left 15) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
259 (defconst mac-pointer-resize-right 16) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
260 (defconst mac-pointer-resize-left-right 17) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
261 ;; Mac OS X 10.2 and later |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
262 (defconst mac-pointer-not-allowed 18) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
263 ;; Mac OS X 10.3 and later |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
264 (defconst mac-pointer-resize-up 19) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
265 (defconst mac-pointer-resize-down 20) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
266 (defconst mac-pointer-resize-up-down 21) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
267 (defconst mac-pointer-poof 22) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
268 |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
269 ;; |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
270 ;; Standard X cursor shapes that have Mac counterparts |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
271 ;; |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
272 |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
273 (defconst x-pointer-left-ptr mac-pointer-arrow) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
274 (defconst x-pointer-xterm mac-pointer-I-beam) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
275 (defconst x-pointer-crosshair mac-pointer-cross) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
276 (defconst x-pointer-plus mac-pointer-plus) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
277 (defconst x-pointer-watch mac-pointer-watch) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
278 (defconst x-pointer-hand2 mac-pointer-pointing-hand) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
279 (defconst x-pointer-left-side mac-pointer-resize-left) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
280 (defconst x-pointer-right-side mac-pointer-resize-right) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
281 (defconst x-pointer-sb-h-double-arrow mac-pointer-resize-left-right) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
282 (defconst x-pointer-top-side mac-pointer-resize-up) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
283 (defconst x-pointer-bottom-side mac-pointer-resize-down) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
284 (defconst x-pointer-sb-v-double-arrow mac-pointer-resize-up-down) |
ffb5c0421a14
Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60610
diff
changeset
|
285 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
286 |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
287 ;; |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
288 ;; Available colors |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
289 ;; |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
290 |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
291 (defvar x-colors '("LightGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
292 "light green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
293 "DarkRed" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
294 "dark red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
295 "DarkMagenta" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
296 "dark magenta" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
297 "DarkCyan" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
298 "dark cyan" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
299 "DarkBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
300 "dark blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
301 "DarkGray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
302 "dark gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
303 "DarkGrey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
304 "dark grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
305 "grey100" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
306 "gray100" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
307 "grey99" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
308 "gray99" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
309 "grey98" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
310 "gray98" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
311 "grey97" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
312 "gray97" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
313 "grey96" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
314 "gray96" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
315 "grey95" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
316 "gray95" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
317 "grey94" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
318 "gray94" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
319 "grey93" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
320 "gray93" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
321 "grey92" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
322 "gray92" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
323 "grey91" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
324 "gray91" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
325 "grey90" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
326 "gray90" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
327 "grey89" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
328 "gray89" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
329 "grey88" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
330 "gray88" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
331 "grey87" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
332 "gray87" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
333 "grey86" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
334 "gray86" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
335 "grey85" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
336 "gray85" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
337 "grey84" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
338 "gray84" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
339 "grey83" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
340 "gray83" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
341 "grey82" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
342 "gray82" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
343 "grey81" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
344 "gray81" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
345 "grey80" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
346 "gray80" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
347 "grey79" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
348 "gray79" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
349 "grey78" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
350 "gray78" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
351 "grey77" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
352 "gray77" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
353 "grey76" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
354 "gray76" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
355 "grey75" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
356 "gray75" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
357 "grey74" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
358 "gray74" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
359 "grey73" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
360 "gray73" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
361 "grey72" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
362 "gray72" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
363 "grey71" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
364 "gray71" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
365 "grey70" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
366 "gray70" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
367 "grey69" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
368 "gray69" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
369 "grey68" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
370 "gray68" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
371 "grey67" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
372 "gray67" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
373 "grey66" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
374 "gray66" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
375 "grey65" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
376 "gray65" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
377 "grey64" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
378 "gray64" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
379 "grey63" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
380 "gray63" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
381 "grey62" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
382 "gray62" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
383 "grey61" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
384 "gray61" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
385 "grey60" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
386 "gray60" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
387 "grey59" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
388 "gray59" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
389 "grey58" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
390 "gray58" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
391 "grey57" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
392 "gray57" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
393 "grey56" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
394 "gray56" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
395 "grey55" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
396 "gray55" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
397 "grey54" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
398 "gray54" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
399 "grey53" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
400 "gray53" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
401 "grey52" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
402 "gray52" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
403 "grey51" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
404 "gray51" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
405 "grey50" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
406 "gray50" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
407 "grey49" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
408 "gray49" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
409 "grey48" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
410 "gray48" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
411 "grey47" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
412 "gray47" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
413 "grey46" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
414 "gray46" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
415 "grey45" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
416 "gray45" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
417 "grey44" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
418 "gray44" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
419 "grey43" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
420 "gray43" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
421 "grey42" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
422 "gray42" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
423 "grey41" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
424 "gray41" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
425 "grey40" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
426 "gray40" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
427 "grey39" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
428 "gray39" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
429 "grey38" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
430 "gray38" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
431 "grey37" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
432 "gray37" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
433 "grey36" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
434 "gray36" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
435 "grey35" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
436 "gray35" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
437 "grey34" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
438 "gray34" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
439 "grey33" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
440 "gray33" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
441 "grey32" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
442 "gray32" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
443 "grey31" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
444 "gray31" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
445 "grey30" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
446 "gray30" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
447 "grey29" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
448 "gray29" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
449 "grey28" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
450 "gray28" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
451 "grey27" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
452 "gray27" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
453 "grey26" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
454 "gray26" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
455 "grey25" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
456 "gray25" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
457 "grey24" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
458 "gray24" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
459 "grey23" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
460 "gray23" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
461 "grey22" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
462 "gray22" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
463 "grey21" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
464 "gray21" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
465 "grey20" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
466 "gray20" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
467 "grey19" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
468 "gray19" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
469 "grey18" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
470 "gray18" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
471 "grey17" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
472 "gray17" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
473 "grey16" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
474 "gray16" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
475 "grey15" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
476 "gray15" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
477 "grey14" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
478 "gray14" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
479 "grey13" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
480 "gray13" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
481 "grey12" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
482 "gray12" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
483 "grey11" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
484 "gray11" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
485 "grey10" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
486 "gray10" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
487 "grey9" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
488 "gray9" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
489 "grey8" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
490 "gray8" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
491 "grey7" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
492 "gray7" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
493 "grey6" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
494 "gray6" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
495 "grey5" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
496 "gray5" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
497 "grey4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
498 "gray4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
499 "grey3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
500 "gray3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
501 "grey2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
502 "gray2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
503 "grey1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
504 "gray1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
505 "grey0" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
506 "gray0" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
507 "thistle4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
508 "thistle3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
509 "thistle2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
510 "thistle1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
511 "MediumPurple4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
512 "MediumPurple3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
513 "MediumPurple2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
514 "MediumPurple1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
515 "purple4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
516 "purple3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
517 "purple2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
518 "purple1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
519 "DarkOrchid4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
520 "DarkOrchid3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
521 "DarkOrchid2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
522 "DarkOrchid1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
523 "MediumOrchid4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
524 "MediumOrchid3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
525 "MediumOrchid2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
526 "MediumOrchid1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
527 "plum4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
528 "plum3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
529 "plum2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
530 "plum1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
531 "orchid4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
532 "orchid3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
533 "orchid2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
534 "orchid1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
535 "magenta4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
536 "magenta3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
537 "magenta2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
538 "magenta1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
539 "VioletRed4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
540 "VioletRed3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
541 "VioletRed2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
542 "VioletRed1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
543 "maroon4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
544 "maroon3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
545 "maroon2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
546 "maroon1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
547 "PaleVioletRed4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
548 "PaleVioletRed3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
549 "PaleVioletRed2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
550 "PaleVioletRed1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
551 "LightPink4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
552 "LightPink3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
553 "LightPink2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
554 "LightPink1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
555 "pink4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
556 "pink3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
557 "pink2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
558 "pink1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
559 "HotPink4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
560 "HotPink3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
561 "HotPink2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
562 "HotPink1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
563 "DeepPink4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
564 "DeepPink3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
565 "DeepPink2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
566 "DeepPink1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
567 "red4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
568 "red3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
569 "red2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
570 "red1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
571 "OrangeRed4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
572 "OrangeRed3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
573 "OrangeRed2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
574 "OrangeRed1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
575 "tomato4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
576 "tomato3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
577 "tomato2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
578 "tomato1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
579 "coral4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
580 "coral3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
581 "coral2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
582 "coral1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
583 "DarkOrange4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
584 "DarkOrange3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
585 "DarkOrange2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
586 "DarkOrange1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
587 "orange4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
588 "orange3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
589 "orange2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
590 "orange1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
591 "LightSalmon4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
592 "LightSalmon3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
593 "LightSalmon2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
594 "LightSalmon1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
595 "salmon4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
596 "salmon3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
597 "salmon2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
598 "salmon1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
599 "brown4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
600 "brown3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
601 "brown2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
602 "brown1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
603 "firebrick4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
604 "firebrick3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
605 "firebrick2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
606 "firebrick1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
607 "chocolate4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
608 "chocolate3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
609 "chocolate2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
610 "chocolate1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
611 "tan4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
612 "tan3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
613 "tan2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
614 "tan1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
615 "wheat4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
616 "wheat3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
617 "wheat2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
618 "wheat1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
619 "burlywood4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
620 "burlywood3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
621 "burlywood2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
622 "burlywood1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
623 "sienna4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
624 "sienna3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
625 "sienna2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
626 "sienna1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
627 "IndianRed4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
628 "IndianRed3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
629 "IndianRed2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
630 "IndianRed1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
631 "RosyBrown4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
632 "RosyBrown3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
633 "RosyBrown2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
634 "RosyBrown1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
635 "DarkGoldenrod4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
636 "DarkGoldenrod3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
637 "DarkGoldenrod2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
638 "DarkGoldenrod1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
639 "goldenrod4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
640 "goldenrod3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
641 "goldenrod2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
642 "goldenrod1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
643 "gold4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
644 "gold3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
645 "gold2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
646 "gold1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
647 "yellow4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
648 "yellow3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
649 "yellow2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
650 "yellow1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
651 "LightYellow4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
652 "LightYellow3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
653 "LightYellow2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
654 "LightYellow1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
655 "LightGoldenrod4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
656 "LightGoldenrod3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
657 "LightGoldenrod2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
658 "LightGoldenrod1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
659 "khaki4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
660 "khaki3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
661 "khaki2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
662 "khaki1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
663 "DarkOliveGreen4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
664 "DarkOliveGreen3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
665 "DarkOliveGreen2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
666 "DarkOliveGreen1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
667 "OliveDrab4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
668 "OliveDrab3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
669 "OliveDrab2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
670 "OliveDrab1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
671 "chartreuse4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
672 "chartreuse3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
673 "chartreuse2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
674 "chartreuse1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
675 "green4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
676 "green3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
677 "green2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
678 "green1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
679 "SpringGreen4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
680 "SpringGreen3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
681 "SpringGreen2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
682 "SpringGreen1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
683 "PaleGreen4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
684 "PaleGreen3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
685 "PaleGreen2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
686 "PaleGreen1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
687 "SeaGreen4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
688 "SeaGreen3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
689 "SeaGreen2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
690 "SeaGreen1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
691 "DarkSeaGreen4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
692 "DarkSeaGreen3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
693 "DarkSeaGreen2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
694 "DarkSeaGreen1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
695 "aquamarine4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
696 "aquamarine3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
697 "aquamarine2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
698 "aquamarine1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
699 "DarkSlateGray4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
700 "DarkSlateGray3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
701 "DarkSlateGray2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
702 "DarkSlateGray1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
703 "cyan4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
704 "cyan3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
705 "cyan2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
706 "cyan1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
707 "turquoise4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
708 "turquoise3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
709 "turquoise2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
710 "turquoise1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
711 "CadetBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
712 "CadetBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
713 "CadetBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
714 "CadetBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
715 "PaleTurquoise4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
716 "PaleTurquoise3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
717 "PaleTurquoise2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
718 "PaleTurquoise1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
719 "LightCyan4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
720 "LightCyan3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
721 "LightCyan2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
722 "LightCyan1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
723 "LightBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
724 "LightBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
725 "LightBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
726 "LightBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
727 "LightSteelBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
728 "LightSteelBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
729 "LightSteelBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
730 "LightSteelBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
731 "SlateGray4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
732 "SlateGray3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
733 "SlateGray2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
734 "SlateGray1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
735 "LightSkyBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
736 "LightSkyBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
737 "LightSkyBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
738 "LightSkyBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
739 "SkyBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
740 "SkyBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
741 "SkyBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
742 "SkyBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
743 "DeepSkyBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
744 "DeepSkyBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
745 "DeepSkyBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
746 "DeepSkyBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
747 "SteelBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
748 "SteelBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
749 "SteelBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
750 "SteelBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
751 "DodgerBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
752 "DodgerBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
753 "DodgerBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
754 "DodgerBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
755 "blue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
756 "blue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
757 "blue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
758 "blue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
759 "RoyalBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
760 "RoyalBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
761 "RoyalBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
762 "RoyalBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
763 "SlateBlue4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
764 "SlateBlue3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
765 "SlateBlue2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
766 "SlateBlue1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
767 "azure4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
768 "azure3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
769 "azure2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
770 "azure1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
771 "MistyRose4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
772 "MistyRose3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
773 "MistyRose2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
774 "MistyRose1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
775 "LavenderBlush4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
776 "LavenderBlush3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
777 "LavenderBlush2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
778 "LavenderBlush1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
779 "honeydew4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
780 "honeydew3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
781 "honeydew2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
782 "honeydew1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
783 "ivory4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
784 "ivory3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
785 "ivory2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
786 "ivory1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
787 "cornsilk4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
788 "cornsilk3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
789 "cornsilk2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
790 "cornsilk1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
791 "LemonChiffon4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
792 "LemonChiffon3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
793 "LemonChiffon2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
794 "LemonChiffon1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
795 "NavajoWhite4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
796 "NavajoWhite3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
797 "NavajoWhite2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
798 "NavajoWhite1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
799 "PeachPuff4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
800 "PeachPuff3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
801 "PeachPuff2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
802 "PeachPuff1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
803 "bisque4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
804 "bisque3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
805 "bisque2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
806 "bisque1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
807 "AntiqueWhite4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
808 "AntiqueWhite3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
809 "AntiqueWhite2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
810 "AntiqueWhite1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
811 "seashell4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
812 "seashell3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
813 "seashell2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
814 "seashell1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
815 "snow4" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
816 "snow3" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
817 "snow2" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
818 "snow1" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
819 "thistle" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
820 "MediumPurple" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
821 "medium purple" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
822 "purple" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
823 "BlueViolet" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
824 "blue violet" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
825 "DarkViolet" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
826 "dark violet" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
827 "DarkOrchid" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
828 "dark orchid" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
829 "MediumOrchid" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
830 "medium orchid" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
831 "orchid" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
832 "plum" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
833 "violet" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
834 "magenta" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
835 "VioletRed" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
836 "violet red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
837 "MediumVioletRed" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
838 "medium violet red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
839 "maroon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
840 "PaleVioletRed" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
841 "pale violet red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
842 "LightPink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
843 "light pink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
844 "pink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
845 "DeepPink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
846 "deep pink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
847 "HotPink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
848 "hot pink" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
849 "red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
850 "OrangeRed" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
851 "orange red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
852 "tomato" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
853 "LightCoral" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
854 "light coral" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
855 "coral" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
856 "DarkOrange" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
857 "dark orange" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
858 "orange" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
859 "LightSalmon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
860 "light salmon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
861 "salmon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
862 "DarkSalmon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
863 "dark salmon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
864 "brown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
865 "firebrick" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
866 "chocolate" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
867 "tan" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
868 "SandyBrown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
869 "sandy brown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
870 "wheat" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
871 "beige" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
872 "burlywood" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
873 "peru" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
874 "sienna" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
875 "SaddleBrown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
876 "saddle brown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
877 "IndianRed" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
878 "indian red" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
879 "RosyBrown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
880 "rosy brown" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
881 "DarkGoldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
882 "dark goldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
883 "goldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
884 "LightGoldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
885 "light goldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
886 "gold" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
887 "yellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
888 "LightYellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
889 "light yellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
890 "LightGoldenrodYellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
891 "light goldenrod yellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
892 "PaleGoldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
893 "pale goldenrod" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
894 "khaki" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
895 "DarkKhaki" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
896 "dark khaki" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
897 "OliveDrab" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
898 "olive drab" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
899 "ForestGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
900 "forest green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
901 "YellowGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
902 "yellow green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
903 "LimeGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
904 "lime green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
905 "GreenYellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
906 "green yellow" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
907 "MediumSpringGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
908 "medium spring green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
909 "chartreuse" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
910 "green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
911 "LawnGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
912 "lawn green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
913 "SpringGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
914 "spring green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
915 "PaleGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
916 "pale green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
917 "LightSeaGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
918 "light sea green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
919 "MediumSeaGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
920 "medium sea green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
921 "SeaGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
922 "sea green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
923 "DarkSeaGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
924 "dark sea green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
925 "DarkOliveGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
926 "dark olive green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
927 "DarkGreen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
928 "dark green" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
929 "aquamarine" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
930 "MediumAquamarine" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
931 "medium aquamarine" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
932 "CadetBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
933 "cadet blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
934 "LightCyan" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
935 "light cyan" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
936 "cyan" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
937 "turquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
938 "MediumTurquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
939 "medium turquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
940 "DarkTurquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
941 "dark turquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
942 "PaleTurquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
943 "pale turquoise" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
944 "PowderBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
945 "powder blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
946 "LightBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
947 "light blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
948 "LightSteelBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
949 "light steel blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
950 "SteelBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
951 "steel blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
952 "LightSkyBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
953 "light sky blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
954 "SkyBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
955 "sky blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
956 "DeepSkyBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
957 "deep sky blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
958 "DodgerBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
959 "dodger blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
960 "blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
961 "RoyalBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
962 "royal blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
963 "MediumBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
964 "medium blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
965 "LightSlateBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
966 "light slate blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
967 "MediumSlateBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
968 "medium slate blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
969 "SlateBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
970 "slate blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
971 "DarkSlateBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
972 "dark slate blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
973 "CornflowerBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
974 "cornflower blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
975 "NavyBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
976 "navy blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
977 "navy" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
978 "MidnightBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
979 "midnight blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
980 "LightGray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
981 "light gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
982 "LightGrey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
983 "light grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
984 "grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
985 "gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
986 "LightSlateGrey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
987 "light slate grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
988 "LightSlateGray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
989 "light slate gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
990 "SlateGrey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
991 "slate grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
992 "SlateGray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
993 "slate gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
994 "DimGrey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
995 "dim grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
996 "DimGray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
997 "dim gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
998 "DarkSlateGrey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
999 "dark slate grey" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1000 "DarkSlateGray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1001 "dark slate gray" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1002 "black" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1003 "white" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1004 "MistyRose" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1005 "misty rose" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1006 "LavenderBlush" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1007 "lavender blush" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1008 "lavender" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1009 "AliceBlue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1010 "alice blue" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1011 "azure" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1012 "MintCream" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1013 "mint cream" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1014 "honeydew" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1015 "seashell" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1016 "LemonChiffon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1017 "lemon chiffon" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1018 "ivory" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1019 "cornsilk" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1020 "moccasin" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1021 "NavajoWhite" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1022 "navajo white" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1023 "PeachPuff" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1024 "peach puff" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1025 "bisque" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1026 "BlanchedAlmond" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1027 "blanched almond" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1028 "PapayaWhip" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1029 "papaya whip" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1030 "AntiqueWhite" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1031 "antique white" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1032 "linen" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1033 "OldLace" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1034 "old lace" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1035 "FloralWhite" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1036 "floral white" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1037 "gainsboro" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1038 "WhiteSmoke" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1039 "white smoke" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1040 "GhostWhite" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1041 "ghost white" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1042 "snow") |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1043 "The list of X colors from the `rgb.txt' file. |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1044 XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
1045 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1046 (defun xw-defined-colors (&optional frame) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1047 "Internal function called by `defined-colors', which see." |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1048 (or frame (setq frame (selected-frame))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1049 (let ((all-colors x-colors) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1050 (this-color nil) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1051 (defined-colors nil)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1052 (while all-colors |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1053 (setq this-color (car all-colors) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1054 all-colors (cdr all-colors)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1055 (and (color-supported-p this-color frame t) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1056 (setq defined-colors (cons this-color defined-colors)))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1057 defined-colors)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1058 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1059 ;;;; Function keys |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1060 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1061 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1062 global-map) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1063 |
83620
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
1064 (defun x-setup-function-keys (frame) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
1065 "Setup Function Keys for mac." |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1066 ;; Map certain keypad keys into ASCII characters |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1067 ;; that people usually expect. |
83394
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1068 (define-key local-function-key-map [backspace] [?\d]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1069 (define-key local-function-key-map [delete] [?\d]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1070 (define-key local-function-key-map [tab] [?\t]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1071 (define-key local-function-key-map [linefeed] [?\n]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1072 (define-key local-function-key-map [clear] [?\C-l]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1073 (define-key local-function-key-map [return] [?\C-m]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1074 (define-key local-function-key-map [escape] [?\e]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1075 (define-key local-function-key-map [M-backspace] [?\M-\d]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1076 (define-key local-function-key-map [M-delete] [?\M-\d]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1077 (define-key local-function-key-map [M-tab] [?\M-\t]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1078 (define-key local-function-key-map [M-linefeed] [?\M-\n]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1079 (define-key local-function-key-map [M-clear] [?\M-\C-l]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1080 (define-key local-function-key-map [M-return] [?\M-\C-m]) |
7d093d9d4479
Fix semantics of terminal-local variables. Remove `terminal-local-value' hack.
Karoly Lorentey <lorentey@elte.hu>
parents:
83386
diff
changeset
|
1081 (define-key local-function-key-map [M-escape] [?\M-\e]) |
83620
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
1082 ) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1083 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1084 ;; These tell read-char how to convert |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1085 ;; these special chars to ASCII. |
60610
2e557b2af3db
(function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60190
diff
changeset
|
1086 (put 'backspace 'ascii-character ?\d) |
2e557b2af3db
(function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60190
diff
changeset
|
1087 (put 'delete 'ascii-character ?\d) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1088 (put 'tab 'ascii-character ?\t) |
60610
2e557b2af3db
(function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60190
diff
changeset
|
1089 (put 'linefeed 'ascii-character ?\n) |
2e557b2af3db
(function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60190
diff
changeset
|
1090 (put 'clear 'ascii-character ?\C-l) |
2e557b2af3db
(function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60190
diff
changeset
|
1091 (put 'return 'ascii-character ?\C-m) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1092 (put 'escape 'ascii-character ?\e) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1093 |
67099
6c0071d00d11
Make modifier `ctrl' an alias of `control'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67090
diff
changeset
|
1094 ;; Modifier name `ctrl' is an alias of `control'. |
6c0071d00d11
Make modifier `ctrl' an alias of `control'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67090
diff
changeset
|
1095 (put 'ctrl 'modifier-value (get 'control 'modifier-value)) |
6c0071d00d11
Make modifier `ctrl' an alias of `control'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67090
diff
changeset
|
1096 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1097 |
61556
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
1098 ;;;; Script codes and coding systems |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1099 (defconst mac-script-code-coding-systems |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1100 '((0 . mac-roman) ; smRoman |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1101 (1 . japanese-shift-jis) ; smJapanese |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1102 (2 . chinese-big5) ; smTradChinese |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1103 (3 . korean-iso-8bit) ; smKorean |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1104 (7 . mac-cyrillic) ; smCyrillic |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1105 (25 . chinese-iso-8bit) ; smSimpChinese |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1106 (29 . mac-centraleurroman) ; smCentralEuroRoman |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1107 ) |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1108 "Alist of Mac script codes vs Emacs coding systems.") |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1109 |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1110 (defun mac-add-charset-info (xlfd-charset mac-text-encoding) |
65576
72c8b77fb4f9
(mac-add-charset-info): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65256
diff
changeset
|
1111 "Add a character set to display with Mac fonts. |
72c8b77fb4f9
(mac-add-charset-info): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65256
diff
changeset
|
1112 Create an entry in `mac-charset-info-alist'. |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1113 XLFD-CHARSET is a string which will appear in the XLFD font name |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1114 to identify the character set. MAC-TEXT-ENCODING is the |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1115 correspoinding TextEncodingBase value." |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1116 (add-to-list 'mac-charset-info-alist |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1117 (list xlfd-charset mac-text-encoding |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1118 (cdr (assq mac-text-encoding |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1119 mac-script-code-coding-systems))))) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1120 |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1121 (setq mac-charset-info-alist nil) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1122 (mac-add-charset-info "mac-roman" 0) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1123 (mac-add-charset-info "jisx0208.1983-sjis" 1) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1124 (mac-add-charset-info "jisx0201.1976-0" 1) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1125 (mac-add-charset-info "big5-0" 2) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1126 (mac-add-charset-info "ksc5601.1989-0" 3) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1127 (mac-add-charset-info "mac-cyrillic" 7) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1128 (mac-add-charset-info "gb2312.1980-0" 25) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1129 (mac-add-charset-info "mac-centraleurroman" 29) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1130 (mac-add-charset-info "mac-symbol" 33) |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1131 (mac-add-charset-info "adobe-fontspecific" 33) ; for X-Symbol |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1132 (mac-add-charset-info "mac-dingbats" 34) |
65768
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
1133 (mac-add-charset-info "iso10646-1" 126) ; for ATSUI |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
1134 |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1135 (cp-make-coding-system |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1136 mac-centraleurroman |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1137 [?\,AD(B ?\$,1 (B ?\$,1 !(B ?\,AI(B ?\$,1 $(B ?\,AV(B ?\,A\(B ?\,Aa(B ?\$,1 %(B ?\$,1 ,(B ?\,Ad(B ?\$,1 -(B ?\$,1 &(B ?\$,1 '(B ?\,Ai(B ?\$,1!9(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1138 ?\$,1!:(B ?\$,1 .(B ?\,Am(B ?\$,1 /(B ?\$,1 2(B ?\$,1 3(B ?\$,1 6(B ?\,As(B ?\$,1 7(B ?\,At(B ?\,Av(B ?\,Au(B ?\,Az(B ?\$,1 :(B ?\$,1 ;(B ?\,A|(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1139 ?\$,1s (B ?\,A0(B ?\$,1 8(B ?\,A#(B ?\,A'(B ?\$,1s"(B ?\,A6(B ?\,A_(B ?\,A.(B ?\,A)(B ?\$,1ub(B ?\$,1 9(B ?\,A((B ?\$,1y (B ?\$,1 C(B ?\$,1 N(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1140 ?\$,1 O(B ?\$,1 J(B ?\$,1y$(B ?\$,1y%(B ?\$,1 K(B ?\$,1 V(B ?\$,1x"(B ?\$,1x1(B ?\$,1 b(B ?\$,1 [(B ?\$,1 \(B ?\$,1 ](B ?\$,1 ^(B ?\$,1 Y(B ?\$,1 Z(B ?\$,1 e(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1141 ?\$,1 f(B ?\$,1 c(B ?\,A,(B ?\$,1x:(B ?\$,1 d(B ?\$,1 g(B ?\$,1x&(B ?\,A+(B ?\,A;(B ?\$,1s&(B ?\,A (B ?\$,1 h(B ?\$,1 p(B ?\,AU(B ?\$,1 q(B ?\$,1 l(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1142 ?\$,1rs(B ?\$,1rt(B ?\$,1r|(B ?\$,1r}(B ?\$,1rx(B ?\$,1ry(B ?\,Aw(B ?\$,2"*(B ?\$,1 m(B ?\$,1 t(B ?\$,1 u(B ?\$,1 x(B ?\$,1s9(B ?\$,1s:(B ?\$,1 y(B ?\$,1 v(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1143 ?\$,1 w(B ?\$,1! (B ?\$,1rz(B ?\$,1r~(B ?\$,1!!(B ?\$,1 z(B ?\$,1 {(B ?\,AA(B ?\$,1!$(B ?\$,1!%(B ?\,AM(B ?\$,1!=(B ?\$,1!>(B ?\$,1!*(B ?\,AS(B ?\,AT(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1144 ?\$,1!+(B ?\$,1!.(B ?\,AZ(B ?\$,1!/(B ?\$,1!0(B ?\$,1!1(B ?\$,1!2(B ?\$,1!3(B ?\,A](B ?\,A}(B ?\$,1 W(B ?\$,1!;(B ?\$,1 a(B ?\$,1!<(B ?\$,1 B(B ?\$,1$g(B] |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1145 "Mac Central European Roman Encoding (MIME:x-mac-centraleurroman).") |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1146 (coding-system-put 'mac-centraleurroman 'mime-charset 'x-mac-centraleurroman) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1147 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1148 (cp-make-coding-system |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1149 mac-cyrillic |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1150 [?\$,1(0(B ?\$,1(1(B ?\$,1(2(B ?\$,1(3(B ?\$,1(4(B ?\$,1(5(B ?\$,1(6(B ?\$,1(7(B ?\$,1(8(B ?\$,1(9(B ?\$,1(:(B ?\$,1(;(B ?\$,1(<(B ?\$,1(=(B ?\$,1(>(B ?\$,1(?(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1151 ?\$,1(@(B ?\$,1(A(B ?\$,1(B(B ?\$,1(C(B ?\$,1(D(B ?\$,1(E(B ?\$,1(F(B ?\$,1(G(B ?\$,1(H(B ?\$,1(I(B ?\$,1(J(B ?\$,1(K(B ?\$,1(L(B ?\$,1(M(B ?\$,1(N(B ?\$,1(O(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1152 ?\$,1s (B ?\,A0(B ?\$,1)P(B ?\,A#(B ?\,A'(B ?\$,1s"(B ?\,A6(B ?\$,1(&(B ?\,A.(B ?\,A)(B ?\$,1ub(B ?\$,1("(B ?\$,1(r(B ?\$,1y (B ?\$,1(#(B ?\$,1(s(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1153 ?\$,1x>(B ?\,A1(B ?\$,1y$(B ?\$,1y%(B ?\$,1(v(B ?\,A5(B ?\$,1)Q(B ?\$,1(((B ?\$,1($(B ?\$,1(t(B ?\$,1('(B ?\$,1(w(B ?\$,1()(B ?\$,1(y(B ?\$,1(*(B ?\$,1(z(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1154 ?\$,1(x(B ?\$,1(%(B ?\,A,(B ?\$,1x:(B ?\$,1!R(B ?\$,1xh(B ?\$,1x&(B ?\,A+(B ?\,A;(B ?\$,1s&(B ?\,A (B ?\$,1(+(B ?\$,1({(B ?\$,1(,(B ?\$,1(|(B ?\$,1(u(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1155 ?\$,1rs(B ?\$,1rt(B ?\$,1r|(B ?\$,1r}(B ?\$,1rx(B ?\$,1ry(B ?\,Aw(B ?\$,1r~(B ?\$,1(.(B ?\$,1(~(B ?\$,1(/(B ?\$,1((B ?\$,1uV(B ?\$,1(!(B ?\$,1(q(B ?\$,1(o(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1156 ?\$,1(P(B ?\$,1(Q(B ?\$,1(R(B ?\$,1(S(B ?\$,1(T(B ?\$,1(U(B ?\$,1(V(B ?\$,1(W(B ?\$,1(X(B ?\$,1(Y(B ?\$,1(Z(B ?\$,1([(B ?\$,1(\(B ?\$,1(](B ?\$,1(^(B ?\$,1(_(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1157 ?\$,1(`(B ?\$,1(a(B ?\$,1(b(B ?\$,1(c(B ?\$,1(d(B ?\$,1(e(B ?\$,1(f(B ?\$,1(g(B ?\$,1(h(B ?\$,1(i(B ?\$,1(j(B ?\$,1(k(B ?\$,1(l(B ?\$,1(m(B ?\$,1(n(B ?\$,1tL(B] |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1158 "Mac Cyrillic Encoding (MIME:x-mac-cyrillic).") |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1159 (coding-system-put 'mac-cyrillic 'mime-charset 'x-mac-cyrillic) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1160 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1161 (let |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1162 ((encoding-vector |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1163 (vconcat |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1164 (make-vector 32 nil) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1165 ;; mac-symbol (32..126) -> emacs-mule mapping |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1166 [?\ ?\! ?\$,1x (B ?\# ?\$,1x#(B ?\% ?\& ?\$,1x-(B ?\( ?\) ?\$,1x7(B ?\+ ?\, ?\$,1x2(B ?\. ?\/ |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1167 ?\0 ?\1 ?\2 ?\3 ?\4 ?\5 ?\6 ?\7 ?\8 ?\9 ?\: ?\; ?\< ?\= ?\> ?\? |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1168 ?\$,1xe(B ?\$,1&q(B ?\$,1&r(B ?\$,1''(B ?\$,1&t(B ?\$,1&u(B ?\$,1'&(B ?\$,1&s(B ?\$,1&w(B ?\$,1&y(B ?\$,1'Q(B ?\$,1&z(B ?\$,1&{(B ?\$,1&|(B ?\$,1&}(B ?\$,1&(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1169 ?\$,1' (B ?\$,1&x(B ?\$,1'!(B ?\$,1'#(B ?\$,1'$(B ?\$,1'%(B ?\$,1'B(B ?\$,1')(B ?\$,1&~(B ?\$,1'((B ?\$,1&v(B ?\[ ?\$,1xT(B ?\] ?\$,1ye(B ?\_ |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1170 ?\$,3bE(B ?\$,1'1(B ?\$,1'2(B ?\$,1'G(B ?\$,1'4(B ?\$,1'5(B ?\$,1'F(B ?\$,1'3(B ?\$,1'7(B ?\$,1'9(B ?\$,1'U(B ?\$,1':(B ?\$,1';(B ?\$,1'<(B ?\$,1'=(B ?\$,1'?(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1171 ?\$,1'@(B ?\$,1'8(B ?\$,1'A(B ?\$,1'C(B ?\$,1'D(B ?\$,1'E(B ?\$,1'V(B ?\$,1'I(B ?\$,1'>(B ?\$,1'H(B ?\$,1'6(B ?\{ ?\| ?\} ?\$,1x\(B] |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1172 (make-vector (- 160 127) nil) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1173 ;; mac-symbol (160..254) -> emacs-mule mapping |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1174 ;; Mapping of the following characters are changed from the |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1175 ;; original one: |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1176 ;; 0xE2 0x00AE+0xF87F -> 0x00AE # REGISTERED SIGN, alternate: sans serif |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1177 ;; 0xE3 0x00A9+0xF87F -> 0x00A9 # COPYRIGHT SIGN, alternate: sans serif |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1178 ;; 0xE4 0x2122+0xF87F -> 0x2122 # TRADE MARK SIGN, alternate: sans serif |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1179 [?\$,1tL(B ?\$,1'R(B ?\$,1s2(B ?\$,1y$(B ?\$,1sD(B ?\$,1x>(B ?\$,1!R(B ?\$,2#c(B ?\$,2#f(B ?\$,2#e(B ?\$,2#`(B ?\$,1vt(B ?\$,1vp(B ?\$,1vq(B ?\$,1vr(B ?\$,1vs(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1180 ?\,A0(B ?\,A1(B ?\$,1s3(B ?\$,1y%(B ?\,AW(B ?\$,1x=(B ?\$,1x"(B ?\$,1s"(B ?\,Aw(B ?\$,1y (B ?\$,1y!(B ?\$,1xh(B ?\$,1s&(B ?\$,1|p(B ?\$,1|O(B ?\$,1w5(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1181 ?\$,1uu(B ?\$,1uQ(B ?\$,1u\(B ?\$,1uX(B ?\$,1yW(B ?\$,1yU(B ?\$,1x%(B ?\$,1xI(B ?\$,1xJ(B ?\$,1yC(B ?\$,1yG(B ?\$,1yD(B ?\$,1yB(B ?\$,1yF(B ?\$,1x((B ?\$,1x)(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1182 ?\$,1x@(B ?\$,1x'(B ?\,A.(B ?\,A)(B ?\$,1ub(B ?\$,1x/(B ?\$,1x:(B ?\$,1z%(B ?\,A,(B ?\$,1xG(B ?\$,1xH(B ?\$,1wT(B ?\$,1wP(B ?\$,1wQ(B ?\$,1wR(B ?\$,1wS(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1183 ?\$,2"*(B ?\$,2=H(B ?\,A.(B ?\,A)(B ?\$,1ub(B ?\$,1x1(B ?\$,1|;(B ?\$,1|<(B ?\$,1|=(B ?\$,1|A(B ?\$,1|B(B ?\$,1|C(B ?\$,1|G(B ?\$,1|H(B ?\$,1|I(B ?\$,1|J(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1184 ?\$,3b_(B ?\$,2=I(B ?\$,1xK(B ?\$,1{ (B ?\$,1|N(B ?\$,1{!(B ?\$,1|>(B ?\$,1|?(B ?\$,1|@(B ?\$,1|D(B ?\$,1|E(B ?\$,1|F(B ?\$,1|K(B ?\$,1|L(B ?\$,1|M(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1185 nil])) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1186 translation-table) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1187 (setq translation-table |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1188 (make-translation-table-from-vector encoding-vector)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1189 ;; (define-translation-table 'mac-symbol-decoder translation-table) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1190 (define-translation-table 'mac-symbol-encoder |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1191 (char-table-extra-slot translation-table 0))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1192 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1193 (let |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1194 ((encoding-vector |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1195 (vconcat |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1196 (make-vector 32 nil) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1197 ;; mac-dingbats (32..126) -> emacs-mule mapping |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1198 [?\ ?\$,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 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1199 ?\$,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 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1200 ?\$,2%`(B ?\$,2%a(B ?\$,2%b(B ?\$,2%c(B ?\$,2%d(B ?\$,2%e(B ?\$,2%f(B ?\$,2%g(B ?\$,2"e(B ?\$,2%i(B ?\$,2%j(B ?\$,2%k(B ?\$,2%l(B ?\$,2%m(B ?\$,2%n(B ?\$,2%o(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1201 ?\$,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 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1202 ?\$,2& (B ?\$,2&!(B ?\$,2&"(B ?\$,2&#(B ?\$,2&$(B ?\$,2&%(B ?\$,2&&(B ?\$,2&'(B ?\$,2&((B ?\$,2&)(B ?\$,2&*(B ?\$,2&+(B ?\$,2"/(B ?\$,2&-(B ?\$,2!`(B ?\$,2&/(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1203 ?\$,2&0(B ?\$,2&1(B ?\$,2&2(B ?\$,2!r(B ?\$,2!|(B ?\$,2"&(B ?\$,2&6(B ?\$,2"7(B ?\$,2&8(B ?\$,2&9(B ?\$,2&:(B ?\$,2&;(B ?\$,2&<(B ?\$,2&=(B ?\$,2&>(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1204 nil |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1205 ;; mac-dingbats (128..141) -> emacs-mule mapping |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1206 ?\$,2&H(B ?\$,2&I(B ?\$,2&J(B ?\$,2&K(B ?\$,2&L(B ?\$,2&M(B ?\$,2&N(B ?\$,2&O(B ?\$,2&P(B ?\$,2&Q(B ?\$,2&R(B ?\$,2&S(B ?\$,2&T(B ?\$,2&U(B] |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1207 (make-vector (- 161 142) nil) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1208 ;; mac-dingbats (161..239) -> emacs-mule mapping |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1209 [?\$,2&A(B ?\$,2&B(B ?\$,2&C(B ?\$,2&D(B ?\$,2&E(B ?\$,2&F(B ?\$,2&G(B ?\$,2#c(B ?\$,2#f(B ?\$,2#e(B ?\$,2#`(B ?\$,1~@(B ?\$,1~A(B ?\$,1~B(B ?\$,1~C(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1210 ?\$,1~D(B ?\$,1~E(B ?\$,1~F(B ?\$,1~G(B ?\$,1~H(B ?\$,1~I(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 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1211 ?\$,2&`(B ?\$,2&a(B ?\$,2&b(B ?\$,2&c(B ?\$,2&d(B ?\$,2&e(B ?\$,2&f(B ?\$,2&g(B ?\$,2&h(B ?\$,2&i(B ?\$,2&j(B ?\$,2&k(B ?\$,2&l(B ?\$,2&m(B ?\$,2&n(B ?\$,2&o(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1212 ?\$,2&p(B ?\$,2&q(B ?\$,2&r(B ?\$,2&s(B ?\$,2&t(B ?\$,1vr(B ?\$,1vt(B ?\$,1vu(B ?\$,2&x(B ?\$,2&y(B ?\$,2&z(B ?\$,2&{(B ?\$,2&|(B ?\$,2&}(B ?\$,2&~(B ?\$,2&(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1213 ?\$,2' (B ?\$,2'!(B ?\$,2'"(B ?\$,2'#(B ?\$,2'$(B ?\$,2'%(B ?\$,2'&(B ?\$,2''(B ?\$,2'((B ?\$,2')(B ?\$,2'*(B ?\$,2'+(B ?\$,2',(B ?\$,2'-(B ?\$,2'.(B ?\$,2'/(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1214 nil |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1215 ;; mac-dingbats (241..254) -> emacs-mule mapping |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1216 ?\$,2'1(B ?\$,2'2(B ?\$,2'3(B ?\$,2'4(B ?\$,2'5(B ?\$,2'6(B ?\$,2'7(B ?\$,2'8(B ?\$,2'9(B ?\$,2':(B ?\$,2';(B ?\$,2'<(B ?\$,2'=(B ?\$,2'>(B |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1217 nil])) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1218 translation-table) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1219 (setq translation-table |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1220 (make-translation-table-from-vector encoding-vector)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1221 ;; (define-translation-table 'mac-dingbats-decoder translation-table) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1222 (define-translation-table 'mac-dingbats-encoder |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1223 (char-table-extra-slot translation-table 0))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1224 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1225 (defconst mac-system-coding-system |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1226 (let ((base (or (cdr (assq mac-system-script-code |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1227 mac-script-code-coding-systems)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1228 'mac-roman))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1229 (if (eq system-type 'darwin) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1230 base |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1231 (coding-system-change-eol-conversion base 'mac))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1232 "Coding system derived from the system script code.") |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1233 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1234 (set-selection-coding-system mac-system-coding-system) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1235 |
61556
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
1236 |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1237 ;;;; Keyboard layout/language change events |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1238 (defun mac-handle-language-change (event) |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
1239 "Set keyboard coding system to what is specified in EVENT." |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1240 (interactive "e") |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1241 (let ((coding-system |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1242 (cdr (assq (car (cadr event)) mac-script-code-coding-systems)))) |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1243 (set-keyboard-coding-system (or coding-system 'mac-roman)) |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1244 ;; MacJapanese maps reverse solidus to ?\x80. |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1245 (if (eq coding-system 'japanese-shift-jis) |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1246 (define-key key-translation-map [?\x80] "\\")))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1247 |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
1248 (define-key special-event-map [language-change] 'mac-handle-language-change) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1249 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1250 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1251 ;;;; Conversion between common flavors and Lisp string. |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1252 |
71356
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
1253 (defconst mac-text-encoding-ascii #x600 |
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
1254 "ASCII text encoding.") |
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
1255 |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1256 (defconst mac-text-encoding-mac-japanese-basic-variant #x20001 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1257 "MacJapanese text encoding without Apple double-byte extensions.") |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1258 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1259 (defun mac-utxt-to-string (data &optional coding-system) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1260 (or coding-system (setq coding-system mac-system-coding-system)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1261 (let* ((encoding |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1262 (and (eq system-type 'darwin) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1263 (eq (coding-system-base coding-system) 'japanese-shift-jis) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1264 mac-text-encoding-mac-japanese-basic-variant)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1265 (str (and (fboundp 'mac-code-convert-string) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1266 (mac-code-convert-string data nil |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1267 (or encoding coding-system))))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1268 (when str |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1269 (setq str (decode-coding-string str coding-system)) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1270 (if (eq encoding mac-text-encoding-mac-japanese-basic-variant) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1271 ;; Does it contain Apple one-byte extensions other than |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1272 ;; reverse solidus? |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1273 (if (string-match "[\xa0\xfd-\xff]" str) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1274 (setq str nil) |
70429
0970641ee615
(mac-utxt-to-string): Don't make adjustment for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70379
diff
changeset
|
1275 ;; ASCII-only? |
71356
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
1276 (unless (mac-code-convert-string data nil mac-text-encoding-ascii) |
70429
0970641ee615
(mac-utxt-to-string): Don't make adjustment for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70379
diff
changeset
|
1277 (subst-char-in-string ?\x5c ?\(J\(B str t) |
0970641ee615
(mac-utxt-to-string): Don't make adjustment for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70379
diff
changeset
|
1278 (subst-char-in-string ?\x80 ?\\ str t))))) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1279 (or str |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1280 (decode-coding-string data |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1281 (if (eq (byteorder) ?B) 'utf-16be 'utf-16le))))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1282 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1283 (defun mac-string-to-utxt (string &optional coding-system) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1284 (or coding-system (setq coding-system mac-system-coding-system)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1285 (let (data encoding) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1286 (when (and (fboundp 'mac-code-convert-string) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1287 (memq (coding-system-base coding-system) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1288 (find-coding-systems-string string))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1289 (setq coding-system |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1290 (coding-system-change-eol-conversion coding-system 'mac)) |
72576
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1291 (let ((str string)) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1292 (when (and (eq system-type 'darwin) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1293 (eq coding-system 'japanese-shift-jis-mac)) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1294 (setq encoding mac-text-encoding-mac-japanese-basic-variant) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1295 (setq str (subst-char-in-string ?\\ ?\x80 str)) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1296 (subst-char-in-string ?\(J\(B ?\x5c str t) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1297 ;; ASCII-only? |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1298 (if (string-match "\\`[\x00-\x7f]*\\'" str) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1299 (setq str nil))) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1300 (and str |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1301 (setq data (mac-code-convert-string |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1302 (encode-coding-string str coding-system) |
b09e6c8f23d4
(mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72536
diff
changeset
|
1303 (or encoding coding-system) nil))))) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1304 (or data (encode-coding-string string (if (eq (byteorder) ?B) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1305 'utf-16be-mac |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1306 'utf-16le-mac))))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1307 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1308 (defun mac-TEXT-to-string (data &optional coding-system) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1309 (or coding-system (setq coding-system mac-system-coding-system)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1310 (prog1 (setq data (decode-coding-string data coding-system)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1311 (when (eq (coding-system-base coding-system) 'japanese-shift-jis) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1312 ;; (subst-char-in-string ?\x5c ?\(J\(B data t) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1313 (subst-char-in-string ?\x80 ?\\ data t)))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1314 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1315 (defun mac-string-to-TEXT (string &optional coding-system) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1316 (or coding-system (setq coding-system mac-system-coding-system)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1317 (let ((encodables (find-coding-systems-string string)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1318 (rest mac-script-code-coding-systems)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1319 (unless (memq (coding-system-base coding-system) encodables) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1320 (while (and rest (not (memq (cdar rest) encodables))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1321 (setq rest (cdr rest))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1322 (if rest |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1323 (setq coding-system (cdar rest))))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1324 (setq coding-system |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1325 (coding-system-change-eol-conversion coding-system 'mac)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1326 (when (eq coding-system 'japanese-shift-jis-mac) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1327 ;; (setq string (subst-char-in-string ?\\ ?\x80 string)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1328 (setq string (subst-char-in-string ?\(J\(B ?\x5c string))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1329 (encode-coding-string string coding-system)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1330 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1331 (defun mac-furl-to-string (data) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1332 ;; Remove a trailing nul character. |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1333 (let ((len (length data))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1334 (if (and (> len 0) (= (aref data (1- len)) ?\0)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1335 (substring data 0 (1- len)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1336 data))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1337 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1338 (defun mac-TIFF-to-string (data &optional text) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1339 (prog1 (or text (setq text (copy-sequence " "))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1340 (put-text-property 0 (length text) 'display (create-image data 'tiff t) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1341 text))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1342 |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1343 ;;;; Selections |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1344 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1345 ;;; We keep track of the last text selected here, so we can check the |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1346 ;;; current selection against it, and avoid passing back our own text |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1347 ;;; from x-get-selection-value. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1348 (defvar x-last-selected-text-clipboard nil |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1349 "The value of the CLIPBOARD selection last time we selected or |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1350 pasted text.") |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1351 (defvar x-last-selected-text-primary nil |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1352 "The value of the PRIMARY X selection last time we selected or |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1353 pasted text.") |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1354 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1355 (defcustom x-select-enable-clipboard t |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1356 "*Non-nil means cutting and pasting uses the clipboard. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1357 This is in addition to the primary selection." |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1358 :type 'boolean |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1359 :group 'killing) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1360 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1361 ;;; Make TEXT, a string, the primary X selection. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1362 (defun x-select-text (text &optional push) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1363 (x-set-selection 'PRIMARY text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1364 (setq x-last-selected-text-primary text) |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1365 (if (not x-select-enable-clipboard) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1366 (setq x-last-selected-text-clipboard nil) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1367 (x-set-selection 'CLIPBOARD text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1368 (setq x-last-selected-text-clipboard text)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1369 ) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1370 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1371 (defun x-get-selection (&optional type data-type) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1372 "Return the value of a selection. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1373 The argument TYPE (default `PRIMARY') says which selection, |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1374 and the argument DATA-TYPE (default `STRING') says |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1375 how to convert the data. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1376 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1377 TYPE may be any symbol \(but nil stands for `PRIMARY'). However, |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1378 only a few symbols are commonly used. They conventionally have |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1379 all upper-case names. The most often used ones, in addition to |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1380 `PRIMARY', are `SECONDARY' and `CLIPBOARD'. |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1381 |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1382 DATA-TYPE is usually `STRING', but can also be one of the symbols |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1383 in `selection-converter-alist', which see." |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1384 (let ((data (x-get-selection-internal (or type 'PRIMARY) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1385 (or data-type 'STRING))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1386 (coding (or next-selection-coding-system |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1387 selection-coding-system))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1388 (when (and (stringp data) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1389 (setq data-type (get-text-property 0 'foreign-selection data))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1390 (cond ((eq data-type 'public.utf16-plain-text) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1391 (setq data (mac-utxt-to-string data coding))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1392 ((eq data-type 'com.apple.traditional-mac-plain-text) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1393 (setq data (mac-TEXT-to-string data coding))) |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1394 ((eq data-type 'public.file-url) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1395 (setq data (mac-furl-to-string data)))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1396 (put-text-property 0 (length data) 'foreign-selection data-type data)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1397 data)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1398 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1399 (defun x-selection-value (type) |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1400 (let ((data-types '(public.utf16-plain-text |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1401 com.apple.traditional-mac-plain-text |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1402 public.file-url)) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1403 text tiff-image) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1404 (while (and (null text) data-types) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1405 (setq text (condition-case nil |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1406 (x-get-selection type (car data-types)) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1407 (error nil))) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1408 (setq data-types (cdr data-types))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1409 (if text |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1410 (remove-text-properties 0 (length text) '(foreign-selection nil) text)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1411 (setq tiff-image (condition-case nil |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1412 (x-get-selection type 'public.tiff) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1413 (error nil))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1414 (when tiff-image |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1415 (remove-text-properties 0 (length tiff-image) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1416 '(foreign-selection nil) tiff-image) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1417 (setq text (mac-TIFF-to-string tiff-image text))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1418 text)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1419 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1420 ;;; Return the value of the current selection. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1421 ;;; Treat empty strings as if they were unset. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1422 ;;; If this function is called twice and finds the same text, |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1423 ;;; it returns nil the second time. This is so that a single |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1424 ;;; selection won't be added to the kill ring over and over. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1425 (defun x-get-selection-value () |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1426 (let (clip-text primary-text) |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1427 (if (not x-select-enable-clipboard) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1428 (setq x-last-selected-text-clipboard nil) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1429 (setq clip-text (x-selection-value 'CLIPBOARD)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1430 (if (string= clip-text "") (setq clip-text nil)) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1431 |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1432 ;; Check the CLIPBOARD selection for 'newness', is it different |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1433 ;; from what we remebered them to be last time we did a |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1434 ;; cut/paste operation. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1435 (setq clip-text |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1436 (cond;; check clipboard |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1437 ((or (not clip-text) (string= clip-text "")) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1438 (setq x-last-selected-text-clipboard nil)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1439 ((eq clip-text x-last-selected-text-clipboard) nil) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1440 ((string= clip-text x-last-selected-text-clipboard) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1441 ;; Record the newer string, |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1442 ;; so subsequent calls can use the `eq' test. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1443 (setq x-last-selected-text-clipboard clip-text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1444 nil) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1445 (t |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1446 (setq x-last-selected-text-clipboard clip-text)))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1447 ) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1448 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1449 (setq primary-text (x-selection-value 'PRIMARY)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1450 ;; Check the PRIMARY selection for 'newness', is it different |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1451 ;; from what we remebered them to be last time we did a |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1452 ;; cut/paste operation. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1453 (setq primary-text |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1454 (cond;; check primary selection |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1455 ((or (not primary-text) (string= primary-text "")) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1456 (setq x-last-selected-text-primary nil)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1457 ((eq primary-text x-last-selected-text-primary) nil) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1458 ((string= primary-text x-last-selected-text-primary) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1459 ;; Record the newer string, |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1460 ;; so subsequent calls can use the `eq' test. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1461 (setq x-last-selected-text-primary primary-text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1462 nil) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1463 (t |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1464 (setq x-last-selected-text-primary primary-text)))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1465 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1466 ;; As we have done one selection, clear this now. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1467 (setq next-selection-coding-system nil) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1468 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1469 ;; At this point we have recorded the current values for the |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1470 ;; selection from clipboard (if we are supposed to) and primary, |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1471 ;; So return the first one that has changed (which is the first |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1472 ;; non-null one). |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1473 (or clip-text primary-text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1474 )) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1475 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1476 (put 'CLIPBOARD 'mac-scrap-name "com.apple.scrap.clipboard") |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1477 (when (eq system-type 'darwin) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1478 (put 'FIND 'mac-scrap-name "com.apple.scrap.find") |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1479 (put 'PRIMARY 'mac-scrap-name |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1480 (format "org.gnu.Emacs.%d.selection.PRIMARY" (emacs-pid)))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1481 (put 'com.apple.traditional-mac-plain-text 'mac-ostype "TEXT") |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1482 (put 'public.utf16-plain-text 'mac-ostype "utxt") |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1483 (put 'public.tiff 'mac-ostype "TIFF") |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1484 (put 'public.file-url 'mac-ostype "furl") |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1485 |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1486 (defun mac-select-convert-to-string (selection type value) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1487 (let ((str (cdr (xselect-convert-to-string selection nil value))) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1488 (coding (or next-selection-coding-system selection-coding-system))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1489 (when str |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1490 ;; If TYPE is nil, this is a local request, thus return STR as |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1491 ;; is. Otherwise, encode STR. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1492 (if (not type) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1493 str |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1494 (let ((inhibit-read-only t)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1495 (remove-text-properties 0 (length str) '(composition nil) str) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1496 (cond |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1497 ((eq type 'public.utf16-plain-text) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1498 (setq str (mac-string-to-utxt str coding))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1499 ((eq type 'com.apple.traditional-mac-plain-text) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
1500 (setq str (mac-string-to-TEXT str coding))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1501 (t |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1502 (error "Unknown selection type: %S" type)) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1503 ))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1504 |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1505 (setq next-selection-coding-system nil) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1506 (cons type str)))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
1507 |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1508 (defun mac-select-convert-to-file-url (selection type value) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1509 (let ((filename (xselect-convert-to-filename selection type value)) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1510 (coding (or file-name-coding-system default-file-name-coding-system))) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1511 (if (and filename coding) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1512 (setq filename (encode-coding-string filename coding))) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1513 (and filename |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1514 (concat "file://localhost" |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1515 (mapconcat 'url-hexify-string |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1516 (split-string filename "/") "/"))))) |
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1517 |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1518 (setq selection-converter-alist |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1519 (nconc |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1520 '((public.utf16-plain-text . mac-select-convert-to-string) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1521 (com.apple.traditional-mac-plain-text . mac-select-convert-to-string) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1522 ;; This is not enabled by default because the `Import Image' |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1523 ;; menu makes Emacs crash or hang for unknown reasons. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1524 ;; (public.tiff . nil) |
62100
e5deb8b3a701
Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61778
diff
changeset
|
1525 (public.file-url . mac-select-convert-to-file-url) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1526 ) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1527 selection-converter-alist)) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1528 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1529 ;;;; Apple events, HICommand events, and Services menu |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1530 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1531 ;;; Event classes |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1532 (put 'core-event 'mac-apple-event-class "aevt") ; kCoreEventClass |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1533 (put 'internet-event 'mac-apple-event-class "GURL") ; kAEInternetEventClass |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1534 |
68035
a9b674b9cf4c
(mac-ae-parameter): Don't coerce data if it is
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67662
diff
changeset
|
1535 ;;; Event IDs |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1536 ;; kCoreEventClass |
72703
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1537 (put 'open-application 'mac-apple-event-id "oapp") ; kAEOpenApplication |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1538 (put 'reopen-application 'mac-apple-event-id "rapp") ; kAEReopenApplication |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1539 (put 'open-documents 'mac-apple-event-id "odoc") ; kAEOpenDocuments |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1540 (put 'print-documents 'mac-apple-event-id "pdoc") ; kAEPrintDocuments |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1541 (put 'open-contents 'mac-apple-event-id "ocon") ; kAEOpenContents |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1542 (put 'quit-application 'mac-apple-event-id "quit") ; kAEQuitApplication |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1543 (put 'application-died 'mac-apple-event-id "obit") ; kAEApplicationDied |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1544 (put 'show-preferences 'mac-apple-event-id "pref") ; kAEShowPreferences |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1545 (put 'autosave-now 'mac-apple-event-id "asav") ; kAEAutosaveNow |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1546 ;; kAEInternetEventClass |
72703
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1547 (put 'get-url 'mac-apple-event-id "GURL") ; kAEGetURL |
72536
59670fc88353
(mac-apple-event-map): Rename hicommand to hi-command.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71500
diff
changeset
|
1548 ;; Converted HI command events |
72703
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1549 (put 'about 'mac-apple-event-id "abou") ; kHICommandAbout |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1550 (put 'show-hide-font-panel 'mac-apple-event-id "shfp") ; kHICommandShowHideFontPanel |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1551 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1552 (defmacro mac-event-spec (event) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1553 `(nth 1 ,event)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1554 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1555 (defmacro mac-event-ae (event) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1556 `(nth 2 ,event)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1557 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1558 (defun mac-ae-parameter (ae &optional keyword type) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1559 (or keyword (setq keyword "----")) ;; Direct object. |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1560 (if (not (and (consp ae) (equal (car ae) "aevt"))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1561 (error "Not an Apple event: %S" ae) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1562 (let ((type-data (cdr (assoc keyword (cdr ae)))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1563 data) |
68035
a9b674b9cf4c
(mac-ae-parameter): Don't coerce data if it is
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67662
diff
changeset
|
1564 (when (and type type-data (not (equal type (car type-data)))) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1565 (setq data (mac-coerce-ae-data (car type-data) (cdr type-data) type)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1566 (setq type-data (if data (cons type data) nil))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1567 type-data))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1568 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1569 (defun mac-ae-list (ae &optional keyword type) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1570 (or keyword (setq keyword "----")) ;; Direct object. |
68035
a9b674b9cf4c
(mac-ae-parameter): Don't coerce data if it is
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67662
diff
changeset
|
1571 (let ((desc (mac-ae-parameter ae keyword "list"))) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1572 (cond ((null desc) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1573 nil) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1574 ((not (equal (car desc) "list")) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1575 (error "Parameter for \"%s\" is not a list" keyword)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1576 (t |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1577 (if (null type) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1578 (cdr desc) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1579 (mapcar |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1580 (lambda (type-data) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1581 (mac-coerce-ae-data (car type-data) (cdr type-data) type)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1582 (cdr desc))))))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1583 |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1584 (defun mac-ae-number (ae keyword) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1585 (let ((type-data (mac-ae-parameter ae keyword)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1586 str) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1587 (if (and type-data |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1588 (setq str (mac-coerce-ae-data (car type-data) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1589 (cdr type-data) "TEXT"))) |
75831
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1590 (let ((num (string-to-number str))) |
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1591 ;; Mac OS Classic may return "0e+0" as the coerced value for |
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1592 ;; the type "magn" and the data "\000\000\000\000". |
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1593 (if (= num 0.0) 0 num)) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1594 nil))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1595 |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1596 (defun mac-bytes-to-integer (bytes &optional from to) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1597 (or from (setq from 0)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1598 (or to (setq to (length bytes))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1599 (let* ((len (- to from)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1600 (extended-sign-len (- (1+ (ceiling (log most-positive-fixnum 2))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1601 (* 8 len))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1602 (result 0)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1603 (dotimes (i len) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1604 (setq result (logior (lsh result 8) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1605 (aref bytes (+ from (if (eq (byteorder) ?B) i |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1606 (- len i 1))))))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1607 (if (> extended-sign-len 0) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1608 (ash (lsh result extended-sign-len) (- extended-sign-len)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1609 result))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1610 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1611 (defun mac-ae-selection-range (ae) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1612 ;; #pragma options align=mac68k |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1613 ;; typedef struct SelectionRange { |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1614 ;; short unused1; // 0 (not used) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1615 ;; short lineNum; // line to select (<0 to specify range) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1616 ;; long startRange; // start of selection range (if line < 0) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1617 ;; long endRange; // end of selection range (if line < 0) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1618 ;; long unused2; // 0 (not used) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1619 ;; long theDate; // modification date/time |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1620 ;; } SelectionRange; |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1621 ;; #pragma options align=reset |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1622 (let ((range-bytes (cdr (mac-ae-parameter ae "kpos" "TEXT")))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1623 (and range-bytes |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1624 (list (mac-bytes-to-integer range-bytes 2 4) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1625 (mac-bytes-to-integer range-bytes 4 8) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1626 (mac-bytes-to-integer range-bytes 8 12) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1627 (mac-bytes-to-integer range-bytes 16 20))))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1628 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1629 ;; On Mac OS X 10.4 and later, the `open-document' event contains an |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1630 ;; optional parameter keyAESearchText from the Spotlight search. |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1631 (defun mac-ae-text-for-search (ae) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1632 (let ((utf8-text (cdr (mac-ae-parameter ae "stxt" "utf8")))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1633 (and utf8-text |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1634 (decode-coding-string utf8-text 'utf-8)))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1635 |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1636 (defun mac-ae-text (ae) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1637 (or (cdr (mac-ae-parameter ae nil "TEXT")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1638 (error "No text in Apple event."))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1639 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1640 (defun mac-ae-frame (ae &optional keyword type) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1641 (let ((bytes (cdr (mac-ae-parameter ae keyword type)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1642 (if (or (null bytes) (/= (length bytes) 4)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1643 (error "No window reference in Apple event.") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1644 (let ((window-id (mac-coerce-ae-data "long" bytes "TEXT")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1645 (rest (frame-list)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1646 frame) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1647 (while (and (null frame) rest) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1648 (if (string= (frame-parameter (car rest) 'window-id) window-id) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1649 (setq frame (car rest))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1650 (setq rest (cdr rest))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1651 frame)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1652 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1653 (defun mac-ae-script-language (ae keyword) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1654 ;; struct WritingCode { |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1655 ;; ScriptCode theScriptCode; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1656 ;; LangCode theLangCode; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1657 ;; }; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1658 (let ((bytes (cdr (mac-ae-parameter ae keyword "intl")))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1659 (and bytes |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1660 (cons (mac-bytes-to-integer bytes 0 2) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1661 (mac-bytes-to-integer bytes 2 4))))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1662 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1663 (defun mac-bytes-to-text-range (bytes &optional from to) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1664 ;; struct TextRange { |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1665 ;; long fStart; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1666 ;; long fEnd; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1667 ;; short fHiliteStyle; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1668 ;; }; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1669 (or from (setq from 0)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1670 (or to (setq to (length bytes))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1671 (and (= (- to from) (+ 4 4 2)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1672 (list (mac-bytes-to-integer bytes from (+ from 4)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1673 (mac-bytes-to-integer bytes (+ from 4) (+ from 8)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1674 (mac-bytes-to-integer bytes (+ from 8) to)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1675 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1676 (defun mac-ae-text-range-array (ae keyword) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1677 ;; struct TextRangeArray { |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1678 ;; short fNumOfRanges; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1679 ;; TextRange fRange[1]; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1680 ;; }; |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1681 (let* ((bytes (cdr (mac-ae-parameter ae keyword "tray"))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1682 (len (length bytes)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1683 nranges result) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1684 (when (and bytes (>= len 2) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1685 (progn |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1686 (setq nranges (mac-bytes-to-integer bytes 0 2)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1687 (= len (+ 2 (* nranges 10))))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1688 (setq result (make-vector nranges nil)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1689 (dotimes (i nranges) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1690 (aset result i |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1691 (mac-bytes-to-text-range bytes (+ (* i 10) 2) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1692 (+ (* i 10) 12))))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1693 result)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1694 |
75375
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1695 (defconst mac-keyboard-modifier-mask-alist |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1696 (mapcar |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1697 (lambda (modifier-bit) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1698 (cons (car modifier-bit) (lsh 1 (cdr modifier-bit)))) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1699 '((command . 8) ; cmdKeyBit |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1700 (shift . 9) ; shiftKeyBit |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1701 (option . 11) ; optionKeyBit |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1702 (control . 12) ; controlKeyBit |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1703 (function . 17))) ; kEventKeyModifierFnBit |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1704 "Alist of Mac keyboard modifier symbols vs masks.") |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1705 |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1706 (defun mac-ae-keyboard-modifiers (ae) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1707 (let ((modifiers-value (mac-ae-number ae "kmod")) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1708 modifiers) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1709 (if modifiers-value |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1710 (dolist (modifier-mask mac-keyboard-modifier-mask-alist) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1711 (if (/= (logand modifiers-value (cdr modifier-mask)) 0) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1712 (setq modifiers (cons (car modifier-mask) modifiers))))) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1713 modifiers)) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1714 |
82347
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1715 (defun mac-ae-reopen-application (event) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1716 "Show some frame in response to the Apple event EVENT. |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1717 The frame to be shown is chosen from visible or iconified frames |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1718 if possible. If there's no such frame, a new frame is created." |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1719 (interactive "e") |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1720 (unless (frame-visible-p (selected-frame)) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1721 (let ((frame (or (car (visible-frame-list)) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1722 (car (filtered-frame-list 'frame-visible-p))))) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1723 (if frame |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1724 (select-frame frame) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1725 (switch-to-buffer-other-frame "*scratch*")))) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1726 (select-frame-set-input-focus (selected-frame))) |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1727 |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1728 (defun mac-ae-open-documents (event) |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
1729 "Open the documents specified by the Apple event EVENT." |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1730 (interactive "e") |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1731 (let ((ae (mac-event-ae event))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1732 (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1733 (if file-name |
70763
e5e83c1c6fa5
(mac-ae-open-documents): Escape file name on conversion to URL.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70730
diff
changeset
|
1734 (dnd-open-local-file |
e5e83c1c6fa5
(mac-ae-open-documents): Escape file name on conversion to URL.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70730
diff
changeset
|
1735 (concat "file://" |
e5e83c1c6fa5
(mac-ae-open-documents): Escape file name on conversion to URL.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70730
diff
changeset
|
1736 (mapconcat 'url-hexify-string |
e5e83c1c6fa5
(mac-ae-open-documents): Escape file name on conversion to URL.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70730
diff
changeset
|
1737 (split-string file-name "/") "/")) nil))) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1738 (let ((selection-range (mac-ae-selection-range ae)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1739 (search-text (mac-ae-text-for-search ae))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1740 (cond (selection-range |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1741 (let ((line (car selection-range)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1742 (start (cadr selection-range)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1743 (end (nth 2 selection-range))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1744 (if (> line 0) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1745 (goto-line line) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1746 (if (and (> start 0) (> end 0)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1747 (progn (set-mark start) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1748 (goto-char end)))))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1749 ((stringp search-text) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1750 (re-search-forward |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1751 (mapconcat 'regexp-quote (split-string search-text) "\\|") |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1752 nil t))))) |
70298
11e77c23e062
(mac-ae-open-documents, mac-drag-n-drop): Use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
69725
diff
changeset
|
1753 (select-frame-set-input-focus (selected-frame))) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1754 |
75238
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1755 (defun mac-ae-quit-application (event) |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1756 "Quit the application Emacs with the Apple event EVENT." |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1757 (interactive "e") |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1758 (let ((ae (mac-event-ae event))) |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1759 (unwind-protect |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1760 (save-buffers-kill-emacs) |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1761 ;; Reaches here if the user has canceled the quit. |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1762 (mac-resume-apple-event ae -128)))) ; userCanceledErr |
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1763 |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1764 (defun mac-ae-get-url (event) |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
1765 "Open the URL specified by the Apple event EVENT. |
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
1766 Currently the `mailto' scheme is supported." |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1767 (interactive "e") |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1768 (let* ((ae (mac-event-ae event)) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1769 (parsed-url (url-generic-parse-url (mac-ae-text ae)))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1770 (if (string= (url-type parsed-url) "mailto") |
75831
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1771 (progn |
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1772 (url-mailto parsed-url) |
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1773 (select-frame-set-input-focus (selected-frame))) |
70870
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
1774 (mac-resume-apple-event ae t)))) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1775 |
67487
44fba69e3c47
Create keymap for mac-apple-event-map.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67450
diff
changeset
|
1776 (setq mac-apple-event-map (make-sparse-keymap)) |
44fba69e3c47
Create keymap for mac-apple-event-map.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67450
diff
changeset
|
1777 |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1778 ;; Received when Emacs is launched without associated documents. |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1779 ;; Accept it as an Apple event, but no Emacs event is generated so as |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1780 ;; not to erase the splash screen. |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1781 (define-key mac-apple-event-map [core-event open-application] 0) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1782 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1783 ;; Received when a dock or application icon is clicked and Emacs is |
82347
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1784 ;; already running. |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1785 (define-key mac-apple-event-map [core-event reopen-application] |
fa6a18bcd764
(mac-ae-reopen-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
1786 'mac-ae-reopen-application) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1787 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1788 (define-key mac-apple-event-map [core-event open-documents] |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1789 'mac-ae-open-documents) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1790 (define-key mac-apple-event-map [core-event show-preferences] 'customize) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1791 (define-key mac-apple-event-map [core-event quit-application] |
75238
975531dd9b08
(mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75142
diff
changeset
|
1792 'mac-ae-quit-application) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1793 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1794 (define-key mac-apple-event-map [internet-event get-url] 'mac-ae-get-url) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
1795 |
82399
3d3fbe15d8ec
(mac-apple-event-map): Bind About Emacs menu item to about-emacs instead
Juri Linkov <juri@jurta.org>
parents:
82347
diff
changeset
|
1796 (define-key mac-apple-event-map [hi-command about] 'about-emacs) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
1797 |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1798 ;;; Converted Carbon Events |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1799 (defun mac-handle-toolbar-switch-mode (event) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1800 "Toggle visibility of tool-bars in response to EVENT. |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1801 With no keyboard modifiers, it toggles the visibility of the |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1802 frame where the tool-bar toggle button was pressed. With some |
82914
273d8da82439
(mac-handle-toolbar-switch-mode): Add explicit
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82399
diff
changeset
|
1803 modifiers, it changes the global tool-bar visibility setting." |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1804 (interactive "e") |
75375
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1805 (let ((ae (mac-event-ae event))) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
1806 (if (mac-ae-keyboard-modifiers ae) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1807 ;; Globally toggle tool-bar-mode if some modifier key is pressed. |
82914
273d8da82439
(mac-handle-toolbar-switch-mode): Add explicit
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82399
diff
changeset
|
1808 (tool-bar-mode 'toggle) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1809 (let ((frame (mac-ae-frame ae))) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1810 (set-frame-parameter frame 'tool-bar-lines |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1811 (if (= (frame-parameter frame 'tool-bar-lines) 0) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1812 1 0)))))) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1813 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1814 ;; kEventClassWindow/kEventWindowToolbarSwitchMode |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1815 (define-key mac-apple-event-map [window toolbar-switch-mode] |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1816 'mac-handle-toolbar-switch-mode) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1817 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1818 ;;; Font panel |
75831
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1819 (when (fboundp 'mac-set-font-panel-visible-p) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1820 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1821 (define-minor-mode mac-font-panel-mode |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1822 "Toggle use of the font panel. |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
1823 With numeric ARG, display the font panel if and only if ARG is positive." |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1824 :init-value nil |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1825 :global t |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1826 :group 'mac |
75831
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1827 (mac-set-font-panel-visible-p mac-font-panel-mode)) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1828 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1829 (defun mac-handle-font-panel-closed (event) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1830 "Update internal status in response to font panel closed EVENT." |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1831 (interactive "e") |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1832 ;; Synchronize with the minor mode variable. |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1833 (mac-font-panel-mode 0)) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1834 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1835 (defun mac-handle-font-selection (event) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1836 "Change default face attributes according to font selection EVENT." |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1837 (interactive "e") |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1838 (let* ((ae (mac-event-ae event)) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1839 (fm-font-size (mac-ae-number ae "fmsz")) |
71500
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
1840 (atsu-font-id (mac-ae-number ae "auid")) |
74625
1fb421aafa71
(mac-atsu-font-table): Remove defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74509
diff
changeset
|
1841 (attribute-values (and atsu-font-id |
1fb421aafa71
(mac-atsu-font-table): Remove defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74509
diff
changeset
|
1842 (mac-atsu-font-face-attributes atsu-font-id)))) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1843 (if fm-font-size |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1844 (setq attribute-values |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1845 `(:height ,(* 10 fm-font-size) ,@attribute-values))) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1846 (apply 'set-face-attribute 'default (selected-frame) attribute-values))) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1847 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1848 ;; kEventClassFont/kEventFontPanelClosed |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1849 (define-key mac-apple-event-map [font panel-closed] |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1850 'mac-handle-font-panel-closed) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1851 ;; kEventClassFont/kEventFontSelection |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1852 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection) |
72703
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1853 (define-key mac-apple-event-map [hi-command show-hide-font-panel] |
ca1234ea6e5f
(show-hide-font-panel): New HI command ID symbol.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72576
diff
changeset
|
1854 'mac-font-panel-mode) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1855 |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1856 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode] |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1857 (menu-bar-make-mm-toggle mac-font-panel-mode |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1858 "Font Panel" |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1859 "Show the font panel as a floating dialog") |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1860 'showhide-speedbar) |
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1861 |
75831
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
1862 ) ;; (fboundp 'mac-set-font-panel-visible-p) |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
1863 |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1864 ;;; Text Services |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1865 (defvar mac-ts-active-input-buf "" |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1866 "Byte sequence of the current Mac TSM active input area.") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1867 (defvar mac-ts-update-active-input-area-seqno 0 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1868 "Number of processed update-active-input-area events.") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1869 (setq mac-ts-active-input-overlay (make-overlay 0 0)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1870 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1871 (defface mac-ts-caret-position |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1872 '((t :inverse-video t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1873 "Face for caret position in Mac TSM active input area. |
71500
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
1874 This is used when the active input area is displayed either in |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
1875 the echo area or in a buffer where the cursor is not displayed." |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1876 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1877 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1878 (defface mac-ts-raw-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1879 '((t :underline t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1880 "Face for raw text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1881 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1882 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1883 (defface mac-ts-selected-raw-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1884 '((t :underline t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1885 "Face for selected raw text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1886 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1887 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1888 (defface mac-ts-converted-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1889 '((((background dark)) :underline "gray20") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1890 (t :underline "gray80")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1891 "Face for converted text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1892 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1893 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1894 (defface mac-ts-selected-converted-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1895 '((t :underline t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1896 "Face for selected converted text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1897 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1898 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1899 (defface mac-ts-block-fill-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1900 '((t :underline t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1901 "Face for block fill text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1902 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1903 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1904 (defface mac-ts-outline-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1905 '((t :underline t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1906 "Face for outline text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1907 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1908 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1909 (defface mac-ts-selected-text |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1910 '((t :underline t)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1911 "Face for selected text in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1912 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1913 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1914 (defface mac-ts-no-hilite |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1915 '((t :inherit default)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1916 "Face for no hilite in Mac TSM active input area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1917 :group 'mac) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1918 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1919 (defconst mac-ts-hilite-style-faces |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1920 '((2 . mac-ts-raw-text) ; kTSMHiliteRawText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1921 (3 . mac-ts-selected-raw-text) ; kTSMHiliteSelectedRawText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1922 (4 . mac-ts-converted-text) ; kTSMHiliteConvertedText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1923 (5 . mac-ts-selected-converted-text) ; kTSMHiliteSelectedConvertedText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1924 (6 . mac-ts-block-fill-text) ; kTSMHiliteBlockFillText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1925 (7 . mac-ts-outline-text) ; kTSMHiliteOutlineText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1926 (8 . mac-ts-selected-text) ; kTSMHiliteSelectedText |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1927 (9 . mac-ts-no-hilite)) ; kTSMHiliteNoHilite |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1928 "Alist of Mac TSM hilite style vs Emacs face.") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1929 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1930 (defun mac-ts-update-active-input-buf (text fix-len hilite-rng update-rng) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1931 (let ((buf-len (length mac-ts-active-input-buf)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1932 confirmed) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1933 (if (or (null update-rng) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1934 (/= (% (length update-rng) 2) 0)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1935 ;; The parameter is missing (or in a bad format). The |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1936 ;; existing inline input session is completely replaced with |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1937 ;; the new text. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1938 (setq mac-ts-active-input-buf text) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1939 ;; Otherwise, the current subtext specified by the (2*j)-th |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1940 ;; range is replaced with the new subtext specified by the |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1941 ;; (2*j+1)-th range. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1942 (let ((tail buf-len) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1943 (i (length update-rng)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1944 segments rng) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1945 (while (> i 0) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1946 (setq i (- i 2)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1947 (setq rng (aref update-rng i)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1948 (if (and (<= 0 (cadr rng)) (< (cadr rng) tail) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1949 (<= tail buf-len)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1950 (setq segments |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1951 (cons (substring mac-ts-active-input-buf (cadr rng) tail) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1952 segments))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1953 (setq tail (car rng)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1954 (setq rng (aref update-rng (1+ i))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1955 (if (and (<= 0 (car rng)) (< (car rng) (cadr rng)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1956 (<= (cadr rng) (length text))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1957 (setq segments |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1958 (cons (substring text (car rng) (cadr rng)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1959 segments)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1960 (if (and (< 0 tail) (<= tail buf-len)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1961 (setq segments |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1962 (cons (substring mac-ts-active-input-buf 0 tail) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1963 segments))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1964 (setq mac-ts-active-input-buf (apply 'concat segments)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1965 (setq buf-len (length mac-ts-active-input-buf)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1966 ;; Confirm (a part of) inline input session. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1967 (cond ((< fix-len 0) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1968 ;; Entire inline session is being confirmed. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1969 (setq confirmed mac-ts-active-input-buf) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1970 (setq mac-ts-active-input-buf "")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1971 ((= fix-len 0) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1972 ;; None of the text is being confirmed (yet). |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1973 (setq confirmed "")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1974 (t |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1975 (if (> fix-len buf-len) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1976 (setq fix-len buf-len)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1977 (setq confirmed (substring mac-ts-active-input-buf 0 fix-len)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1978 (setq mac-ts-active-input-buf |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1979 (substring mac-ts-active-input-buf fix-len)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1980 (setq buf-len (length mac-ts-active-input-buf)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1981 ;; Update highlighting and the caret position in the new inline |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1982 ;; input session. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1983 (remove-text-properties 0 buf-len '(cursor nil) mac-ts-active-input-buf) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1984 (mapc (lambda (rng) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1985 (cond ((and (= (nth 2 rng) 1) ; kTSMHiliteCaretPosition |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1986 (<= 0 (car rng)) (< (car rng) buf-len)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1987 (put-text-property (car rng) buf-len |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1988 'cursor t mac-ts-active-input-buf)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1989 ((and (<= 0 (car rng)) (< (car rng) (cadr rng)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1990 (<= (cadr rng) buf-len)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1991 (put-text-property (car rng) (cadr rng) 'face |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1992 (cdr (assq (nth 2 rng) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1993 mac-ts-hilite-style-faces)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1994 mac-ts-active-input-buf)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1995 hilite-rng) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1996 confirmed)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1997 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1998 (defun mac-split-string-by-property-change (string) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
1999 (let ((tail (length string)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2000 head result) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2001 (unless (= tail 0) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2002 (while (setq head (previous-property-change tail string) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2003 result (cons (substring string (or head 0) tail) result) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2004 tail head))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2005 result)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2006 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2007 (defun mac-replace-untranslated-utf-8-chars (string &optional to-string) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2008 (or to-string (setq to-string "$,3u=(B")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2009 (mapconcat |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2010 (lambda (str) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2011 (if (get-text-property 0 'untranslated-utf-8 str) to-string str)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2012 (mac-split-string-by-property-change string) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2013 "")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2014 |
74892
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2015 (defun mac-keyboard-translate-char (ch) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2016 (if (and (char-valid-p ch) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2017 (or (char-table-p keyboard-translate-table) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2018 (and (or (stringp keyboard-translate-table) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2019 (vectorp keyboard-translate-table)) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2020 (> (length keyboard-translate-table) ch)))) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2021 (or (aref keyboard-translate-table ch) ch) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2022 ch)) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2023 |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2024 (defun mac-unread-string (string) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2025 ;; Unread characters and insert them in a keyboard macro being |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2026 ;; defined. |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2027 (apply 'isearch-unread |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2028 (mapcar 'mac-keyboard-translate-char |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2029 (mac-replace-untranslated-utf-8-chars string)))) |
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2030 |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2031 (defun mac-ts-update-active-input-area (event) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2032 "Update Mac TSM active input area according to EVENT. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2033 The confirmed text is converted to Emacs input events and pushed |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2034 into `unread-command-events'. The unconfirmed text is displayed |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2035 either in the current buffer or in the echo area." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2036 (interactive "e") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2037 (let* ((ae (mac-event-ae event)) |
71500
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2038 (type-text (mac-ae-parameter ae "tstx")) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2039 (text (or (cdr type-text) "")) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2040 (decode-fun (if (equal (car type-text) "TEXT") |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2041 'mac-TEXT-to-string 'mac-utxt-to-string)) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2042 (script-language (mac-ae-script-language ae "tssl")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2043 (coding (or (cdr (assq (car script-language) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2044 mac-script-code-coding-systems)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2045 'mac-roman)) |
71356
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2046 (fix-len (mac-ae-number ae "tsfx")) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2047 ;; Optional parameters |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2048 (hilite-rng (mac-ae-text-range-array ae "tshi")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2049 (update-rng (mac-ae-text-range-array ae "tsup")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2050 ;;(pin-rng (mac-bytes-to-text-range (cdr (mac-ae-parameter ae "tspn" "txrn")))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2051 ;;(clause-offsets (cdr (mac-ae-parameter ae "tscl" "ofay"))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2052 (seqno (mac-ae-number ae "tsSn")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2053 confirmed) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2054 (unless (= seqno mac-ts-update-active-input-area-seqno) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2055 ;; Reset internal states if sequence number is out of sync. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2056 (setq mac-ts-active-input-buf "")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2057 (setq confirmed |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2058 (mac-ts-update-active-input-buf text fix-len hilite-rng update-rng)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2059 (let ((use-echo-area |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2060 (or isearch-mode |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2061 (and cursor-in-echo-area (current-message)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2062 ;; Overlay strings are not shown in some cases. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2063 (get-char-property (point) 'invisible) |
71500
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2064 (and (not (bobp)) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2065 (or (and (get-char-property (point) 'display) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2066 (eq (get-char-property (1- (point)) 'display) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2067 (get-char-property (point) 'display))) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2068 (and (get-char-property (point) 'composition) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2069 (eq (get-char-property (1- (point)) 'composition) |
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2070 (get-char-property (point) 'composition))))))) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2071 active-input-string caret-seen) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2072 ;; Decode the active input area text with inheriting faces and |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2073 ;; the caret position. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2074 (setq active-input-string |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2075 (mapconcat |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2076 (lambda (str) |
71500
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2077 (let ((decoded (funcall decode-fun str coding))) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2078 (put-text-property 0 (length decoded) 'face |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2079 (get-text-property 0 'face str) decoded) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2080 (when (and (not caret-seen) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2081 (get-text-property 0 'cursor str)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2082 (setq caret-seen t) |
71500
fd5f866a10be
(mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71356
diff
changeset
|
2083 (if (or use-echo-area (null cursor-type)) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2084 (put-text-property 0 1 'face 'mac-ts-caret-position |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2085 decoded) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2086 (put-text-property 0 1 'cursor t decoded))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2087 decoded)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2088 (mac-split-string-by-property-change mac-ts-active-input-buf) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2089 "")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2090 (put-text-property 0 (length active-input-string) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2091 'mac-ts-active-input-string t active-input-string) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2092 (if use-echo-area |
71356
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2093 (let ((msg (current-message)) |
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2094 message-log-max) |
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2095 (if (and msg |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2096 ;; Don't get confused by previously displayed |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2097 ;; `active-input-string'. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2098 (null (get-text-property 0 'mac-ts-active-input-string |
71356
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2099 msg))) |
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2100 (setq msg (propertize msg 'display |
a183bff9cb83
(mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71175
diff
changeset
|
2101 (concat msg active-input-string))) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2102 (setq msg active-input-string)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2103 (message "%s" msg) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2104 (overlay-put mac-ts-active-input-overlay 'before-string nil)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2105 (move-overlay mac-ts-active-input-overlay |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2106 (point) (point) (current-buffer)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2107 (overlay-put mac-ts-active-input-overlay 'before-string |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2108 active-input-string)) |
74892
b064bb685ef7
(mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74625
diff
changeset
|
2109 (mac-unread-string (funcall decode-fun confirmed coding))) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2110 ;; The event is successfully processed. Sync the sequence number. |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2111 (setq mac-ts-update-active-input-area-seqno (1+ seqno)))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2112 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2113 (defun mac-ts-unicode-for-key-event (event) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2114 "Convert Unicode key EVENT to Emacs key events and unread them." |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2115 (interactive "e") |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2116 (let* ((ae (mac-event-ae event)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2117 (text (cdr (mac-ae-parameter ae "tstx" "utxt"))) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2118 (script-language (mac-ae-script-language ae "tssl")) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2119 (coding (or (cdr (assq (car script-language) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2120 mac-script-code-coding-systems)) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2121 'mac-roman))) |
77659
5e0f43a8e936
(mac-ts-unicode-for-key-event): Check if text is available.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75831
diff
changeset
|
2122 (if text |
5e0f43a8e936
(mac-ts-unicode-for-key-event): Check if text is available.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75831
diff
changeset
|
2123 (mac-unread-string (mac-utxt-to-string text coding))))) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2124 |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2125 ;; kEventClassTextInput/kEventTextInputUpdateActiveInputArea |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2126 (define-key mac-apple-event-map [text-input update-active-input-area] |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2127 'mac-ts-update-active-input-area) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2128 ;; kEventClassTextInput/kEventTextInputUnicodeForKeyEvent |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2129 (define-key mac-apple-event-map [text-input unicode-for-key-event] |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2130 'mac-ts-unicode-for-key-event) |
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2131 |
70491
1ceca94285a6
(mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70429
diff
changeset
|
2132 ;;; Services |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2133 (defun mac-service-open-file () |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
2134 "Open the file specified by the selection value for Services." |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2135 (interactive) |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2136 (find-file-existing (x-selection-value mac-service-selection))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2137 |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2138 (defun mac-service-open-selection () |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
2139 "Create a new buffer containing the selection value for Services." |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2140 (interactive) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2141 (switch-to-buffer (generate-new-buffer "*untitled*")) |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2142 (insert (x-selection-value mac-service-selection)) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2143 (sit-for 0) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2144 (save-buffer) ; It pops up the save dialog. |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2145 ) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2146 |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2147 (defun mac-service-mail-selection () |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
2148 "Prepare a mail buffer containing the selection value for Services." |
64245
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2149 (interactive) |
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2150 (compose-mail) |
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2151 (rfc822-goto-eoh) |
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2152 (forward-line 1) |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2153 (insert (x-selection-value mac-service-selection) "\n")) |
64245
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2154 |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2155 (defun mac-service-mail-to () |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
2156 "Prepare a mail buffer to be sent to the selection value for Services." |
64245
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2157 (interactive) |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2158 (compose-mail (x-selection-value mac-service-selection))) |
64245
4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64084
diff
changeset
|
2159 |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2160 (defun mac-service-insert-text () |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
2161 "Insert the selection value for Services." |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2162 (interactive) |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2163 (let ((text (x-selection-value mac-service-selection))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2164 (if (not buffer-read-only) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2165 (insert text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2166 (kill-new text) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2167 (message |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2168 (substitute-command-keys |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2169 "The text from the Services menu can be accessed with \\[yank]"))))) |
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2170 |
70559
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2171 ;; kEventClassService/kEventServicePaste |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2172 (define-key mac-apple-event-map [service paste] 'mac-service-insert-text) |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2173 ;; kEventClassService/kEventServicePerform |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2174 (define-key mac-apple-event-map [service perform open-file] |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2175 'mac-service-open-file) |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2176 (define-key mac-apple-event-map [service perform open-selection] |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2177 'mac-service-open-selection) |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2178 (define-key mac-apple-event-map [service perform mail-selection] |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2179 'mac-service-mail-selection) |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2180 (define-key mac-apple-event-map [service perform mail-to] |
a1af34eacdb3
(mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70491
diff
changeset
|
2181 'mac-service-mail-to) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2182 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2183 (defun mac-dispatch-apple-event (event) |
67662
db9106933641
(mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67487
diff
changeset
|
2184 "Dispatch EVENT according to the keymap `mac-apple-event-map'." |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2185 (interactive "e") |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2186 (let* ((binding (lookup-key mac-apple-event-map (mac-event-spec event))) |
70870
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2187 (ae (mac-event-ae event)) |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2188 (service-message (and (keymapp binding) |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2189 (cdr (mac-ae-parameter ae "svmg"))))) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2190 (when service-message |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2191 (setq service-message |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2192 (intern (decode-coding-string service-message 'utf-8))) |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2193 (setq binding (lookup-key binding (vector service-message)))) |
68035
a9b674b9cf4c
(mac-ae-parameter): Don't coerce data if it is
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67662
diff
changeset
|
2194 ;; Replace (cadr event) with a dummy position so that event-start |
a9b674b9cf4c
(mac-ae-parameter): Don't coerce data if it is
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67662
diff
changeset
|
2195 ;; returns it. |
a9b674b9cf4c
(mac-ae-parameter): Don't coerce data if it is
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67662
diff
changeset
|
2196 (setcar (cdr event) (list (selected-window) (point) '(0 . 0) 0)) |
70870
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2197 (if (null (mac-ae-parameter ae 'emacs-suspension-id)) |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2198 (command-execute binding nil (vector event) t) |
70870
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2199 (condition-case err |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2200 (progn |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2201 (command-execute binding nil (vector event) t) |
70870
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2202 (mac-resume-apple-event ae)) |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2203 (error |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2204 (mac-ae-set-reply-parameter ae "errs" |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2205 (cons "TEXT" (error-message-string err))) |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2206 (mac-resume-apple-event ae -10000)))))) ; errAEEventFailed |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2207 |
71175
ed68e074ebb4
(mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70870
diff
changeset
|
2208 (define-key special-event-map [mac-apple-event] 'mac-dispatch-apple-event) |
67450
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2209 |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2210 ;; Processing of Apple events are deferred at the startup time. For |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2211 ;; example, files dropped onto the Emacs application icon can only be |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2212 ;; processed when the initial frame has been created: this is where |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2213 ;; the files should be opened. |
fa74deeadab8
Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67099
diff
changeset
|
2214 (add-hook 'after-init-hook 'mac-process-deferred-apple-events) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2215 |
70870
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2216 (run-with-idle-timer 5 t 'mac-cleanup-expired-apple-events) |
e5af358ce93a
Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70763
diff
changeset
|
2217 |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2218 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2219 ;;;; Drag and drop |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2220 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2221 (defcustom mac-dnd-types-alist |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2222 '(("furl" . mac-dnd-handle-furl) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2223 ("hfs " . mac-dnd-handle-hfs) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2224 ("utxt" . mac-dnd-insert-utxt) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2225 ("TEXT" . mac-dnd-insert-TEXT) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2226 ("TIFF" . mac-dnd-insert-TIFF)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2227 "Which function to call to handle a drop of that type. |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2228 The function takes three arguments, WINDOW, ACTION and DATA. |
75142
1e951eb6473e
(mac-dnd-types-alist): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
74892
diff
changeset
|
2229 WINDOW is where the drop occurred, ACTION is always `private' on |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2230 Mac. DATA is the drop data. Unlike the x-dnd counterpart, the |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2231 return value of the function is not significant. |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2232 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2233 See also `mac-dnd-known-types'." |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2234 :version "22.1" |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2235 :type 'alist |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2236 :group 'mac) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2237 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2238 (defun mac-dnd-handle-furl (window action data) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2239 (dnd-handle-one-url window action (mac-furl-to-string data))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2240 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2241 (defun mac-dnd-handle-hfs (window action data) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2242 ;; struct HFSFlavor { |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2243 ;; OSType fileType; |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2244 ;; OSType fileCreator; |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2245 ;; UInt16 fdFlags; |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2246 ;; FSSpec fileSpec; |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2247 ;; }; |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2248 (let* ((file-name (mac-coerce-ae-data "fss " (substring data 10) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2249 'undecoded-file-name)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2250 (url (concat "file://" |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2251 (mapconcat 'url-hexify-string |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2252 (split-string file-name "/") "/")))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2253 (dnd-handle-one-url window action url))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2254 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2255 (defun mac-dnd-insert-utxt (window action data) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2256 (dnd-insert-text window action (mac-utxt-to-string data))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2257 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2258 (defun mac-dnd-insert-TEXT (window action data) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2259 (dnd-insert-text window action (mac-TEXT-to-string data))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2260 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2261 (defun mac-dnd-insert-TIFF (window action data) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2262 (dnd-insert-text window action (mac-TIFF-to-string data))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2263 |
75375
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2264 (defun mac-dnd-drop-data (event frame window data type &optional action) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2265 (or action (setq action 'private)) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2266 (let* ((type-info (assoc type mac-dnd-types-alist)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2267 (handler (cdr type-info)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2268 (w (posn-window (event-start event)))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2269 (when handler |
81393
279fdeaf242c
(mac-dnd-drop-data): Remove redundant check.
Juanma Barranquero <lekktu@gmail.com>
parents:
77659
diff
changeset
|
2270 (if (and (window-live-p w) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2271 (not (window-minibuffer-p w)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2272 (not (window-dedicated-p w))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2273 ;; If dropping in an ordinary window which we could use, |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2274 ;; let dnd-open-file-other-window specify what to do. |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2275 (progn |
72536
59670fc88353
(mac-apple-event-map): Rename hicommand to hi-command.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71500
diff
changeset
|
2276 (when (not mouse-yank-at-point) |
59670fc88353
(mac-apple-event-map): Rename hicommand to hi-command.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71500
diff
changeset
|
2277 (goto-char (posn-point (event-start event)))) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2278 (funcall handler window action data)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2279 ;; If we can't display the file here, |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2280 ;; make a new window for it. |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2281 (let ((dnd-open-file-other-window t)) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2282 (select-frame frame) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2283 (funcall handler window action data)))))) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2284 |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2285 (defun mac-dnd-handle-drag-n-drop-event (event) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2286 "Receive drag and drop events." |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2287 (interactive "e") |
75375
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2288 (let ((window (posn-window (event-start event))) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2289 (ae (mac-event-ae event)) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2290 action) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2291 (when (windowp window) (select-window window)) |
75375
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2292 (if (memq 'option (mac-ae-keyboard-modifiers ae)) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2293 (setq action 'copy)) |
2d3bcf670390
(mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75347
diff
changeset
|
2294 (dolist (item (mac-ae-list ae)) |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2295 (if (not (equal (car item) "null")) |
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2296 (mac-dnd-drop-data event (selected-frame) window |
75831
906e93bebe5f
Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75375
diff
changeset
|
2297 (cdr item) (car item) action))))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2298 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2299 (defvar mac-font-encoder-list |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2300 '(("mac-roman" mac-roman-encoder |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2301 ccl-encode-mac-roman-font "%s") |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
2302 ("mac-centraleurroman" encode-mac-centraleurroman |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2303 ccl-encode-mac-centraleurroman-font "%s ce") |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
2304 ("mac-cyrillic" encode-mac-cyrillic |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2305 ccl-encode-mac-cyrillic-font "%s cy") |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2306 ("mac-symbol" mac-symbol-encoder |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2307 ccl-encode-mac-symbol-font "symbol") |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2308 ("mac-dingbats" mac-dingbats-encoder |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2309 ccl-encode-mac-dingbats-font "zapf dingbats"))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2310 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2311 (let ((encoder-list |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2312 (mapcar (lambda (lst) (nth 1 lst)) mac-font-encoder-list)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2313 (charset-list |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2314 '(latin-iso8859-2 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2315 latin-iso8859-3 latin-iso8859-4 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2316 cyrillic-iso8859-5 greek-iso8859-7 hebrew-iso8859-8 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2317 latin-iso8859-9 latin-iso8859-14 latin-iso8859-15))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2318 (dolist (encoder encoder-list) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2319 (let ((table (get encoder 'translation-table))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2320 (dolist (charset charset-list) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2321 (dotimes (i 96) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2322 (let* ((c (make-char charset (+ i 32))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2323 (mu (aref ucs-mule-to-mule-unicode c)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2324 (mac-encoded (and mu (aref table mu)))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2325 (if mac-encoded |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2326 (aset table c mac-encoded)))))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2327 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2328 ;; We assume none of official dim2 charsets (0x90..0x99) are encoded |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2329 ;; to these fonts. |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2330 |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
2331 (define-ccl-program ccl-encode-mac-roman-font |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
2332 `(0 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2333 (if (r0 <= ?\xef) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2334 (translate-character mac-roman-encoder r0 r1) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2335 ((r1 <<= 7) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2336 (r1 |= r2) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2337 (translate-character mac-roman-encoder r0 r1)))) |
61502
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
2338 "CCL program for Mac Roman font") |
3150e849361e
(kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61497
diff
changeset
|
2339 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2340 (define-ccl-program ccl-encode-mac-centraleurroman-font |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2341 `(0 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2342 (if (r0 <= ?\xef) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2343 (translate-character encode-mac-centraleurroman r0 r1) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2344 ((r1 <<= 7) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2345 (r1 |= r2) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2346 (translate-character encode-mac-centraleurroman r0 r1)))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2347 "CCL program for Mac Central European Roman font") |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2348 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2349 (define-ccl-program ccl-encode-mac-cyrillic-font |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2350 `(0 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2351 (if (r0 <= ?\xef) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2352 (translate-character encode-mac-cyrillic r0 r1) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2353 ((r1 <<= 7) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2354 (r1 |= r2) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2355 (translate-character encode-mac-cyrillic r0 r1)))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2356 "CCL program for Mac Cyrillic font") |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2357 |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2358 (define-ccl-program ccl-encode-mac-symbol-font |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2359 `(0 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2360 (if (r0 <= ?\xef) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2361 (translate-character mac-symbol-encoder r0 r1) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2362 ((r1 <<= 7) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2363 (r1 |= r2) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2364 (translate-character mac-symbol-encoder r0 r1)))) |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2365 "CCL program for Mac Symbol font") |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2366 |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2367 (define-ccl-program ccl-encode-mac-dingbats-font |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2368 `(0 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2369 (if (r0 <= ?\xef) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2370 (translate-character mac-dingbats-encoder r0 r1) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2371 ((r1 <<= 7) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2372 (r1 |= r2) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2373 (translate-character mac-dingbats-encoder r0 r1)))) |
61659
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2374 "CCL program for Mac Dingbats font") |
e40b2bd9a366
Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61556
diff
changeset
|
2375 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2376 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2377 (setq font-ccl-encoder-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2378 (nconc |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2379 (mapcar (lambda (lst) (cons (nth 0 lst) (nth 2 lst))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2380 mac-font-encoder-list) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2381 font-ccl-encoder-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2382 |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2383 (defconst mac-char-fontspec-list |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2384 ;; Directly operate on a char-table instead of a fontset so that it |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2385 ;; may not create a dummy fontset. |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2386 (let ((template (make-char-table 'fontset))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2387 (dolist |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2388 (font-encoder |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2389 (nreverse |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2390 (mapcar (lambda (lst) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2391 (cons (cons (nth 3 lst) (nth 0 lst)) (nth 1 lst))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2392 mac-font-encoder-list))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2393 (let ((font (car font-encoder)) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2394 (encoder (cdr font-encoder))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2395 (map-char-table |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2396 (lambda (key val) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2397 (or (null val) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2398 (generic-char-p key) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2399 (memq (char-charset key) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2400 '(ascii eight-bit-control eight-bit-graphic)) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2401 (aset template key font))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2402 (get encoder 'translation-table)))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2403 |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2404 ;; Like fontset-info, but extend a range only if its "to" part is |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2405 ;; the predecessor of the current char. |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2406 (let* ((last '((0 nil))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2407 (accumulator last) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2408 last-char-or-range last-char last-elt) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2409 (map-char-table |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2410 (lambda (char elt) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2411 (when elt |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2412 (setq last-char-or-range (car (car last)) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2413 last-char (if (consp last-char-or-range) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2414 (cdr last-char-or-range) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2415 last-char-or-range) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2416 last-elt (cdr (car last))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2417 (if (and (eq elt last-elt) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2418 (= char (1+ last-char)) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2419 (eq (char-charset char) (char-charset last-char))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2420 (if (consp last-char-or-range) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2421 (setcdr last-char-or-range char) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2422 (setcar (car last) (cons last-char char))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2423 (setcdr last (list (cons char elt))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2424 (setq last (cdr last))))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2425 template) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2426 (cdr accumulator)))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2427 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2428 (defun fontset-add-mac-fonts (fontset &optional base-family) |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2429 "Add font-specs for Mac fonts to FONTSET. |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2430 The added font-specs are determined by BASE-FAMILY and the value |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2431 of `mac-char-fontspec-list', which is a list |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2432 of (CHARACTER-OR-RANGE . (FAMILY-FORMAT . REGISTRY)). If |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2433 BASE-FAMILY is nil, the font family in the added font-specs is |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2434 also nil. If BASE-FAMILY is a string, `%s' in FAMILY-FORMAT is |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2435 replaced with the string. Otherwise, `%s' in FAMILY-FORMAT is |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2436 replaced with the ASCII font family name in FONTSET." |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2437 (if base-family |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2438 (if (stringp base-family) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2439 (setq base-family (downcase base-family)) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2440 (let ((ascii-font (fontset-font fontset (charset-id 'ascii)))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2441 (if ascii-font |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2442 (setq base-family |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2443 (aref (x-decompose-font-name |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2444 (downcase (x-resolve-font-name ascii-font))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2445 xlfd-regexp-family-subnum)))))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2446 (let (fontspec-cache fontspec) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2447 (dolist (char-fontspec mac-char-fontspec-list) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2448 (setq fontspec (cdr (assq (cdr char-fontspec) fontspec-cache))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2449 (when (null fontspec) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2450 (setq fontspec |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2451 (cons (and base-family |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2452 (format (car (cdr char-fontspec)) base-family)) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2453 (cdr (cdr char-fontspec)))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2454 (setq fontspec-cache (cons (cons (cdr char-fontspec) fontspec) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2455 fontspec-cache))) |
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2456 (set-fontset-font fontset (car char-fontspec) fontspec)))) |
61778
1b44d34506e4
Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61680
diff
changeset
|
2457 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2458 (defun create-fontset-from-mac-roman-font (font &optional resolved-font |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2459 fontset-name) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2460 "Create a fontset from a Mac roman font FONT. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2461 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2462 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2463 omitted, `x-resolve-font-name' is called to get the resolved name. At |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2464 this time, if FONT is not available, error is signaled. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2465 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2466 Optional 2nd arg FONTSET-NAME is a string to be used in |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2467 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2468 an appropriate name is generated automatically. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2469 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2470 It returns a name of the created fontset." |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2471 (let ((fontset |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2472 (create-fontset-from-ascii-font font resolved-font fontset-name))) |
64275
a6a8c13a3caa
(ccl-encode-mac-roman-font, ccl-encode-mac-centraleurroman-font)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64245
diff
changeset
|
2473 (fontset-add-mac-fonts fontset t) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2474 fontset)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2475 |
83620
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2476 (defun x-win-suspend-error () |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2477 (error "Suspending an Emacs running under Mac makes no sense")) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2478 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2479 (defalias 'x-cut-buffer-or-selection-value 'x-get-selection-value) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2480 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2481 (defvar mac-initialized nil |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2482 "Non-nil if the w32 window system has been initialized.") |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2483 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2484 (defun mac-initialize-window-system () |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2485 "Initialize Emacs for Mac GUI frames." |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2486 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2487 ;;; Do the actual Windows setup here; the above code just defines |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2488 ;;; functions and variables that we use now. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2489 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2490 (setq command-line-args (x-handle-args command-line-args)) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2491 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2492 ;;; Make sure we have a valid resource name. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2493 (or (stringp x-resource-name) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2494 (let (i) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2495 (setq x-resource-name (invocation-name)) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2496 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2497 ;; Change any . or * characters in x-resource-name to hyphens, |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2498 ;; so as not to choke when we use it in X resource queries. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2499 (while (setq i (string-match "[.*]" x-resource-name)) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2500 (aset x-resource-name i ?-)))) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2501 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2502 (if (x-display-list) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2503 ;; On Mac OS 8/9, Most coding systems used in code conversion for |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2504 ;; font names are not ready at the time when the terminal frame is |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2505 ;; created. So we reconstruct font name table for the initial |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2506 ;; frame. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2507 (mac-clear-font-name-table) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2508 (x-open-connection "Mac" |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2509 x-command-line-resources |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2510 ;; Exit Emacs with fatal error if this fails. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2511 t)) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2512 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2513 (add-hook 'suspend-hook 'x-win-suspend-error) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2514 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2515 ;;; Arrange for the kill and yank functions to set and check the clipboard. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2516 (setq interprogram-cut-function 'x-select-text) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2517 (setq interprogram-paste-function 'x-get-selection-value) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2518 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2519 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2520 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2521 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2522 ;;; Turn off window-splitting optimization; Mac is usually fast enough |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2523 ;;; that this is only annoying. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2524 (setq split-window-keep-point t) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2525 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2526 ;; Don't show the frame name; that's redundant. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2527 (setq-default mode-line-frame-identification " ") |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2528 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2529 ;; Turn on support for mouse wheels. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2530 (mouse-wheel-mode 1) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2531 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2532 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2533 ;; Enable CLIPBOARD copy/paste through menu bar commands. |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2534 (menu-bar-enable-clipboard) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2535 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2536 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2537 ;; Initiate drag and drop |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2538 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2539 (define-key special-event-map [drag-n-drop] 'mac-dnd-handle-drag-n-drop-event) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2540 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2541 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2542 ;;;; Non-toolkit Scroll bars |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2543 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2544 (unless x-toolkit-scroll-bars |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2545 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2546 ;; for debugging |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2547 ;; (defun mac-handle-scroll-bar-event (event) (interactive "e") (princ event)) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2548 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2549 ;;(global-set-key [vertical-scroll-bar mouse-1] 'mac-handle-scroll-bar-event) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2550 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2551 (global-set-key |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2552 [vertical-scroll-bar down-mouse-1] |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2553 'mac-handle-scroll-bar-event) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2554 |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2555 (global-unset-key [vertical-scroll-bar drag-mouse-1]) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2556 (global-unset-key [vertical-scroll-bar mouse-1]) |
ce4352d8bee9
* loadup.el: Load mac-win on a Mac. Avoid loading both x-win and
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83619
diff
changeset
|
2557 |
69671
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2558 ;; Adjust Courier font specifications in x-fixed-font-alist. |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2559 (let ((courier-fonts (assoc "Courier" x-fixed-font-alist))) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2560 (if courier-fonts |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2561 (dolist (label-fonts (cdr courier-fonts)) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2562 (setcdr label-fonts |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2563 (mapcar |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2564 (lambda (font) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2565 (if (string-match "\\`-adobe-courier-\\([^-]*\\)-\\(.\\)-\\(.*\\)-iso8859-1\\'" font) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2566 (replace-match |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2567 (if (string= (match-string 2 font) "o") |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2568 "-*-courier-\\1-i-\\3-*-*" |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2569 "-*-courier-\\1-\\2-\\3-*-*") |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2570 t nil font) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2571 font)) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2572 (cdr label-fonts)))))) |
e9b0a8e10992
Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68766
diff
changeset
|
2573 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2574 ;; Setup the default fontset. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2575 (setup-default-fontset) |
74625
1fb421aafa71
(mac-atsu-font-table): Remove defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74509
diff
changeset
|
2576 (cond ((x-list-fonts "*-iso10646-1" nil nil 1) |
65768
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2577 ;; Use ATSUI (if available) for the following charsets. |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2578 (dolist |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2579 (charset '(latin-iso8859-1 |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2580 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2581 thai-tis620 greek-iso8859-7 arabic-iso8859-6 |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2582 hebrew-iso8859-8 cyrillic-iso8859-5 |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2583 latin-iso8859-9 latin-iso8859-15 latin-iso8859-14 |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2584 japanese-jisx0212 chinese-sisheng ipa |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2585 vietnamese-viscii-lower vietnamese-viscii-upper |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2586 lao ethiopic tibetan)) |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2587 (set-fontset-font nil charset '(nil . "iso10646-1")))) |
74625
1fb421aafa71
(mac-atsu-font-table): Remove defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74509
diff
changeset
|
2588 ((null (x-list-fonts "*-iso8859-1" nil nil 1)) |
65768
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2589 ;; Add Mac-encoding fonts unless ETL fonts are installed. |
592847746fca
Add charset info for "iso10646-1". Modify default fontset to use
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65576
diff
changeset
|
2590 (fontset-add-mac-fonts "fontset-default"))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2591 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2592 ;; Create a fontset that uses mac-roman font. With this fontset, |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2593 ;; characters decoded from mac-roman encoding (ascii, latin-iso8859-1, |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2594 ;; and mule-unicode-xxxx-yyyy) are displayed by a mac-roman font. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2595 (create-fontset-from-fontset-spec |
68766
2504c69a2b9f
(fontset-standard): Rename from "fontset-mac".
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68648
diff
changeset
|
2596 "-etl-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard, |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2597 ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") |
68766
2504c69a2b9f
(fontset-standard): Rename from "fontset-mac".
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
68648
diff
changeset
|
2598 (fontset-add-mac-fonts "fontset-standard" t) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2599 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2600 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2601 (create-fontset-from-x-resource) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2602 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2603 ;; Try to create a fontset from a font specification which comes |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2604 ;; from initial-frame-alist, default-frame-alist, or X resource. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2605 ;; A font specification in command line argument (i.e. -fn XXXX) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2606 ;; should be already in default-frame-alist as a `font' |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2607 ;; parameter. However, any font specifications in site-start |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2608 ;; library, user's init file (.emacs), and default.el are not |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2609 ;; yet handled here. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2610 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2611 (let ((font (or (cdr (assq 'font initial-frame-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2612 (cdr (assq 'font default-frame-alist)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2613 (x-get-resource "font" "Font"))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2614 xlfd-fields resolved-name) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2615 (if (and font |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2616 (not (query-fontset font)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2617 (setq resolved-name (x-resolve-font-name font)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2618 (setq xlfd-fields (x-decompose-font-name font))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2619 (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2620 (new-fontset font (x-complement-fontset-spec xlfd-fields nil)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2621 ;; Create a fontset from FONT. The fontset name is |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2622 ;; generated from FONT. |
61335
de40dfe68257
Use create-fontset-from-mac-roman-font to create the startup fontset
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60620
diff
changeset
|
2623 (if (and (string= "mac" (aref xlfd-fields xlfd-regexp-registry-subnum)) |
de40dfe68257
Use create-fontset-from-mac-roman-font to create the startup fontset
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60620
diff
changeset
|
2624 (string= "roman" (aref xlfd-fields xlfd-regexp-encoding-subnum))) |
de40dfe68257
Use create-fontset-from-mac-roman-font to create the startup fontset
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60620
diff
changeset
|
2625 (create-fontset-from-mac-roman-font font resolved-name "startup") |
de40dfe68257
Use create-fontset-from-mac-roman-font to create the startup fontset
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
60620
diff
changeset
|
2626 (create-fontset-from-ascii-font font resolved-name "startup"))))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2627 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2628 ;; Apply a geometry resource to the initial frame. Put it at the end |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2629 ;; of the alist, so that anything specified on the command line takes |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2630 ;; precedence. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2631 (let* ((res-geometry (x-get-resource "geometry" "Geometry")) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2632 parsed) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2633 (if res-geometry |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2634 (progn |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2635 (setq parsed (x-parse-geometry res-geometry)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2636 ;; If the resource specifies a position, |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2637 ;; call the position and size "user-specified". |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2638 (if (or (assq 'top parsed) (assq 'left parsed)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2639 (setq parsed (cons '(user-position . t) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2640 (cons '(user-size . t) parsed)))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2641 ;; All geometry parms apply to the initial frame. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2642 (setq initial-frame-alist (append initial-frame-alist parsed)) |
73431
246a1d48fea4
*** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72703
diff
changeset
|
2643 ;; The size parms apply to all frames. Don't set it if there are |
246a1d48fea4
*** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72703
diff
changeset
|
2644 ;; sizes there already (from command line). |
246a1d48fea4
*** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72703
diff
changeset
|
2645 (if (and (assq 'height parsed) |
246a1d48fea4
*** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72703
diff
changeset
|
2646 (not (assq 'height default-frame-alist))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2647 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2648 (cons (cons 'height (cdr (assq 'height parsed))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2649 default-frame-alist))) |
73431
246a1d48fea4
*** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72703
diff
changeset
|
2650 (if (and (assq 'width parsed) |
246a1d48fea4
*** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72703
diff
changeset
|
2651 (not (assq 'width default-frame-alist))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2652 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2653 (cons (cons 'width (cdr (assq 'width parsed))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2654 default-frame-alist)))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2655 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2656 ;; Check the reverseVideo resource. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2657 (let ((case-fold-search t)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2658 (let ((rv (x-get-resource "reverseVideo" "ReverseVideo"))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2659 (if (and rv |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2660 (string-match "^\\(true\\|yes\\|on\\)$" rv)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2661 (setq default-frame-alist |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2662 (cons '(reverse . t) default-frame-alist))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2663 |
83619
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2664 (setq mac-initialized t))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2665 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2666 (defun mac-handle-scroll-bar-event (event) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2667 "Handle scroll bar EVENT to emulate Mac Toolbox style scrolling." |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2668 (interactive "e") |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2669 (let* ((position (event-start event)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2670 (window (nth 0 position)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2671 (bar-part (nth 4 position))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2672 (select-window window) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2673 (cond |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2674 ((eq bar-part 'up) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2675 (goto-char (window-start window)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2676 (mac-scroll-down-line)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2677 ((eq bar-part 'above-handle) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2678 (mac-scroll-down)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2679 ((eq bar-part 'handle) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2680 (scroll-bar-drag event)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2681 ((eq bar-part 'below-handle) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2682 (mac-scroll-up)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2683 ((eq bar-part 'down) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2684 (goto-char (window-start window)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2685 (mac-scroll-up-line))))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2686 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2687 (defun mac-scroll-ignore-events () |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2688 ;; Ignore confusing non-mouse events |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2689 (while (not (memq (car-safe (read-event)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2690 '(mouse-1 double-mouse-1 triple-mouse-1))) nil)) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2691 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2692 (defun mac-scroll-down () |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2693 (track-mouse |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2694 (mac-scroll-ignore-events) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2695 (scroll-down))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2696 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2697 (defun mac-scroll-down-line () |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2698 (track-mouse |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2699 (mac-scroll-ignore-events) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2700 (scroll-down 1))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2701 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2702 (defun mac-scroll-up () |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2703 (track-mouse |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2704 (mac-scroll-ignore-events) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2705 (scroll-up))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2706 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2707 (defun mac-scroll-up-line () |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2708 (track-mouse |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2709 (mac-scroll-ignore-events) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2710 (scroll-up 1))) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2711 |
70379
8a0284e52e27
(mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
70298
diff
changeset
|
2712 |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2713 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2714 ;;;; Others |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2715 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2716 (unless (eq system-type 'darwin) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2717 ;; This variable specifies the Unix program to call (as a process) to |
60190
e7acbfa92707
(function-key-map): Use char-names more consistently.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59658
diff
changeset
|
2718 ;; determine the amount of free space on a file system (defaults to |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2719 ;; df). If it is not set to nil, ls-lisp will not work correctly |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2720 ;; unless an external application df is implemented on the Mac. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2721 (setq directory-free-space-program nil) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2722 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2723 ;; Set this so that Emacs calls subprocesses with "sh" as shell to |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2724 ;; expand filenames Note no subprocess for the shell is actually |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2725 ;; started (see run_mac_command in sysdep.c). |
60190
e7acbfa92707
(function-key-map): Use char-names more consistently.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59658
diff
changeset
|
2726 (setq shell-file-name "sh") |
e7acbfa92707
(function-key-map): Use char-names more consistently.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59658
diff
changeset
|
2727 |
61556
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
2728 ;; Some system variables are encoded with the system script code. |
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
2729 (dolist (v '(system-name |
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
2730 emacs-build-system ; Mac OS 9 version cannot dump |
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
2731 user-login-name user-real-login-name user-full-name)) |
6b15c97abf1d
Don't set file-name-coding-system. Decode variables system-name,
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61502
diff
changeset
|
2732 (set v (decode-coding-string (symbol-value v) mac-system-coding-system)))) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2733 |
67090
a9abf9b53bef
Don't change default directory.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66107
diff
changeset
|
2734 ;; Now the default directory is changed to the user's home directory |
a9abf9b53bef
Don't change default directory.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66107
diff
changeset
|
2735 ;; in emacs.c if invoked from the WindowServer (with -psn_* option). |
a9abf9b53bef
Don't change default directory.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66107
diff
changeset
|
2736 ;; (if (string= default-directory "/") |
a9abf9b53bef
Don't change default directory.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66107
diff
changeset
|
2737 ;; (cd "~")) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2738 |
59658
45074d913d23
* editfns.c (Voperating_system_release): Added.
Steven Tamm <steventamm@mac.com>
parents:
59645
diff
changeset
|
2739 ;; Darwin 6- pty breakage is now controlled from the C code so that |
45074d913d23
* editfns.c (Voperating_system_release): Added.
Steven Tamm <steventamm@mac.com>
parents:
59645
diff
changeset
|
2740 ;; it applies to all builds on darwin. See s/darwin.h PTY_ITERATION. |
45074d913d23
* editfns.c (Voperating_system_release): Added.
Steven Tamm <steventamm@mac.com>
parents:
59645
diff
changeset
|
2741 ;; (setq process-connection-type t) |
59144
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2742 |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2743 ;; Assume that fonts are always scalable on the Mac. This sometimes |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2744 ;; results in characters with jagged edges. However, without it, |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2745 ;; fonts with both truetype and bitmap representations but no italic |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2746 ;; or bold bitmap versions will not display these variants correctly. |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2747 (setq scalable-fonts-allowed t) |
8d9ea622c741
* term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents:
59034
diff
changeset
|
2748 |
83619
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2749 (add-to-list 'handle-args-function-alist '(mac . x-handle-args)) |
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2750 (add-to-list 'frame-creation-function-alist '(mac . x-create-frame-with-faces)) |
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2751 (add-to-list 'window-system-initialization-alist '(mac . mac-initialize-window-system)) |
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2752 |
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2753 (provide 'mac-win) |
5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83565
diff
changeset
|
2754 |
60190
e7acbfa92707
(function-key-map): Use char-names more consistently.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59658
diff
changeset
|
2755 ;; arch-tag: 71dfcd14-cde8-4d66-b05c-85ec94fb23a6 |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff
changeset
|
2756 ;;; mac-win.el ends here |