annotate lisp/term/mac-win.el @ 77741:d6bccf97e3e1

Regenerate.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 17 May 2007 18:54:46 +0000
parents 5e0f43a8e936
children 030ae62d5c57 279fdeaf242c 41aaac7180d5 d7172f202ab8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
f7702c5f335d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 73431
diff changeset
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 75238
diff changeset
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
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
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
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
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
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
68 (if (not (eq window-system 'mac))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
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)
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
79 (eval-when-compile (require 'url))
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
80
65256
eb3fe804bd18 (mac-charset-info-alist, mac-services-selection, mac-system-script-code):
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
81 (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
82 (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
83 (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
84 (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
85 (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
86 (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
87 (defvar x-invocation-args)
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
88
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
89 (defvar x-command-line-resources nil)
56887
25a1d37d22fb Add ASCII equivalents for some function keys.
Steven Tamm <steventamm@mac.com>
parents: 56373
diff changeset
90
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
91 ;; 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
92 (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
93 (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
94 (if aelt
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
95 (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
96 (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
97 (if value
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
98 (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
99 (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
100 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 (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
102 (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
103 (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
104 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
105 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
106
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
107 ;; 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
108 (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
109 (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
110 (if aelt
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
111 (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
112 (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
113 (cons (cons param
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62291
diff changeset
114 (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
115 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
116 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
117 (cdr x-invocation-args))))))
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
118
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
119 ;; 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
120 (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
121 (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
122 (if aelt
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
123 (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
124 (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
125 (if value
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
126 (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
127 (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
128 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 (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
130 (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
131 (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
132 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
133 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
134
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
135 ;; 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
136 (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
137 (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
138 (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
139
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
140 ;; 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
141 (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
142 (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
143 (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
144 (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
145 (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
146 (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 (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
148 (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
149
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
150 ;; 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
151 (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
152 (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
153 (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
154 (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
155 (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
156 (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
157 (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
158 (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
159 (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
160 '((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
161 (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
162 (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
163 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 (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
165 '((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
166 (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
167 (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
168 (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
169 (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
170 (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
171 '((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
172 (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
173 (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
174 (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
175
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
176 ;; 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
177 ;; 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
178 ;; 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
179 (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
180 (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
181 (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
182 (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
183 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
184 (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
185 initial-frame-alist)))
58644
14b3f432fd7e * term/mac-win.el (ccl-encode-mac-roman-font)
Steven Tamm <steventamm@mac.com>
parents: 56887
diff changeset
186
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
187 (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
188 "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
189
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
190 (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
191 (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
192 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
193
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
194 (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
195 "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
196 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
197 `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
198 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
199 \(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
200 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
201 ;; 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
202 (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
203 args nil)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
204 (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
205 (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
206 (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
207 (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
208 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
209 (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
210 ;; 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
211 ;; 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
212 (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
213 (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
214 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
215 ;; 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
216 (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
217 (progn
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
218 (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
219 (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
220 ;; 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
221 nil
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
222 (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
223 (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
224 ;; 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
225 (or elt
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
226 (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
227 (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
228 (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
229 (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
230 (if handler
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
231 (if argval
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
232 (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
233 (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
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 (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
236 (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
237 (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
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 ;;
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
241 ;; Standard Mac cursor shapes
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
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
244 (defconst mac-pointer-arrow 0)
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
245 (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
246 (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
247 (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
248 (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
249 (defconst mac-pointer-cross 5)
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
250 (defconst mac-pointer-plus 6)
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
251 (defconst mac-pointer-watch 7)
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
252 (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
253 (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
254 (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
255 (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
256 (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
257 (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
258 (defconst mac-pointer-spinning 14)
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
259 (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
260 (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
261 (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
262 ;; 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
263 (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
264 ;; 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
265 (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
266 (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
267 (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
268 (defconst mac-pointer-poof 22)
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 ;;
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
271 ;; 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
272 ;;
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
273
ffb5c0421a14 Add mouse pointer shape constants.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60610
diff changeset
274 (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
275 (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
276 (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
277 (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
278 (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
279 (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
280 (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
281 (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
282 (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
283 (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
284 (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
285 (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
286
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
287
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
288 ;;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
289 ;; Available colors
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
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
292 (defvar x-colors '("LightGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
293 "light green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
294 "DarkRed"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
295 "dark red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
296 "DarkMagenta"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
297 "dark magenta"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
298 "DarkCyan"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
299 "dark cyan"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
300 "DarkBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
301 "dark blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
302 "DarkGray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
303 "dark gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
304 "DarkGrey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
305 "dark grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
306 "grey100"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
307 "gray100"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
308 "grey99"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
309 "gray99"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
310 "grey98"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
311 "gray98"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
312 "grey97"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
313 "gray97"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
314 "grey96"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
315 "gray96"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
316 "grey95"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
317 "gray95"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
318 "grey94"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
319 "gray94"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
320 "grey93"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
321 "gray93"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
322 "grey92"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
323 "gray92"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
324 "grey91"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
325 "gray91"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
326 "grey90"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
327 "gray90"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
328 "grey89"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
329 "gray89"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
330 "grey88"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
331 "gray88"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
332 "grey87"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
333 "gray87"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
334 "grey86"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
335 "gray86"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
336 "grey85"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
337 "gray85"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
338 "grey84"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
339 "gray84"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
340 "grey83"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
341 "gray83"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
342 "grey82"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
343 "gray82"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
344 "grey81"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
345 "gray81"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
346 "grey80"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
347 "gray80"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
348 "grey79"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
349 "gray79"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
350 "grey78"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
351 "gray78"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
352 "grey77"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
353 "gray77"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
354 "grey76"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
355 "gray76"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
356 "grey75"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
357 "gray75"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
358 "grey74"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
359 "gray74"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
360 "grey73"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
361 "gray73"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
362 "grey72"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
363 "gray72"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
364 "grey71"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
365 "gray71"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
366 "grey70"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
367 "gray70"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
368 "grey69"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
369 "gray69"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
370 "grey68"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
371 "gray68"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
372 "grey67"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
373 "gray67"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
374 "grey66"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
375 "gray66"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
376 "grey65"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
377 "gray65"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
378 "grey64"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
379 "gray64"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
380 "grey63"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
381 "gray63"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
382 "grey62"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
383 "gray62"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
384 "grey61"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
385 "gray61"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
386 "grey60"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
387 "gray60"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
388 "grey59"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
389 "gray59"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
390 "grey58"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
391 "gray58"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
392 "grey57"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
393 "gray57"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
394 "grey56"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
395 "gray56"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
396 "grey55"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
397 "gray55"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
398 "grey54"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
399 "gray54"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
400 "grey53"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
401 "gray53"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
402 "grey52"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
403 "gray52"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
404 "grey51"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
405 "gray51"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
406 "grey50"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
407 "gray50"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
408 "grey49"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
409 "gray49"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
410 "grey48"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
411 "gray48"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
412 "grey47"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
413 "gray47"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
414 "grey46"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
415 "gray46"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
416 "grey45"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
417 "gray45"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
418 "grey44"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
419 "gray44"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
420 "grey43"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
421 "gray43"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
422 "grey42"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
423 "gray42"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
424 "grey41"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
425 "gray41"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
426 "grey40"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
427 "gray40"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
428 "grey39"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
429 "gray39"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
430 "grey38"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
431 "gray38"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
432 "grey37"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
433 "gray37"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
434 "grey36"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
435 "gray36"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
436 "grey35"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
437 "gray35"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
438 "grey34"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
439 "gray34"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
440 "grey33"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
441 "gray33"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
442 "grey32"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
443 "gray32"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
444 "grey31"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
445 "gray31"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
446 "grey30"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
447 "gray30"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
448 "grey29"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
449 "gray29"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
450 "grey28"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
451 "gray28"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
452 "grey27"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
453 "gray27"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
454 "grey26"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
455 "gray26"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
456 "grey25"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
457 "gray25"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
458 "grey24"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
459 "gray24"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
460 "grey23"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
461 "gray23"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
462 "grey22"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
463 "gray22"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
464 "grey21"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
465 "gray21"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
466 "grey20"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
467 "gray20"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
468 "grey19"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
469 "gray19"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
470 "grey18"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
471 "gray18"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
472 "grey17"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
473 "gray17"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
474 "grey16"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
475 "gray16"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
476 "grey15"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
477 "gray15"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
478 "grey14"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
479 "gray14"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
480 "grey13"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
481 "gray13"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
482 "grey12"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
483 "gray12"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
484 "grey11"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
485 "gray11"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
486 "grey10"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
487 "gray10"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
488 "grey9"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
489 "gray9"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
490 "grey8"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
491 "gray8"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
492 "grey7"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
493 "gray7"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
494 "grey6"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
495 "gray6"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
496 "grey5"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
497 "gray5"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
498 "grey4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
499 "gray4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
500 "grey3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
501 "gray3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
502 "grey2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
503 "gray2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
504 "grey1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
505 "gray1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
506 "grey0"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
507 "gray0"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
508 "thistle4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
509 "thistle3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
510 "thistle2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
511 "thistle1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
512 "MediumPurple4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
513 "MediumPurple3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
514 "MediumPurple2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
515 "MediumPurple1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
516 "purple4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
517 "purple3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
518 "purple2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
519 "purple1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
520 "DarkOrchid4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
521 "DarkOrchid3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
522 "DarkOrchid2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
523 "DarkOrchid1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
524 "MediumOrchid4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
525 "MediumOrchid3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
526 "MediumOrchid2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
527 "MediumOrchid1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
528 "plum4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
529 "plum3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
530 "plum2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
531 "plum1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
532 "orchid4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
533 "orchid3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
534 "orchid2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
535 "orchid1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
536 "magenta4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
537 "magenta3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
538 "magenta2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
539 "magenta1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
540 "VioletRed4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
541 "VioletRed3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
542 "VioletRed2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
543 "VioletRed1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
544 "maroon4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
545 "maroon3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
546 "maroon2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
547 "maroon1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
548 "PaleVioletRed4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
549 "PaleVioletRed3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
550 "PaleVioletRed2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
551 "PaleVioletRed1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
552 "LightPink4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
553 "LightPink3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
554 "LightPink2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
555 "LightPink1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
556 "pink4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
557 "pink3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
558 "pink2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
559 "pink1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
560 "HotPink4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
561 "HotPink3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
562 "HotPink2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
563 "HotPink1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
564 "DeepPink4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
565 "DeepPink3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
566 "DeepPink2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
567 "DeepPink1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
568 "red4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
569 "red3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
570 "red2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
571 "red1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
572 "OrangeRed4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
573 "OrangeRed3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
574 "OrangeRed2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
575 "OrangeRed1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
576 "tomato4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
577 "tomato3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
578 "tomato2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
579 "tomato1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
580 "coral4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
581 "coral3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
582 "coral2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
583 "coral1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
584 "DarkOrange4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
585 "DarkOrange3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
586 "DarkOrange2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
587 "DarkOrange1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
588 "orange4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
589 "orange3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
590 "orange2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
591 "orange1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
592 "LightSalmon4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
593 "LightSalmon3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
594 "LightSalmon2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
595 "LightSalmon1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
596 "salmon4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
597 "salmon3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
598 "salmon2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
599 "salmon1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
600 "brown4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
601 "brown3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
602 "brown2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
603 "brown1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
604 "firebrick4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
605 "firebrick3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
606 "firebrick2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
607 "firebrick1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
608 "chocolate4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
609 "chocolate3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
610 "chocolate2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
611 "chocolate1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
612 "tan4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
613 "tan3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
614 "tan2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
615 "tan1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
616 "wheat4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
617 "wheat3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
618 "wheat2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
619 "wheat1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
620 "burlywood4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
621 "burlywood3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
622 "burlywood2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
623 "burlywood1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
624 "sienna4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
625 "sienna3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
626 "sienna2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
627 "sienna1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
628 "IndianRed4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
629 "IndianRed3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
630 "IndianRed2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
631 "IndianRed1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
632 "RosyBrown4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
633 "RosyBrown3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
634 "RosyBrown2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
635 "RosyBrown1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
636 "DarkGoldenrod4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
637 "DarkGoldenrod3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
638 "DarkGoldenrod2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
639 "DarkGoldenrod1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
640 "goldenrod4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
641 "goldenrod3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
642 "goldenrod2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
643 "goldenrod1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
644 "gold4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
645 "gold3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
646 "gold2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
647 "gold1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
648 "yellow4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
649 "yellow3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
650 "yellow2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
651 "yellow1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
652 "LightYellow4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
653 "LightYellow3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
654 "LightYellow2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
655 "LightYellow1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
656 "LightGoldenrod4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
657 "LightGoldenrod3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
658 "LightGoldenrod2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
659 "LightGoldenrod1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
660 "khaki4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
661 "khaki3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
662 "khaki2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
663 "khaki1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
664 "DarkOliveGreen4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
665 "DarkOliveGreen3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
666 "DarkOliveGreen2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
667 "DarkOliveGreen1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
668 "OliveDrab4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
669 "OliveDrab3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
670 "OliveDrab2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
671 "OliveDrab1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
672 "chartreuse4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
673 "chartreuse3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
674 "chartreuse2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
675 "chartreuse1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
676 "green4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
677 "green3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
678 "green2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
679 "green1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
680 "SpringGreen4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
681 "SpringGreen3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
682 "SpringGreen2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
683 "SpringGreen1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
684 "PaleGreen4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
685 "PaleGreen3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
686 "PaleGreen2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
687 "PaleGreen1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
688 "SeaGreen4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
689 "SeaGreen3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
690 "SeaGreen2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
691 "SeaGreen1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
692 "DarkSeaGreen4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
693 "DarkSeaGreen3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
694 "DarkSeaGreen2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
695 "DarkSeaGreen1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
696 "aquamarine4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
697 "aquamarine3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
698 "aquamarine2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
699 "aquamarine1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
700 "DarkSlateGray4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
701 "DarkSlateGray3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
702 "DarkSlateGray2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
703 "DarkSlateGray1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
704 "cyan4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
705 "cyan3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
706 "cyan2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
707 "cyan1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
708 "turquoise4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
709 "turquoise3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
710 "turquoise2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
711 "turquoise1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
712 "CadetBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
713 "CadetBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
714 "CadetBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
715 "CadetBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
716 "PaleTurquoise4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
717 "PaleTurquoise3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
718 "PaleTurquoise2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
719 "PaleTurquoise1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
720 "LightCyan4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
721 "LightCyan3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
722 "LightCyan2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
723 "LightCyan1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
724 "LightBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
725 "LightBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
726 "LightBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
727 "LightBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
728 "LightSteelBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
729 "LightSteelBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
730 "LightSteelBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
731 "LightSteelBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
732 "SlateGray4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
733 "SlateGray3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
734 "SlateGray2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
735 "SlateGray1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
736 "LightSkyBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
737 "LightSkyBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
738 "LightSkyBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
739 "LightSkyBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
740 "SkyBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
741 "SkyBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
742 "SkyBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
743 "SkyBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
744 "DeepSkyBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
745 "DeepSkyBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
746 "DeepSkyBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
747 "DeepSkyBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
748 "SteelBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
749 "SteelBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
750 "SteelBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
751 "SteelBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
752 "DodgerBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
753 "DodgerBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
754 "DodgerBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
755 "DodgerBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
756 "blue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
757 "blue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
758 "blue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
759 "blue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
760 "RoyalBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
761 "RoyalBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
762 "RoyalBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
763 "RoyalBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
764 "SlateBlue4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
765 "SlateBlue3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
766 "SlateBlue2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
767 "SlateBlue1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
768 "azure4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
769 "azure3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
770 "azure2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
771 "azure1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
772 "MistyRose4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
773 "MistyRose3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
774 "MistyRose2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
775 "MistyRose1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
776 "LavenderBlush4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
777 "LavenderBlush3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
778 "LavenderBlush2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
779 "LavenderBlush1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
780 "honeydew4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
781 "honeydew3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
782 "honeydew2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
783 "honeydew1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
784 "ivory4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
785 "ivory3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
786 "ivory2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
787 "ivory1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
788 "cornsilk4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
789 "cornsilk3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
790 "cornsilk2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
791 "cornsilk1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
792 "LemonChiffon4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
793 "LemonChiffon3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
794 "LemonChiffon2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
795 "LemonChiffon1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
796 "NavajoWhite4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
797 "NavajoWhite3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
798 "NavajoWhite2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
799 "NavajoWhite1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
800 "PeachPuff4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
801 "PeachPuff3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
802 "PeachPuff2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
803 "PeachPuff1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
804 "bisque4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
805 "bisque3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
806 "bisque2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
807 "bisque1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
808 "AntiqueWhite4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
809 "AntiqueWhite3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
810 "AntiqueWhite2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
811 "AntiqueWhite1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
812 "seashell4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
813 "seashell3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
814 "seashell2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
815 "seashell1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
816 "snow4"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
817 "snow3"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
818 "snow2"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
819 "snow1"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
820 "thistle"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
821 "MediumPurple"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
822 "medium purple"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
823 "purple"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
824 "BlueViolet"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
825 "blue violet"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
826 "DarkViolet"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
827 "dark violet"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
828 "DarkOrchid"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
829 "dark orchid"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
830 "MediumOrchid"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
831 "medium orchid"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
832 "orchid"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
833 "plum"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
834 "violet"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
835 "magenta"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
836 "VioletRed"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
837 "violet red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
838 "MediumVioletRed"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
839 "medium violet red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
840 "maroon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
841 "PaleVioletRed"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
842 "pale violet red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
843 "LightPink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
844 "light pink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
845 "pink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
846 "DeepPink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
847 "deep pink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
848 "HotPink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
849 "hot pink"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
850 "red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
851 "OrangeRed"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
852 "orange red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
853 "tomato"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
854 "LightCoral"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
855 "light coral"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
856 "coral"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
857 "DarkOrange"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
858 "dark orange"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
859 "orange"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
860 "LightSalmon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
861 "light salmon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
862 "salmon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
863 "DarkSalmon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
864 "dark salmon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
865 "brown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
866 "firebrick"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
867 "chocolate"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
868 "tan"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
869 "SandyBrown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
870 "sandy brown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
871 "wheat"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
872 "beige"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
873 "burlywood"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
874 "peru"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
875 "sienna"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
876 "SaddleBrown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
877 "saddle brown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
878 "IndianRed"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
879 "indian red"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
880 "RosyBrown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
881 "rosy brown"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
882 "DarkGoldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
883 "dark goldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
884 "goldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
885 "LightGoldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
886 "light goldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
887 "gold"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
888 "yellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
889 "LightYellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
890 "light yellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
891 "LightGoldenrodYellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
892 "light goldenrod yellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
893 "PaleGoldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
894 "pale goldenrod"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
895 "khaki"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
896 "DarkKhaki"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
897 "dark khaki"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
898 "OliveDrab"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
899 "olive drab"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
900 "ForestGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
901 "forest green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
902 "YellowGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
903 "yellow green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
904 "LimeGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
905 "lime green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
906 "GreenYellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
907 "green yellow"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
908 "MediumSpringGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
909 "medium spring green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
910 "chartreuse"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
911 "green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
912 "LawnGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
913 "lawn green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
914 "SpringGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
915 "spring green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
916 "PaleGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
917 "pale green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
918 "LightSeaGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
919 "light sea green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
920 "MediumSeaGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
921 "medium sea green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
922 "SeaGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
923 "sea green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
924 "DarkSeaGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
925 "dark sea green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
926 "DarkOliveGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
927 "dark olive green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
928 "DarkGreen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
929 "dark green"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
930 "aquamarine"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
931 "MediumAquamarine"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
932 "medium aquamarine"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
933 "CadetBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
934 "cadet blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
935 "LightCyan"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
936 "light cyan"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
937 "cyan"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
938 "turquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
939 "MediumTurquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
940 "medium turquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
941 "DarkTurquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
942 "dark turquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
943 "PaleTurquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
944 "pale turquoise"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
945 "PowderBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
946 "powder blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
947 "LightBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
948 "light blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
949 "LightSteelBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
950 "light steel blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
951 "SteelBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
952 "steel blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
953 "LightSkyBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
954 "light sky blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
955 "SkyBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
956 "sky blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
957 "DeepSkyBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
958 "deep sky blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
959 "DodgerBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
960 "dodger blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
961 "blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
962 "RoyalBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
963 "royal blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
964 "MediumBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
965 "medium blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
966 "LightSlateBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
967 "light slate blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
968 "MediumSlateBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
969 "medium slate blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
970 "SlateBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
971 "slate blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
972 "DarkSlateBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
973 "dark slate blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
974 "CornflowerBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
975 "cornflower blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
976 "NavyBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
977 "navy blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
978 "navy"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
979 "MidnightBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
980 "midnight blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
981 "LightGray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
982 "light gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
983 "LightGrey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
984 "light grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
985 "grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
986 "gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
987 "LightSlateGrey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
988 "light slate grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
989 "LightSlateGray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
990 "light slate gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
991 "SlateGrey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
992 "slate grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
993 "SlateGray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
994 "slate gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
995 "DimGrey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
996 "dim grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
997 "DimGray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
998 "dim gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
999 "DarkSlateGrey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1000 "dark slate grey"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1001 "DarkSlateGray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1002 "dark slate gray"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1003 "black"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1004 "white"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1005 "MistyRose"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1006 "misty rose"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1007 "LavenderBlush"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1008 "lavender blush"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1009 "lavender"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1010 "AliceBlue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1011 "alice blue"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1012 "azure"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1013 "MintCream"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1014 "mint cream"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1015 "honeydew"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1016 "seashell"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1017 "LemonChiffon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1018 "lemon chiffon"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1019 "ivory"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1020 "cornsilk"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1021 "moccasin"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1022 "NavajoWhite"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1023 "navajo white"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1024 "PeachPuff"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1025 "peach puff"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1026 "bisque"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1027 "BlanchedAlmond"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1028 "blanched almond"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1029 "PapayaWhip"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1030 "papaya whip"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1031 "AntiqueWhite"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1032 "antique white"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1033 "linen"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1034 "OldLace"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1035 "old lace"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1036 "FloralWhite"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1037 "floral white"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1038 "gainsboro"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1039 "WhiteSmoke"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1040 "white smoke"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1041 "GhostWhite"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1042 "ghost white"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
diff changeset
1043 "snow")
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1044 "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
1045 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
1046
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1047 (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
1048 "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
1049 (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
1050 (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
1051 (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
1052 (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
1053 (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
1054 (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
1055 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
1056 (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
1057 (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
1058 defined-colors))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1059
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1060 ;;;; Function keys
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1061
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1062 (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
1063 global-map)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1064
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1065 ;; 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
1066 ;; that people usually expect.
60610
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1067 (define-key function-key-map [backspace] [?\d])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1068 (define-key function-key-map [delete] [?\d])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1069 (define-key function-key-map [tab] [?\t])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1070 (define-key function-key-map [linefeed] [?\n])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1071 (define-key function-key-map [clear] [?\C-l])
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1072 (define-key function-key-map [return] [?\C-m])
60610
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1073 (define-key function-key-map [escape] [?\e])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1074 (define-key function-key-map [M-backspace] [?\M-\d])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1075 (define-key function-key-map [M-delete] [?\M-\d])
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1076 (define-key function-key-map [M-tab] [?\M-\t])
60610
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1077 (define-key function-key-map [M-linefeed] [?\M-\n])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1078 (define-key function-key-map [M-clear] [?\M-\C-l])
2e557b2af3db (function-key-map): Sync with x-win.el.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60190
diff changeset
1079 (define-key function-key-map [M-return] [?\M-\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
1080 (define-key function-key-map [M-escape] [?\M-\e])
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1081
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1082 ;; 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
1083 ;; 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
1084 (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
1085 (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
1086 (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
1087 (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
1088 (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
1089 (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
1090 (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
1091
67099
6c0071d00d11 Make modifier `ctrl' an alias of `control'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67090
diff changeset
1092 ;; 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
1093 (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
1094
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1095
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
1096 ;;;; Script codes and coding systems
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1097 (defconst mac-script-code-coding-systems
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1098 '((0 . mac-roman) ; smRoman
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1099 (1 . japanese-shift-jis) ; smJapanese
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1100 (2 . chinese-big5) ; smTradChinese
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1101 (3 . korean-iso-8bit) ; smKorean
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1102 (7 . mac-cyrillic) ; smCyrillic
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1103 (25 . chinese-iso-8bit) ; smSimpChinese
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1104 (29 . mac-centraleurroman) ; smCentralEuroRoman
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1105 )
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1106 "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
1107
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
1108 (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
1109 "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
1110 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
1111 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
1112 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
1113 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
1114 (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
1115 (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
1116 (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
1117 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
1118
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 (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
1120 (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
1121 (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
1122 (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
1123 (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
1124 (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
1125 (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
1126 (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
1127 (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
1128 (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
1129 (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
1130 (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
1131 (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
1132
70379
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1133 (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
1134 mac-centraleurroman
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1135 [?\,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
1136 ?\$,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
1137 ?\$,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
1138 ?\$,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
1139 ?\$,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
1140 ?\$,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
1141 ?\$,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
1142 ?\$,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
1143 "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
1144 (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
1145
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1146 (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
1147 mac-cyrillic
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1148 [?\$,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
1149 ?\$,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
1150 ?\$,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
1151 ?\$,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
1152 ?\$,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
1153 ?\$,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
1154 ?\$,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
1155 ?\$,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
1156 "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
1157 (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
1158
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1159 (let
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1160 ((encoding-vector
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1161 (vconcat
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1162 (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
1163 ;; 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
1164 [?\ ?\! ?\$,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
1165 ?\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
1166 ?\$,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
1167 ?\$,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
1168 ?\$,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
1169 ?\$,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
1170 (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
1171 ;; 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
1172 ;; 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
1173 ;; original one:
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1174 ;; 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
1175 ;; 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
1176 ;; 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
1177 [?\$,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
1178 ?\,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
1179 ?\$,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
1180 ?\$,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
1181 ?\$,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
1182 ?\$,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
1183 nil]))
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1184 translation-table)
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1185 (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
1186 (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
1187 ;; (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
1188 (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
1189 (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
1190
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1191 (let
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1192 ((encoding-vector
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1193 (vconcat
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1194 (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
1195 ;; 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
1196 [?\ ?\$,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
1197 ?\$,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
1198 ?\$,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
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&!(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
1201 ?\$,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
1202 nil
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1203 ;; 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
1204 ?\$,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
1205 (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
1206 ;; 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
1207 [?\$,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
1208 ?\$,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
1209 ?\$,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
1210 ?\$,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
1211 ?\$,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
1212 nil
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1213 ;; 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
1214 ?\$,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
1215 nil]))
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1216 translation-table)
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1217 (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
1218 (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
1219 ;; (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
1220 (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
1221 (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
1222
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1223 (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
1224 (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
1225 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
1226 'mac-roman)))
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1227 (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
1228 base
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1229 (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
1230 "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
1231
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1232 (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
1233
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
1234
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1235 ;;;; Keyboard layout/language change events
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1236 (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
1237 "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
1238 (interactive "e")
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1239 (let ((coding-system
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1240 (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
1241 (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
1242 ;; MacJapanese maps reverse solidus to ?\x80.
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1243 (if (eq coding-system 'japanese-shift-jis)
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1244 (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
1245
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
1246 (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
1247
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1248
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1249 ;;;; 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
1250
71356
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
1251 (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
1252 "ASCII text encoding.")
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
1253
70379
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1254 (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
1255 "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
1256
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1257 (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
1258 (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
1259 (let* ((encoding
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1260 (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
1261 (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
1262 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
1263 (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
1264 (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
1265 (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
1266 (when str
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1267 (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
1268 (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
1269 ;; 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
1270 ;; reverse solidus?
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1271 (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
1272 (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
1273 ;; ASCII-only?
71356
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
1274 (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
1275 (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
1276 (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
1277 (or str
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1278 (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
1279 (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
1280
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1281 (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
1282 (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
1283 (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
1284 (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
1285 (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
1286 (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
1287 (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
1288 (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
1289 (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
1290 (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
1291 (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
1292 (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
1293 (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
1294 (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
1295 ;; ASCII-only?
b09e6c8f23d4 (mac-string-to-utxt): If adjustment for MacJapanese
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72536
diff changeset
1296 (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
1297 (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
1298 (and 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 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
1300 (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
1301 (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
1302 (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
1303 '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
1304 '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
1305
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1306 (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
1307 (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
1308 (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
1309 (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
1310 ;; (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
1311 (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
1312
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1313 (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
1314 (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
1315 (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
1316 (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
1317 (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
1318 (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
1319 (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
1320 (if rest
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1321 (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
1322 (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
1323 (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
1324 (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
1325 ;; (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
1326 (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
1327 (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
1328
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1329 (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
1330 ;; 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
1331 (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
1332 (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
1333 (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
1334 data)))
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1335
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
1336 (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
1337 (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
1338 (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
1339 text)))
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
1340
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1341 ;;;; Selections
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1342
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1343 ;;; 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
1344 ;;; 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
1345 ;;; 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
1346 (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
1347 "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
1348 pasted text.")
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1349 (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
1350 "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
1351 pasted text.")
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1352
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1353 (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
1354 "*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
1355 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
1356 :type 'boolean
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1357 :group 'killing)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1358
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1359 ;;; 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
1360 (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
1361 (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
1362 (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
1363 (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
1364 (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
1365 (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
1366 (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
1367 )
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1368
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1369 (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
1370 "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
1371 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
1372 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
1373 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
1374
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1375 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
1376 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
1377 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
1378 `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
1379
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1380 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
1381 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
1382 (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
1383 (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
1384 (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
1385 selection-coding-system)))
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1386 (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
1387 (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
1388 (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
1389 (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
1390 ((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
1391 (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
1392 ((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
1393 (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
1394 (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
1395 data))
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1396
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1397 (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
1398 (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
1399 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
1400 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
1401 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
1402 (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
1403 (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
1404 (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
1405 (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
1406 (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
1407 (if text
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1408 (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
1409 (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
1410 (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
1411 (error nil)))
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1412 (when tiff-image
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1413 (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
1414 '(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
1415 (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
1416 text))
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1417
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1418 ;;; 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
1419 ;;; 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
1420 ;;; 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
1421 ;;; 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
1422 ;;; 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
1423 (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
1424 (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
1425 (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
1426 (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
1427 (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
1428 (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
1429
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1430 ;; 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
1431 ;; 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
1432 ;; cut/paste operation.
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1433 (setq clip-text
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1434 (cond;; check clipboard
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1435 ((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
1436 (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
1437 ((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
1438 ((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
1439 ;; 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
1440 ;; 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
1441 (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
1442 nil)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1443 (t
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1444 (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
1445 )
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1446
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1447 (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
1448 ;; 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
1449 ;; 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
1450 ;; cut/paste operation.
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1451 (setq primary-text
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1452 (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
1453 ((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
1454 (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
1455 ((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
1456 ((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
1457 ;; 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
1458 ;; 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
1459 (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
1460 nil)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1461 (t
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1462 (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
1463
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1464 ;; 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
1465 (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
1466
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1467 ;; 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
1468 ;; 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
1469 ;; 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
1470 ;; non-null one).
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1471 (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
1472 ))
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1473
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1474 (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
1475 (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
1476 (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
1477 (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
1478 (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
1479 (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
1480 (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
1481 (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
1482 (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
1483
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1484 (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
1485 (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
1486 (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
1487 (when str
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1488 ;; 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
1489 ;; 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
1490 (if (not type)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1491 str
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1492 (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
1493 (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
1494 (cond
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1495 ((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
1496 (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
1497 ((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
1498 (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
1499 (t
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1500 (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
1501 )))
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1502
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1503 (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
1504 (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
1505
62100
e5deb8b3a701 Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61778
diff changeset
1506 (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
1507 (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
1508 (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
1509 (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
1510 (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
1511 (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
1512 (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
1513 (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
1514 (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
1515
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1516 (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
1517 (nconc
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1518 '((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
1519 (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
1520 ;; 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
1521 ;; 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
1522 ;; (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
1523 (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
1524 )
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1525 selection-converter-alist))
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1526
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1527 ;;;; 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
1528
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1529 ;;; Event classes
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1530 (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
1531 (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
1532
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
1533 ;;; Event IDs
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1534 ;; 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
1535 (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
1536 (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
1537 (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
1538 (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
1539 (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
1540 (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
1541 (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
1542 (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
1543 (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
1544 ;; 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
1545 (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
1546 ;; 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
1547 (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
1548 (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
1549
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1550 (defmacro mac-event-spec (event)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1551 `(nth 1 ,event))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1552
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1553 (defmacro mac-event-ae (event)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1554 `(nth 2 ,event))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1555
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1556 (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
1557 (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
1558 (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
1559 (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
1560 (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
1561 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
1562 (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
1563 (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
1564 (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
1565 type-data)))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1566
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1567 (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
1568 (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
1569 (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
1570 (cond ((null desc)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1571 nil)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1572 ((not (equal (car desc) "list"))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1573 (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
1574 (t
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1575 (if (null type)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1576 (cdr desc)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1577 (mapcar
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1578 (lambda (type-data)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1579 (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
1580 (cdr desc)))))))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1581
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1582 (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
1583 (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
1584 str)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1585 (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
1586 (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
1587 (cdr type-data) "TEXT")))
75831
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1588 (let ((num (string-to-number str)))
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1589 ;; 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
1590 ;; 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
1591 (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
1592 nil)))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1593
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1594 (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
1595 (or from (setq from 0))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1596 (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
1597 (let* ((len (- to from))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1598 (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
1599 (* 8 len)))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1600 (result 0))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1601 (dotimes (i len)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1602 (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
1603 (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
1604 (- len i 1)))))))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1605 (if (> extended-sign-len 0)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1606 (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
1607 result)))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1608
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1609 (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
1610 ;; #pragma options align=mac68k
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1611 ;; typedef struct SelectionRange {
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1612 ;; short unused1; // 0 (not used)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1613 ;; 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
1614 ;; 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
1615 ;; 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
1616 ;; long unused2; // 0 (not used)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1617 ;; long theDate; // modification date/time
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1618 ;; } SelectionRange;
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1619 ;; #pragma options align=reset
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1620 (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
1621 (and range-bytes
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1622 (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
1623 (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
1624 (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
1625 (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
1626
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1627 ;; 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
1628 ;; 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
1629 (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
1630 (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
1631 (and utf8-text
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1632 (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
1633
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1634 (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
1635 (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
1636 (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
1637
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1638 (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
1639 (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
1640 (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
1641 (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
1642 (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
1643 (rest (frame-list))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1644 frame)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1645 (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
1646 (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
1647 (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
1648 (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
1649 frame))))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1650
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1651 (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
1652 ;; struct WritingCode {
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1653 ;; ScriptCode theScriptCode;
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1654 ;; LangCode theLangCode;
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1655 ;; };
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1656 (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
1657 (and bytes
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1658 (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
1659 (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
1660
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1661 (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
1662 ;; struct TextRange {
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1663 ;; long fStart;
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1664 ;; long fEnd;
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1665 ;; short fHiliteStyle;
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1666 ;; };
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1667 (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
1668 (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
1669 (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
1670 (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
1671 (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
1672 (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
1673
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1674 (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
1675 ;; struct TextRangeArray {
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1676 ;; short fNumOfRanges;
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1677 ;; TextRange fRange[1];
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1678 ;; };
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1679 (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
1680 (len (length bytes))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1681 nranges result)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1682 (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
1683 (progn
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1684 (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
1685 (= 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
1686 (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
1687 (dotimes (i nranges)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1688 (aset result i
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1689 (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
1690 (+ (* i 10) 12)))))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1691 result))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1692
75375
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1693 (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
1694 (mapcar
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1695 (lambda (modifier-bit)
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1696 (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
1697 '((command . 8) ; cmdKeyBit
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1698 (shift . 9) ; shiftKeyBit
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1699 (option . 11) ; optionKeyBit
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1700 (control . 12) ; controlKeyBit
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1701 (function . 17))) ; kEventKeyModifierFnBit
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1702 "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
1703
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1704 (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
1705 (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
1706 modifiers)
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1707 (if modifiers-value
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1708 (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
1709 (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
1710 (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
1711 modifiers))
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1712
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1713 (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
1714 "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
1715 (interactive "e")
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1716 (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
1717 (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
1718 (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
1719 (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
1720 (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
1721 (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
1722 (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
1723 (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
1724 (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
1725 (cond (selection-range
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1726 (let ((line (car selection-range))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1727 (start (cadr selection-range))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1728 (end (nth 2 selection-range)))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1729 (if (> line 0)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1730 (goto-line line)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1731 (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
1732 (progn (set-mark start)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1733 (goto-char end))))))
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1734 ((stringp search-text)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1735 (re-search-forward
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1736 (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
1737 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
1738 (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
1739
75238
975531dd9b08 (mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75142
diff changeset
1740 (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
1741 "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
1742 (interactive "e")
975531dd9b08 (mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75142
diff changeset
1743 (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
1744 (unwind-protect
975531dd9b08 (mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75142
diff changeset
1745 (save-buffers-kill-emacs)
975531dd9b08 (mac-ae-quit-application): New function.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75142
diff changeset
1746 ;; 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
1747 (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
1748
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1749 (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
1750 "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
1751 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
1752 (interactive "e")
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1753 (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
1754 (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
1755 (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
1756 (progn
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1757 (url-mailto parsed-url)
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1758 (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
1759 (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
1760
67487
44fba69e3c47 Create keymap for mac-apple-event-map.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67450
diff changeset
1761 (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
1762
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1763 ;; 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
1764 ;; 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
1765 ;; 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
1766 (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
1767
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1768 ;; Received when a dock or application icon is clicked and Emacs is
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1769 ;; already running. Simply ignored. Another idea is to make a new
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1770 ;; frame if all frames are invisible.
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1771 (define-key mac-apple-event-map [core-event reopen-application] 'ignore)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1772
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1773 (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
1774 'mac-ae-open-documents)
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1775 (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
1776 (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
1777 'mac-ae-quit-application)
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1778
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
1779 (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
1780
72536
59670fc88353 (mac-apple-event-map): Rename hicommand to hi-command.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71500
diff changeset
1781 (define-key mac-apple-event-map [hi-command about] 'display-splash-screen)
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
1782
70491
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1783 ;;; 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
1784 (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
1785 "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
1786 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
1787 frame where the tool-bar toggle button was pressed. With some
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1788 modifiers, it changes global tool-bar visibility setting."
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1789 (interactive "e")
75375
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
1790 (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
1791 (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
1792 ;; Globally toggle tool-bar-mode if some modifier key is pressed.
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1793 (tool-bar-mode)
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1794 (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
1795 (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
1796 (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
1797 1 0))))))
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1798
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1799 ;; kEventClassWindow/kEventWindowToolbarSwitchMode
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1800 (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
1801 '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
1802
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1803 ;;; Font panel
75831
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1804 (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
1805
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1806 (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
1807 "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
1808 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
1809 :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
1810 :global t
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1811 :group 'mac
75831
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1812 (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
1813
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1814 (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
1815 "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
1816 (interactive "e")
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1817 ;; 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
1818 (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
1819
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1820 (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
1821 "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
1822 (interactive "e")
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1823 (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
1824 (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
1825 (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
1826 (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
1827 (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
1828 (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
1829 (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
1830 `(: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
1831 (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
1832
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1833 ;; kEventClassFont/kEventFontPanelClosed
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1834 (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
1835 '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
1836 ;; kEventClassFont/kEventFontSelection
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1837 (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
1838 (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
1839 '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
1840
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1841 (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
1842 (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
1843 "Font Panel"
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1844 "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
1845 'showhide-speedbar)
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
1846
75831
906e93bebe5f Change all uses of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75375
diff changeset
1847 ) ;; (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
1848
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1849 ;;; Text Services
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1850 (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
1851 "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
1852 (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
1853 "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
1854 (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
1855
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1856 (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
1857 '((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
1858 "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
1859 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
1860 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
1861 :group 'mac)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1862
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1863 (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
1864 '((t :underline t))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1865 "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
1866 :group 'mac)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1867
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1868 (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
1869 '((t :underline t))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1870 "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
1871 :group 'mac)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1872
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1873 (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
1874 '((((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
1875 (t :underline "gray80"))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1876 "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
1877 :group 'mac)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1878
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1879 (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
1880 '((t :underline t))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1881 "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
1882 :group 'mac)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1883
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1884 (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
1885 '((t :underline t))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1886 "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
1887 :group 'mac)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1888
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1889 (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
1890 '((t :underline t))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1891 "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
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-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 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-no-hilite
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1900 '((t :inherit default))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1901 "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
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 (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
1905 '((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
1906 (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
1907 (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
1908 (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
1909 (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
1910 (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
1911 (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
1912 (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
1913 "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
1914
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1915 (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
1916 (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
1917 confirmed)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1918 (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
1919 (/= (% (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
1920 ;; 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
1921 ;; 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
1922 ;; the new text.
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1923 (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
1924 ;; 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
1925 ;; 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
1926 ;; (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
1927 (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
1928 (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
1929 segments rng)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1930 (while (> i 0)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1931 (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
1932 (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
1933 (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
1934 (<= tail buf-len))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1935 (setq segments
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1936 (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
1937 segments)))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1938 (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
1939 (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
1940 (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
1941 (<= (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
1942 (setq segments
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1943 (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
1944 segments))))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1945 (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
1946 (setq segments
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1947 (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
1948 segments)))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1949 (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
1950 (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
1951 ;; 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
1952 (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
1953 ;; 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
1954 (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
1955 (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
1956 ((= fix-len 0)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1957 ;; 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
1958 (setq confirmed ""))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1959 (t
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1960 (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
1961 (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
1962 (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
1963 (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
1964 (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
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 ;; 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
1967 ;; input session.
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1968 (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
1969 (mapc (lambda (rng)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1970 (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
1971 (<= 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
1972 (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
1973 '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
1974 ((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
1975 (<= (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
1976 (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
1977 (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
1978 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
1979 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
1980 hilite-rng)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1981 confirmed))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1982
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1983 (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
1984 (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
1985 head result)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1986 (unless (= tail 0)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1987 (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
1988 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
1989 tail head)))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1990 result))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1991
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1992 (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
1993 (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
1994 (mapconcat
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1995 (lambda (str)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1996 (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
1997 (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
1998 ""))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
1999
74892
b064bb685ef7 (mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74625
diff changeset
2000 (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
2001 (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
2002 (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
2003 (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
2004 (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
2005 (> (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
2006 (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
2007 ch))
b064bb685ef7 (mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74625
diff changeset
2008
b064bb685ef7 (mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74625
diff changeset
2009 (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
2010 ;; 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
2011 ;; defined.
b064bb685ef7 (mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74625
diff changeset
2012 (apply 'isearch-unread
b064bb685ef7 (mac-keyboard-translate-char, mac-unread-string):
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74625
diff changeset
2013 (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
2014 (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
2015
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2016 (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
2017 "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
2018 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
2019 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
2020 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
2021 (interactive "e")
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2022 (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
2023 (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
2024 (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
2025 (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
2026 '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
2027 (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
2028 (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
2029 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
2030 'mac-roman))
71356
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
2031 (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
2032 ;; Optional parameters
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2033 (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
2034 (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
2035 ;;(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
2036 ;;(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
2037 (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
2038 confirmed)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2039 (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
2040 ;; 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
2041 (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
2042 (setq confirmed
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2043 (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
2044 (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
2045 (or isearch-mode
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2046 (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
2047 ;; 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
2048 (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
2049 (and (not (bobp))
fd5f866a10be (mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71356
diff changeset
2050 (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
2051 (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
2052 (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
2053 (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
2054 (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
2055 (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
2056 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
2057 ;; 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
2058 ;; the caret position.
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2059 (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
2060 (mapconcat
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2061 (lambda (str)
71500
fd5f866a10be (mac-handle-font-selection): Change keys of
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71356
diff changeset
2062 (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
2063 (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
2064 (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
2065 (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
2066 (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
2067 (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
2068 (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
2069 (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
2070 decoded)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2071 (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
2072 decoded))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2073 (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
2074 ""))
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2075 (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
2076 '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
2077 (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
2078 (let ((msg (current-message))
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
2079 message-log-max)
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
2080 (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
2081 ;; 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
2082 ;; `active-input-string'.
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2083 (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
2084 msg)))
a183bff9cb83 (mac-text-encoding-ascii): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71175
diff changeset
2085 (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
2086 (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
2087 (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
2088 (message "%s" msg)
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2089 (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
2090 (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
2091 (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
2092 (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
2093 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
2094 (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
2095 ;; 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
2096 (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
2097
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2098 (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
2099 "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
2100 (interactive "e")
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2101 (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
2102 (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
2103 (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
2104 (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
2105 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
2106 '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
2107 (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
2108 (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
2109
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2110 ;; kEventClassTextInput/kEventTextInputUpdateActiveInputArea
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2111 (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
2112 '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
2113 ;; kEventClassTextInput/kEventTextInputUnicodeForKeyEvent
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2114 (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
2115 '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
2116
70491
1ceca94285a6 (mac-utxt-to-string): Use `eq' instead of `='.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70429
diff changeset
2117 ;;; Services
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2118 (defun mac-service-open-file ()
67662
db9106933641 (mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67487
diff changeset
2119 "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
2120 (interactive)
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2121 (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
2122
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2123 (defun mac-service-open-selection ()
67662
db9106933641 (mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67487
diff changeset
2124 "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
2125 (interactive)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2126 (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
2127 (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
2128 (sit-for 0)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2129 (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
2130 )
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2131
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2132 (defun mac-service-mail-selection ()
67662
db9106933641 (mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67487
diff changeset
2133 "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
2134 (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
2135 (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
2136 (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
2137 (forward-line 1)
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2138 (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
2139
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2140 (defun mac-service-mail-to ()
67662
db9106933641 (mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67487
diff changeset
2141 "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
2142 (interactive)
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2143 (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
2144
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2145 (defun mac-service-insert-text ()
67662
db9106933641 (mac-handle-language-change)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67487
diff changeset
2146 "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
2147 (interactive)
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2148 (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
2149 (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
2150 (insert text)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2151 (kill-new text)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2152 (message
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2153 (substitute-command-keys
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2154 "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
2155
70559
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2156 ;; kEventClassService/kEventServicePaste
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2157 (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
2158 ;; kEventClassService/kEventServicePerform
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2159 (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
2160 'mac-service-open-file)
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2161 (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
2162 'mac-service-open-selection)
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2163 (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
2164 'mac-service-mail-selection)
a1af34eacdb3 (mac-font-panel-mode): Doc fix.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70491
diff changeset
2165 (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
2166 'mac-service-mail-to)
67450
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2167
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2168 (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
2169 "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
2170 (interactive "e")
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2171 (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
2172 (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
2173 (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
2174 (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
2175 (when service-message
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2176 (setq service-message
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2177 (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
2178 (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
2179 ;; 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
2180 ;; 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
2181 (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
2182 (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
2183 (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
2184 (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
2185 (progn
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2186 (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
2187 (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
2188 (error
e5af358ce93a Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70763
diff changeset
2189 (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
2190 (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
2191 (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
2192
71175
ed68e074ebb4 (mac-ts-active-input-overlay): Add defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70870
diff changeset
2193 (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
2194
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2195 ;; 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
2196 ;; 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
2197 ;; 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
2198 ;; the files should be opened.
fa74deeadab8 Require url when compiling. Call
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67099
diff changeset
2199 (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
2200
70870
e5af358ce93a Set idle timer to clean up expired Apple events.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70763
diff changeset
2201 (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
2202
70379
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2203
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2204 ;;;; 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
2205
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2206 (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
2207 '(("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
2208 ("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
2209 ("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
2210 ("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
2211 ("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
2212 "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
2213 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
2214 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
2215 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
2216 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
2217
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2218 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
2219 :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
2220 :type 'alist
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2221 :group 'mac)
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2222
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2223 (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
2224 (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
2225
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2226 (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
2227 ;; struct HFSFlavor {
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2228 ;; OSType fileType;
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2229 ;; OSType fileCreator;
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2230 ;; UInt16 fdFlags;
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2231 ;; FSSpec fileSpec;
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 (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
2234 '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
2235 (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
2236 (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
2237 (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
2238 (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
2239
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2240 (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
2241 (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
2242
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2243 (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
2244 (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
2245
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2246 (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
2247 (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
2248
75375
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
2249 (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
2250 (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
2251 (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
2252 (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
2253 (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
2254 (when handler
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2255 (if (and (windowp w) (window-live-p w)
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2256 (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
2257 (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
2258 ;; 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
2259 ;; 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
2260 (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
2261 (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
2262 (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
2263 (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
2264 ;; 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
2265 ;; 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
2266 (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
2267 (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
2268 (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
2269
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2270 (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
2271 "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
2272 (interactive "e")
75375
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
2273 (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
2274 (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
2275 action)
70379
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2276 (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
2277 (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
2278 (setq action 'copy))
2d3bcf670390 (mac-keyboard-modifier-mask-alist): New constant.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75347
diff changeset
2279 (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
2280 (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
2281 (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
2282 (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
2283
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2284 ;;; Do the actual Windows setup here; the above code just defines
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2285 ;;; functions and variables that we use now.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2286
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2287 (setq command-line-args (x-handle-args command-line-args))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2288
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2289 ;;; Make sure we have a valid resource name.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2290 (or (stringp 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
2291 (let (i)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2292 (setq x-resource-name (invocation-name))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2293
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2294 ;; Change any . or * characters in x-resource-name to hyphens,
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2295 ;; so as not to choke when we use it in X resource queries.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2296 (while (setq i (string-match "[.*]" 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
2297 (aset x-resource-name i ?-))))
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 (if (x-display-list)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2300 ;; On Mac OS 8/9, Most coding systems used in code conversion for
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2301 ;; font names are not ready at the time when the terminal frame is
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2302 ;; created. So we reconstruct font name table for the initial
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2303 ;; frame.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2304 (mac-clear-font-name-table)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2305 (x-open-connection "Mac"
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2306 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
2307 ;; Exit Emacs with fatal error if this fails.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2308 t))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2309
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2310 (setq frame-creation-function 'x-create-frame-with-faces)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2311
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2312 (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
2313 '(("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
2314 ccl-encode-mac-roman-font "%s")
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
2315 ("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
2316 ccl-encode-mac-centraleurroman-font "%s ce")
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
2317 ("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
2318 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
2319 ("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
2320 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
2321 ("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
2322 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
2323
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2324 (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
2325 (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
2326 (charset-list
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2327 '(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
2328 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
2329 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
2330 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
2331 (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
2332 (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
2333 (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
2334 (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
2335 (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
2336 (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
2337 (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
2338 (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
2339 (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
2340
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
2341 ;; 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
2342 ;; 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
2343
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
2344 (define-ccl-program ccl-encode-mac-roman-font
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
2345 `(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
2346 (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
2347 (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
2348 ((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
2349 (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
2350 (translate-character mac-roman-encoder r0 r1))))
61502
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
2351 "CCL program for Mac Roman font")
3150e849361e (kTextEncodingMacRoman, kTextEncodingISOLatin1)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61497
diff changeset
2352
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2353 (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
2354 `(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
2355 (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
2356 (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
2357 ((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
2358 (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
2359 (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
2360 "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
2361
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2362 (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
2363 `(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
2364 (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
2365 (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
2366 ((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
2367 (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
2368 (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
2369 "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
2370
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
2371 (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
2372 `(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
2373 (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
2374 (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
2375 ((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
2376 (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
2377 (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
2378 "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
2379
e40b2bd9a366 Add coding: tag and set it to iso-2022-7bit.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61556
diff changeset
2380 (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
2381 `(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
2382 (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
2383 (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
2384 ((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
2385 (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
2386 (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
2387 "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
2388
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2389
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2390 (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
2391 (nconc
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2392 (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
2393 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
2394 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
2395
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
2396 (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
2397 ;; 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
2398 ;; 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
2399 (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
2400 (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
2401 (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
2402 (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
2403 (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
2404 (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
2405 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
2406 (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
2407 (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
2408 (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
2409 (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
2410 (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
2411 (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
2412 (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
2413 '(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
2414 (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
2415 (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
2416
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 ;; 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
2418 ;; 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
2419 (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
2420 (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
2421 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
2422 (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
2423 (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
2424 (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
2425 (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
2426 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
2427 (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
2428 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
2429 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
2430 (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
2431 (= 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
2432 (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
2433 (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
2434 (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
2435 (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
2436 (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
2437 (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
2438 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
2439 (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
2440
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2441 (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
2442 "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
2443 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
2444 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
2445 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
2446 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
2447 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
2448 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
2449 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
2450 (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
2451 (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
2452 (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
2453 (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
2454 (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
2455 (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
2456 (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
2457 (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
2458 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
2459 (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
2460 (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
2461 (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
2462 (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
2463 (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
2464 (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
2465 (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
2466 (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
2467 (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
2468 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
2469 (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
2470
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2471 (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
2472 fontset-name)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2473 "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
2474
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2475 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
2476 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
2477 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
2478
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2479 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
2480 `<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
2481 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
2482
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2483 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
2484 (let ((fontset
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2485 (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
2486 (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
2487 fontset))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2488
69671
e9b0a8e10992 Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68766
diff changeset
2489 ;; 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
2490 (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
2491 (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
2492 (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
2493 (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
2494 (mapcar
e9b0a8e10992 Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68766
diff changeset
2495 (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
2496 (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
2497 (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
2498 (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
2499 "-*-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
2500 "-*-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
2501 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
2502 font))
e9b0a8e10992 Adjust Courier font specifications in x-fixed-font-alist.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68766
diff changeset
2503 (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
2504
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2505 ;; 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
2506 (setup-default-fontset)
74625
1fb421aafa71 (mac-atsu-font-table): Remove defvar.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74509
diff changeset
2507 (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
2508 ;; 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
2509 (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
2510 (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
2511 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
2512 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
2513 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
2514 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
2515 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
2516 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
2517 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
2518 (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
2519 ((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
2520 ;; 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
2521 (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
2522
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2523 ;; 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
2524 ;; 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
2525 ;; 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
2526 (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
2527 "-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
2528 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
2529 (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
2530
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2531 ;; 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
2532 (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
2533
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2534 ;; 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
2535 ;; 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
2536 ;; 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
2537 ;; 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
2538 ;; 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
2539 ;; 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
2540 ;; 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
2541
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2542 (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
2543 (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
2544 (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
2545 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
2546 (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
2547 (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
2548 (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
2549 (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
2550 (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
2551 (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
2552 ;; 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
2553 ;; 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
2554 (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
2555 (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
2556 (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
2557 (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
2558
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2559 ;; 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
2560 ;; 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
2561 ;; precedence.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2562 (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
2563 parsed)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2564 (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
2565 (progn
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2566 (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
2567 ;; 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
2568 ;; 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
2569 (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
2570 (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
2571 (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
2572 ;; 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
2573 (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
2574 ;; 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
2575 ;; sizes there already (from command line).
246a1d48fea4 *** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72703
diff changeset
2576 (if (and (assq 'height parsed)
246a1d48fea4 *** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72703
diff changeset
2577 (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
2578 (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
2579 (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
2580 default-frame-alist)))
73431
246a1d48fea4 *** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72703
diff changeset
2581 (if (and (assq 'width parsed)
246a1d48fea4 *** empty log message ***
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72703
diff changeset
2582 (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
2583 (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
2584 (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
2585 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
2586
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2587 ;; 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
2588 (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
2589 (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
2590 (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
2591 (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
2592 (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
2593 (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
2594
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2595 (defun x-win-suspend-error ()
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2596 (error "Suspending an Emacs running under Mac makes no sense"))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2597 (add-hook 'suspend-hook 'x-win-suspend-error)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2598
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2599 ;;; Arrange for the kill and yank functions to set and check the clipboard.
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2600 (setq interprogram-cut-function 'x-select-text)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2601 (setq interprogram-paste-function '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
2602
62100
e5deb8b3a701 Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61778
diff changeset
2603 (defalias 'x-cut-buffer-or-selection-value 'x-get-selection-value)
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2604
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2605 ;;; Turn off window-splitting optimization; Mac is usually fast enough
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2606 ;;; that this is only annoying.
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2607 (setq split-window-keep-point t)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2608
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2609 ;; Don't show the frame name; that's redundant.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2610 (setq-default mode-line-frame-identification " ")
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2611
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2612 ;; Turn on support for mouse wheels.
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2613 (mouse-wheel-mode 1)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2614
61778
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2615
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2616 ;; Enable CLIPBOARD copy/paste through menu bar commands.
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2617 (menu-bar-enable-clipboard)
1b44d34506e4 Require select. Set selection-coding-system to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61680
diff changeset
2618
70379
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2619 ;; Initiate drag and drop
69725
3894622d0c1c (mac-system-coding-system): Define and use after
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69671
diff changeset
2620
72536
59670fc88353 (mac-apple-event-map): Rename hicommand to hi-command.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 71500
diff changeset
2621 (define-key special-event-map [drag-n-drop] 'mac-dnd-handle-drag-n-drop-event)
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2622
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2623
62100
e5deb8b3a701 Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61778
diff changeset
2624 ;;;; Non-toolkit Scroll bars
e5deb8b3a701 Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61778
diff changeset
2625
e5deb8b3a701 Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61778
diff changeset
2626 (unless x-toolkit-scroll-bars
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 ;; for debugging
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2629 ;; (defun mac-handle-scroll-bar-event (event) (interactive "e") (princ event))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2630
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2631 ;;(global-set-key [vertical-scroll-bar mouse-1] 'mac-handle-scroll-bar-event)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2632
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2633 (global-set-key
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2634 [vertical-scroll-bar down-mouse-1]
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2635 'mac-handle-scroll-bar-event)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2636
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2637 (global-unset-key [vertical-scroll-bar drag-mouse-1])
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2638 (global-unset-key [vertical-scroll-bar mouse-1])
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2639
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2640 (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
2641 "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
2642 (interactive "e")
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2643 (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
2644 (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
2645 (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
2646 (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
2647 (cond
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2648 ((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
2649 (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
2650 (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
2651 ((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
2652 (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
2653 ((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
2654 (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
2655 ((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
2656 (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
2657 ((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
2658 (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
2659 (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
2660
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2661 (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
2662 ;; 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
2663 (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
2664 '(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
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-scroll-down ()
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2667 (track-mouse
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2668 (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
2669 (scroll-down)))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2670
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2671 (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
2672 (track-mouse
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2673 (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
2674 (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
2675
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2676 (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
2677 (track-mouse
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-ignore-events)
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2679 (scroll-up)))
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2680
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2681 (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
2682 (track-mouse
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2683 (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
2684 (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
2685
62100
e5deb8b3a701 Don't define or bind scroll bar functions if
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61778
diff changeset
2686 )
70379
8a0284e52e27 (mac-utxt-to-string, mac-string-to-utxt)
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 70298
diff changeset
2687
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2688
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2689 ;;;; Others
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2690
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2691 (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
2692 ;; 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
2693 ;; 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
2694 ;; 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
2695 ;; 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
2696 (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
2697
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2698 ;; 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
2699 ;; 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
2700 ;; 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
2701 (setq shell-file-name "sh")
e7acbfa92707 (function-key-map): Use char-names more consistently.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59658
diff changeset
2702
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
2703 ;; 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
2704 (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
2705 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
2706 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
2707 (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
2708
67090
a9abf9b53bef Don't change default directory.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66107
diff changeset
2709 ;; 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
2710 ;; 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
2711 ;; (if (string= default-directory "/")
a9abf9b53bef Don't change default directory.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66107
diff changeset
2712 ;; (cd "~"))
59144
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2713
59658
45074d913d23 * editfns.c (Voperating_system_release): Added.
Steven Tamm <steventamm@mac.com>
parents: 59645
diff changeset
2714 ;; 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
2715 ;; 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
2716 ;; (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
2717
8d9ea622c741 * term/mac-win.el: Sync with x-win.el. Rearrange the contents.
Steven Tamm <steventamm@mac.com>
parents: 59034
diff changeset
2718 ;; 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
2719 ;; 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
2720 ;; 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
2721 ;; 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
2722 (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
2723
60190
e7acbfa92707 (function-key-map): Use char-names more consistently.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59658
diff changeset
2724 ;; 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
2725 ;;; mac-win.el ends here