annotate lisp/term/x-win.el @ 101011:04548ca9af08

Replace last-input-char with last-input-event.
author Glenn Morris <rgm@gnu.org>
date Fri, 09 Jan 2009 04:55:50 +0000
parents a9dc0e7c3f2b
children 0ad88f8fc5a6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1 ;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*-
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
2
95841
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
3 ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100618
diff changeset
4 ;; 2008, 2009 Free Software Foundation, Inc.
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
5
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
6 ;; Author: FSF
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
7 ;; Keywords: terminals, i18n
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
8
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
9 ;; This file is part of GNU Emacs.
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
10
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93911
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93911
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93911
diff changeset
14 ;; (at your option) any later version.
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
15
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
19 ;; GNU General Public License for more details.
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
20
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93911
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
24 ;;; Commentary:
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
26 ;; X-win.el: this file defines functions to initialize the X window
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
27 ;; system and process X-specific command line parameters before
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
28 ;; creating the first X frame.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
29
100618
4d15246ec7b5 Update comment.
Chong Yidong <cyd@stupidchicken.com>
parents: 100024
diff changeset
30 ;; Beginning in Emacs 23, the act of loading this file should not have
4d15246ec7b5 Update comment.
Chong Yidong <cyd@stupidchicken.com>
parents: 100024
diff changeset
31 ;; the side effect of initializing the window system or processing
4d15246ec7b5 Update comment.
Chong Yidong <cyd@stupidchicken.com>
parents: 100024
diff changeset
32 ;; command line arguments (this file is now loaded in loadup.el). See
4d15246ec7b5 Update comment.
Chong Yidong <cyd@stupidchicken.com>
parents: 100024
diff changeset
33 ;; the variables `handle-args-function-alist' and
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
34 ;; `window-system-initialization-alist' for more details.
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ;; startup.el will then examine startup files, and eventually call the hooks
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
37 ;; which create the first window(s).
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
38
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
39 ;;; Code:
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 ;; These are the standard X switches from the Xt Initialize.c file of
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 ;; Release 4.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 ;; Command line Resource Manager string
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 ;; +rv *reverseVideo
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 ;; +synchronous *synchronous
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 ;; -background *background
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 ;; -bd *borderColor
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 ;; -bg *background
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 ;; -bordercolor *borderColor
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 ;; -borderwidth .borderWidth
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 ;; -bw .borderWidth
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 ;; -display .display
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 ;; -fg *foreground
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 ;; -fn *font
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 ;; -font *font
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 ;; -foreground *foreground
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 ;; -geometry .geometry
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 ;; -iconic .iconic
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 ;; -name .name
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 ;; -reverse *reverseVideo
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 ;; -rv *reverseVideo
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 ;; -selectionTimeout .selectionTimeout
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 ;; -synchronous *synchronous
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 ;; -xrm
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 ;; An alist of X options and the function which handles them. See
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 ;; ../startup.el.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70
83014
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83009
diff changeset
71 (if (not (fboundp 'x-create-frame))
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
72 (error "%s: Loading x-win.el but not compiled for X" (invocation-name)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
73
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
74 (require 'frame)
467
95e458d30014 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 396
diff changeset
75 (require 'mouse)
1972
b0cde2f5164d * term/x-win.el: Require `scroll-bar', not `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1954
diff changeset
76 (require 'scroll-bar)
2718
c91b18333f58 * x-win.el: Since we require faces.el, there's no point in setting
Jim Blandy <jimb@redhat.com>
parents: 2586
diff changeset
77 (require 'faces)
c91b18333f58 * x-win.el: Since we require faces.el, there's no point in setting
Jim Blandy <jimb@redhat.com>
parents: 2586
diff changeset
78 (require 'select)
2808
b809a8da05cb Require menu-bar.el.
Richard M. Stallman <rms@gnu.org>
parents: 2718
diff changeset
79 (require 'menu-bar)
49288
7f09b406bc3c Require fontset unconditionally again.
Kenichi Handa <handa@m17n.org>
parents: 49185
diff changeset
80 (require 'fontset)
53789
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
81 (require 'x-dnd)
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
82
3373
4177a984e5c0 (x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 3287
diff changeset
83 (defvar x-invocation-args)
65259
ba3854e2c98c (x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
84 (defvar x-keysym-table)
ba3854e2c98c (x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
85 (defvar x-selection-timeout)
ba3854e2c98c (x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
86 (defvar x-session-id)
ba3854e2c98c (x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents: 64701
diff changeset
87 (defvar x-session-previous-id)
3373
4177a984e5c0 (x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 3287
diff changeset
88
78186
cc31545ae790 (x-handle-no-bitmap-icon): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 76359
diff changeset
89 (defun x-handle-no-bitmap-icon (switch)
cc31545ae790 (x-handle-no-bitmap-icon): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 76359
diff changeset
90 (setq default-frame-alist (cons '(icon-type) default-frame-alist)))
cc31545ae790 (x-handle-no-bitmap-icon): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 76359
diff changeset
91
91628
60f09344e8c9 (x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91327
diff changeset
92 ;; Handle the --parent-id option.
60f09344e8c9 (x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91327
diff changeset
93 (defun x-handle-parent-id (switch)
60f09344e8c9 (x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91327
diff changeset
94 (or (consp x-invocation-args)
60f09344e8c9 (x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91327
diff changeset
95 (error "%s: missing argument to `%s' option" (invocation-name) switch))
91655
8cd1274a8ae3 (x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents: 91628
diff changeset
96 (setq initial-frame-alist (cons
8cd1274a8ae3 (x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents: 91628
diff changeset
97 (cons 'parent-id
8cd1274a8ae3 (x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents: 91628
diff changeset
98 (string-to-number (car x-invocation-args)))
8cd1274a8ae3 (x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents: 91628
diff changeset
99 initial-frame-alist)
8cd1274a8ae3 (x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents: 91628
diff changeset
100 x-invocation-args (cdr x-invocation-args)))
91628
60f09344e8c9 (x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91327
diff changeset
101
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
102 ;; Handle the --smid switch. This is used by the session manager
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
103 ;; to give us back our session id we had on the previous run.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
104 (defun x-handle-smid (switch)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
105 (or (consp x-invocation-args)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
106 (error "%s: missing argument to `%s' option" (invocation-name) switch))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
107 (setq x-session-previous-id (car x-invocation-args)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
108 x-invocation-args (cdr x-invocation-args)))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
109
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
110 (defvar emacs-save-session-functions nil
51181
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
111 "Special hook run when a save-session event occurs.
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
112 The functions do not get any argument.
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
113 Functions can return non-nil to inform the session manager that the
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
114 window system shutdown should be aborted.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
115
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
116 See also `emacs-session-save'.")
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
117
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
118 (defun emacs-session-filename (session-id)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
119 "Construct a filename to save the session in based on SESSION-ID.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
120 If the directory ~/.emacs.d exists, we make a filename in there, otherwise
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
121 a file in the home directory."
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
122 (let ((basename (concat "session." session-id))
81343
ce2f9d785f66 (emacs-session-filename): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents: 76359
diff changeset
123 (emacs-dir user-emacs-directory))
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
124 (expand-file-name (if (file-directory-p emacs-dir)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
125 (concat emacs-dir basename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
126 (concat "~/.emacs-" basename)))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
127
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
128 (defun emacs-session-save ()
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
129 "This function is called when the window system is shutting down.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
130 If this function returns non-nil, the window system shutdown is cancelled.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
131
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
132 When a session manager tells Emacs that the window system is shutting
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
133 down, this function is called. It calls the functions in the hook
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
134 `emacs-save-session-functions'. Functions are called with the current
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
135 buffer set to a temporary buffer. Functions should use `insert' to insert
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
136 lisp code to save the session state. The buffer is saved
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
137 in a file in the home directory of the user running Emacs. The file
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
138 is evaluated when Emacs is restarted by the session manager.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
139
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
140 If any of the functions returns non-nil, no more functions are called
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
141 and this function returns non-nil. This will inform the session manager
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
142 that it should abort the window system shutdown."
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
143 (let ((filename (emacs-session-filename x-session-id))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
144 (buf (get-buffer-create (concat " *SES " x-session-id))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
145 (when (file-exists-p filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
146 (delete-file filename))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
147 (with-current-buffer buf
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
148 (let ((cancel-shutdown (condition-case nil
43869
606bb58da5c4 (emacs-session-save): Add comment that return t means cancel shutdown
Jan Djärv <jan.h.d@swipnet.se>
parents: 43866
diff changeset
149 ;; A return of t means cancel the shutdown.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
150 (run-hook-with-args-until-success
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
151 'emacs-save-session-functions)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
152 (error t))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
153 (unless cancel-shutdown
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
154 (write-file filename))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
155 (kill-buffer buf)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
156 cancel-shutdown))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
157
43866
9ec4ee6f4529 (emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43820
diff changeset
158 (defun emacs-session-restore (previous-session-id)
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
159 "Restore the Emacs session if started by a session manager.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
160 The file saved by `emacs-session-save' is evaluated and deleted if it
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
161 exists."
43866
9ec4ee6f4529 (emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43820
diff changeset
162 (let ((filename (emacs-session-filename previous-session-id)))
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
163 (when (file-exists-p filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
164 (load-file filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
165 (delete-file filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
166 (message "Restored session data"))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
167
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
168
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
169
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 ;;
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 ;; Standard X cursor shapes, courtesy of Mr. Fox, who wanted ALL of them.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 ;;
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 (defconst x-pointer-X-cursor 0)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 (defconst x-pointer-arrow 2)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 (defconst x-pointer-based-arrow-down 4)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 (defconst x-pointer-based-arrow-up 6)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 (defconst x-pointer-boat 8)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 (defconst x-pointer-bogosity 10)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 (defconst x-pointer-bottom-left-corner 12)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 (defconst x-pointer-bottom-right-corner 14)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 (defconst x-pointer-bottom-side 16)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 (defconst x-pointer-bottom-tee 18)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 (defconst x-pointer-box-spiral 20)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 (defconst x-pointer-center-ptr 22)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 (defconst x-pointer-circle 24)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 (defconst x-pointer-clock 26)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 (defconst x-pointer-coffee-mug 28)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 (defconst x-pointer-cross 30)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 (defconst x-pointer-cross-reverse 32)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 (defconst x-pointer-crosshair 34)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 (defconst x-pointer-diamond-cross 36)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 (defconst x-pointer-dot 38)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 (defconst x-pointer-dotbox 40)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 (defconst x-pointer-double-arrow 42)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 (defconst x-pointer-draft-large 44)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 (defconst x-pointer-draft-small 46)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 (defconst x-pointer-draped-box 48)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 (defconst x-pointer-exchange 50)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201 (defconst x-pointer-fleur 52)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 (defconst x-pointer-gobbler 54)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 (defconst x-pointer-gumby 56)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 (defconst x-pointer-hand1 58)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 (defconst x-pointer-hand2 60)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 (defconst x-pointer-heart 62)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 (defconst x-pointer-icon 64)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 (defconst x-pointer-iron-cross 66)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 (defconst x-pointer-left-ptr 68)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 (defconst x-pointer-left-side 70)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 (defconst x-pointer-left-tee 72)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 (defconst x-pointer-leftbutton 74)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 (defconst x-pointer-ll-angle 76)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 (defconst x-pointer-lr-angle 78)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 (defconst x-pointer-man 80)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 (defconst x-pointer-middlebutton 82)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 (defconst x-pointer-mouse 84)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 (defconst x-pointer-pencil 86)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 (defconst x-pointer-pirate 88)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 (defconst x-pointer-plus 90)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 (defconst x-pointer-question-arrow 92)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 (defconst x-pointer-right-ptr 94)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 (defconst x-pointer-right-side 96)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 (defconst x-pointer-right-tee 98)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 (defconst x-pointer-rightbutton 100)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 (defconst x-pointer-rtl-logo 102)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 (defconst x-pointer-sailboat 104)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 (defconst x-pointer-sb-down-arrow 106)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 (defconst x-pointer-sb-h-double-arrow 108)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 (defconst x-pointer-sb-left-arrow 110)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 (defconst x-pointer-sb-right-arrow 112)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 (defconst x-pointer-sb-up-arrow 114)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233 (defconst x-pointer-sb-v-double-arrow 116)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 (defconst x-pointer-shuttle 118)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235 (defconst x-pointer-sizing 120)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236 (defconst x-pointer-spider 122)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 (defconst x-pointer-spraycan 124)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 (defconst x-pointer-star 126)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239 (defconst x-pointer-target 128)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 (defconst x-pointer-tcross 130)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 (defconst x-pointer-top-left-arrow 132)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 (defconst x-pointer-top-left-corner 134)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 (defconst x-pointer-top-right-corner 136)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 (defconst x-pointer-top-side 138)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 (defconst x-pointer-top-tee 140)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 (defconst x-pointer-trek 142)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 (defconst x-pointer-ul-angle 144)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 (defconst x-pointer-umbrella 146)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 (defconst x-pointer-ur-angle 148)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 (defconst x-pointer-watch 150)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 (defconst x-pointer-xterm 152)
83813
f5b3f6bef1a1 (x-gtk-stock-map): Add etc/images to keys.
Jan Djärv <jan.h.d@swipnet.se>
parents: 83717
diff changeset
252 (defconst x-pointer-invisible 255)
96830
a8aac59d9c7a * term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 95841
diff changeset
253
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254
97422
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96830
diff changeset
255 (defvar x-colors)
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96830
diff changeset
256
26736
a0674327c167 Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 23903
diff changeset
257 (defun xw-defined-colors (&optional frame)
a0674327c167 Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 23903
diff changeset
258 "Internal function called by `defined-colors', which see."
11466
8fb524439d09 (x-defined-colors): Take frame as optional arg.
Richard M. Stallman <rms@gnu.org>
parents: 11319
diff changeset
259 (or frame (setq frame (selected-frame)))
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 (let ((all-colors x-colors)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 (this-color nil)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 (defined-colors nil))
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 (while all-colors
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 (setq this-color (car all-colors)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 all-colors (cdr all-colors))
27101
a5791b2ee668 (xw-defined-colors): Call color-supported-p,
Eli Zaretskii <eliz@gnu.org>
parents: 26736
diff changeset
266 (and (color-supported-p this-color frame t)
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 (setq defined-colors (cons this-color defined-colors))))
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 defined-colors))
396
d0eb77a4d8f7 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
269
d0eb77a4d8f7 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
270 ;;;; Function keys
d0eb77a4d8f7 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
271
85104
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
272 (defvar x-alternatives-map
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
273 (let ((map (make-sparse-keymap)))
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
274 ;; Map certain keypad keys into ASCII characters that people usually expect.
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
275 (define-key map [backspace] [127])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
276 (define-key map [delete] [127])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
277 (define-key map [tab] [?\t])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
278 (define-key map [linefeed] [?\n])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
279 (define-key map [clear] [?\C-l])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
280 (define-key map [return] [?\C-m])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
281 (define-key map [escape] [?\e])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
282 (define-key map [M-backspace] [?\M-\d])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
283 (define-key map [M-delete] [?\M-\d])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
284 (define-key map [M-tab] [?\M-\t])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
285 (define-key map [M-linefeed] [?\M-\n])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
286 (define-key map [M-clear] [?\M-\C-l])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
287 (define-key map [M-return] [?\M-\C-m])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
288 (define-key map [M-escape] [?\M-\e])
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
289 (define-key map [iso-lefttab] [backtab])
85111
ae1159126943 (x-alternatives-map): Remove spurious parenthesis.
Juanma Barranquero <lekktu@gmail.com>
parents: 85104
diff changeset
290 (define-key map [S-iso-lefttab] [backtab])
85104
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
291 map)
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
292 "Keymap of possible alternative meanings for some keys.")
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
293
83316
102194c6d773 Update Lisp code for a terminal-local `function-key-map'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83310
diff changeset
294 (defun x-setup-function-keys (frame)
102194c6d773 Update Lisp code for a terminal-local `function-key-map'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83310
diff changeset
295 "Set up `function-key-map' on FRAME for the X window system."
83503
ad1fbeffe3cb Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents: 83468
diff changeset
296 ;; Don't do this twice on the same display, or it would break
ad1fbeffe3cb Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents: 83468
diff changeset
297 ;; normal-erase-is-backspace-mode.
ad1fbeffe3cb Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents: 83468
diff changeset
298 (unless (terminal-parameter frame 'x-setup-function-keys)
ad1fbeffe3cb Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents: 83468
diff changeset
299 ;; Map certain keypad keys into ASCII characters that people usually expect.
ad1fbeffe3cb Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents: 83468
diff changeset
300 (with-selected-frame frame
85104
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
301 (let ((map (copy-keymap x-alternatives-map)))
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
302 (set-keymap-parent map (keymap-parent local-function-key-map))
9befff1bc946 (x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84984
diff changeset
303 (set-keymap-parent local-function-key-map map)))
83503
ad1fbeffe3cb Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents: 83468
diff changeset
304 (set-terminal-parameter frame 'x-setup-function-keys t)))
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
305
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
306 ;; These tell read-char how to convert
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
307 ;; these special chars to ASCII.
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
308 (put 'backspace 'ascii-character 127)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
309 (put 'delete 'ascii-character 127)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
310 (put 'tab 'ascii-character ?\t)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
311 (put 'linefeed 'ascii-character ?\n)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
312 (put 'clear 'ascii-character 12)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
313 (put 'return 'ascii-character 13)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
314 (put 'escape 'ascii-character ?\e)
5515
920b55d2057b (vendor-key-syms): Set this variable.
Richard M. Stallman <rms@gnu.org>
parents: 4314
diff changeset
315
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
316
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
317 ;;;; Keysyms
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
318
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
319 (defun vendor-specific-keysyms (vendor)
50075
cfb7d0684cf8 (vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents: 49599
diff changeset
320 "Return the appropriate value of `system-key-alist' for VENDOR.
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
321 VENDOR is a string containing the name of the X Server's vendor,
50075
cfb7d0684cf8 (vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents: 49599
diff changeset
322 as returned by `x-server-vendor'."
87595
4c6c79916238 * configure.in: Remove references to unsupported systems.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 87385
diff changeset
323 (cond ((or (string-equal vendor "Hewlett-Packard Incorporated")
11902
fab32f80adf5 (vendor-specific-keysyms): Add second spelling for HP.
Karl Heuer <kwzh@gnu.org>
parents: 11821
diff changeset
324 (string-equal vendor "Hewlett-Packard Company"))
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
325 '(( 168 . mute-acute)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
326 ( 169 . mute-grave)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
327 ( 170 . mute-asciicircum)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
328 ( 171 . mute-diaeresis)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
329 ( 172 . mute-asciitilde)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
330 ( 175 . lira)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
331 ( 190 . guilder)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
332 ( 252 . block)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
333 ( 256 . longminus)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
334 (65388 . reset)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
335 (65389 . system)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
336 (65390 . user)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
337 (65391 . clearline)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
338 (65392 . insertline)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
339 (65393 . deleteline)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
340 (65394 . insertchar)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
341 (65395 . deletechar)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
342 (65396 . backtab)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
343 (65397 . kp-backtab)))
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
344 ;; Fixme: What about non-X11/NeWS sun server?
12057
562d3062b82e (vendor-specific-keysyms): Recognize "X Consortium".
Karl Heuer <kwzh@gnu.org>
parents: 11902
diff changeset
345 ((or (string-equal vendor "X11/NeWS - Sun Microsystems Inc.")
562d3062b82e (vendor-specific-keysyms): Recognize "X Consortium".
Karl Heuer <kwzh@gnu.org>
parents: 11902
diff changeset
346 (string-equal vendor "X Consortium"))
12556
fb1b760f6636 (vendor-specific-keysyms):
Karl Heuer <kwzh@gnu.org>
parents: 12443
diff changeset
347 '((392976 . f36)
fb1b760f6636 (vendor-specific-keysyms):
Karl Heuer <kwzh@gnu.org>
parents: 12443
diff changeset
348 (392977 . f37)
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
349 (393056 . req)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
350 ;; These are for Sun under X11R6
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
351 (393072 . props)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
352 (393073 . front)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
353 (393074 . copy)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
354 (393075 . open)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
355 (393076 . paste)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
356 (393077 . cut)))
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
357 (t
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
358 ;; This is used by DEC's X server.
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
359 '((65280 . remove)))))
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
360
89246
27eed9fab7f5 Fix typo in loop setting x-keysym-table.
Dave Love <fx@gnu.org>
parents: 89240
diff changeset
361 ;; Latin-1
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
362 (let ((i 160))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
363 (while (< i 256)
89240
51d2baa0181d Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 42932
diff changeset
364 (puthash i i x-keysym-table)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
365 (setq i (1+ i))))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
366
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
367 ;; Table from Kuhn's proposed additions to the `KEYSYM Encoding'
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
368 ;; appendix to the X protocol definition.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
369 (dolist
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
370 (pair
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
371 '(
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
372 ;; Latin-2
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
373 (#x1a1 . ?,B!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
374 (#x1a2 . ?,B"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
375 (#x1a3 . ?,B#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
376 (#x1a5 . ?,B%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
377 (#x1a6 . ?,B&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
378 (#x1a9 . ?,B)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
379 (#x1aa . ?,B*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
380 (#x1ab . ?,B+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
381 (#x1ac . ?,B,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
382 (#x1ae . ?,B.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
383 (#x1af . ?,B/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
384 (#x1b1 . ?,B1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
385 (#x1b2 . ?,B2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
386 (#x1b3 . ?,B3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
387 (#x1b5 . ?,B5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
388 (#x1b6 . ?,B6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
389 (#x1b7 . ?,B7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
390 (#x1b9 . ?,B9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
391 (#x1ba . ?,B:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
392 (#x1bb . ?,B;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
393 (#x1bc . ?,B<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
394 (#x1bd . ?,B=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
395 (#x1be . ?,B>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
396 (#x1bf . ?,B?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
397 (#x1c0 . ?,B@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
398 (#x1c3 . ?,BC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
399 (#x1c5 . ?,BE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
400 (#x1c6 . ?,BF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
401 (#x1c8 . ?,BH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
402 (#x1ca . ?,BJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
403 (#x1cc . ?,BL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
404 (#x1cf . ?,BO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
405 (#x1d0 . ?,BP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
406 (#x1d1 . ?,BQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
407 (#x1d2 . ?,BR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
408 (#x1d5 . ?,BU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
409 (#x1d8 . ?,BX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
410 (#x1d9 . ?,BY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
411 (#x1db . ?,B[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
412 (#x1de . ?,B^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
413 (#x1e0 . ?,B`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
414 (#x1e3 . ?,Bc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
415 (#x1e5 . ?,Be(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
416 (#x1e6 . ?,Bf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
417 (#x1e8 . ?,Bh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
418 (#x1ea . ?,Bj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
419 (#x1ec . ?,Bl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
420 (#x1ef . ?,Bo(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
421 (#x1f0 . ?,Bp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
422 (#x1f1 . ?,Bq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
423 (#x1f2 . ?,Br(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
424 (#x1f5 . ?,Bu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
425 (#x1f8 . ?,Bx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
426 (#x1f9 . ?,By(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
427 (#x1fb . ?,B{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
428 (#x1fe . ?,B~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
429 (#x1ff . ?,B(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
430 ;; Latin-3
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
431 (#x2a1 . ?,C!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
432 (#x2a6 . ?,C&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
433 (#x2a9 . ?,C)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
434 (#x2ab . ?,C+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
435 (#x2ac . ?,C,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
436 (#x2b1 . ?,C1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
437 (#x2b6 . ?,C6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
438 (#x2b9 . ?,C9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
439 (#x2bb . ?,C;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
440 (#x2bc . ?,C<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
441 (#x2c5 . ?,CE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
442 (#x2c6 . ?,CF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
443 (#x2d5 . ?,CU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
444 (#x2d8 . ?,CX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
445 (#x2dd . ?,C](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
446 (#x2de . ?,C^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
447 (#x2e5 . ?,Ce(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
448 (#x2e6 . ?,Cf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
449 (#x2f5 . ?,Cu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
450 (#x2f8 . ?,Cx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
451 (#x2fd . ?,C}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
452 (#x2fe . ?,C~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
453 ;; Latin-4
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
454 (#x3a2 . ?,D"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
455 (#x3a3 . ?,D#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
456 (#x3a5 . ?,D%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
457 (#x3a6 . ?,D&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
458 (#x3aa . ?,D*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
459 (#x3ab . ?,D+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
460 (#x3ac . ?,D,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
461 (#x3b3 . ?,D3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
462 (#x3b5 . ?,D5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
463 (#x3b6 . ?,D6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
464 (#x3ba . ?,D:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
465 (#x3bb . ?,D;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
466 (#x3bc . ?,D<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
467 (#x3bd . ?,D=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
468 (#x3bf . ?,D?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
469 (#x3c0 . ?,D@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
470 (#x3c7 . ?,DG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
471 (#x3cc . ?,DL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
472 (#x3cf . ?,DO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
473 (#x3d1 . ?,DQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
474 (#x3d2 . ?,DR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
475 (#x3d3 . ?,DS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
476 (#x3d9 . ?,DY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
477 (#x3dd . ?,D](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
478 (#x3de . ?,D^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
479 (#x3e0 . ?,D`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
480 (#x3e7 . ?,Dg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
481 (#x3ec . ?,Dl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
482 (#x3ef . ?,Do(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
483 (#x3f1 . ?,Dq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
484 (#x3f2 . ?,Dr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
485 (#x3f3 . ?,Ds(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
486 (#x3f9 . ?,Dy(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
487 (#x3fd . ?,D}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
488 (#x3fe . ?,D~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
489 ;; Kana: Fixme: needs conversion to Japanese charset -- seems
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
490 ;; to require jisx0213, for which the Unicode translation
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
491 ;; isn't clear.
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
492 (#x47e . ?(J~(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
493 (#x4a1 . ?$A!#(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
494 (#x4a2 . ?\$A!8(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
495 (#x4a3 . ?\$A!9(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
496 (#x4a4 . ?$A!"(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
497 (#x4a5 . ?$A!$(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
498 (#x4a6 . ?$A%r(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
499 (#x4a7 . ?$A%!(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
500 (#x4a8 . ?$A%#(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
501 (#x4a9 . ?$A%%(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
502 (#x4aa . ?$A%'(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
503 (#x4ab . ?$A%)(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
504 (#x4ac . ?$A%c(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
505 (#x4ad . ?$A%e(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
506 (#x4ae . ?$A%g(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
507 (#x4af . ?$A%C(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
508 (#x4b0 . ?$B!<(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
509 (#x4b1 . ?$A%"(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
510 (#x4b2 . ?$A%$(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
511 (#x4b3 . ?$A%&(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
512 (#x4b4 . ?$A%((B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
513 (#x4b5 . ?$A%*(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
514 (#x4b6 . ?$A%+(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
515 (#x4b7 . ?$A%-(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
516 (#x4b8 . ?$A%/(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
517 (#x4b9 . ?$A%1(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
518 (#x4ba . ?$A%3(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
519 (#x4bb . ?$A%5(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
520 (#x4bc . ?$A%7(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
521 (#x4bd . ?$A%9(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
522 (#x4be . ?$A%;(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
523 (#x4bf . ?$A%=(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
524 (#x4c0 . ?$A%?(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
525 (#x4c1 . ?$A%A(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
526 (#x4c2 . ?$A%D(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
527 (#x4c3 . ?$A%F(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
528 (#x4c4 . ?$A%H(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
529 (#x4c5 . ?$A%J(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
530 (#x4c6 . ?$A%K(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
531 (#x4c7 . ?$A%L(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
532 (#x4c8 . ?$A%M(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
533 (#x4c9 . ?$A%N(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
534 (#x4ca . ?$A%O(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
535 (#x4cb . ?$A%R(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
536 (#x4cc . ?$A%U(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
537 (#x4cd . ?$A%X(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
538 (#x4ce . ?$A%[(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
539 (#x4cf . ?$A%^(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
540 (#x4d0 . ?$A%_(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
541 (#x4d1 . ?$A%`(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
542 (#x4d2 . ?$A%a(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
543 (#x4d3 . ?$A%b(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
544 (#x4d4 . ?$A%d(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
545 (#x4d5 . ?$A%f(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
546 (#x4d6 . ?$A%h(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
547 (#x4d7 . ?$A%i(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
548 (#x4d8 . ?$A%j(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
549 (#x4d9 . ?$A%k(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
550 (#x4da . ?$A%l(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
551 (#x4db . ?$A%m(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
552 (#x4dc . ?$A%o(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
553 (#x4dd . ?$A%s(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
554 (#x4de . ?$B!+(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
555 (#x4df . ?$B!,(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
556 ;; Arabic
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
557 (#x5ac . ?,G,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
558 (#x5bb . ?,G;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
559 (#x5bf . ?,G?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
560 (#x5c1 . ?,GA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
561 (#x5c2 . ?,GB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
562 (#x5c3 . ?,GC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
563 (#x5c4 . ?,GD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
564 (#x5c5 . ?,GE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
565 (#x5c6 . ?,GF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
566 (#x5c7 . ?,GG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
567 (#x5c8 . ?,GH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
568 (#x5c9 . ?,GI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
569 (#x5ca . ?,GJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
570 (#x5cb . ?,GK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
571 (#x5cc . ?,GL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
572 (#x5cd . ?,GM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
573 (#x5ce . ?,GN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
574 (#x5cf . ?,GO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
575 (#x5d0 . ?,GP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
576 (#x5d1 . ?,GQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
577 (#x5d2 . ?,GR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
578 (#x5d3 . ?,GS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
579 (#x5d4 . ?,GT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
580 (#x5d5 . ?,GU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
581 (#x5d6 . ?,GV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
582 (#x5d7 . ?,GW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
583 (#x5d8 . ?,GX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
584 (#x5d9 . ?,GY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
585 (#x5da . ?,GZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
586 (#x5e0 . ?,G`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
587 (#x5e1 . ?,Ga(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
588 (#x5e2 . ?,Gb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
589 (#x5e3 . ?,Gc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
590 (#x5e4 . ?,Gd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
591 (#x5e5 . ?,Ge(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
592 (#x5e6 . ?,Gf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
593 (#x5e7 . ?,Gg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
594 (#x5e8 . ?,Gh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
595 (#x5e9 . ?,Gi(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
596 (#x5ea . ?,Gj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
597 (#x5eb . ?,Gk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
598 (#x5ec . ?,Gl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
599 (#x5ed . ?,Gm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
600 (#x5ee . ?,Gn(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
601 (#x5ef . ?,Go(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
602 (#x5f0 . ?,Gp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
603 (#x5f1 . ?,Gq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
604 (#x5f2 . ?,Gr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
605 ;; Cyrillic
66389
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
606 (#x680 . ?$,1)R(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
607 (#x681 . ?$,1)V(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
608 (#x682 . ?$,1)Z(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
609 (#x683 . ?$,1)\(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
610 (#x684 . ?$,1)b(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
611 (#x685 . ?$,1)n(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
612 (#x686 . ?$,1)p(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
613 (#x687 . ?$,1)r(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
614 (#x688 . ?$,1)v(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
615 (#x689 . ?$,1)x(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
616 (#x68a . ?$,1)z(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
617 (#x68c . ?$,1*8(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
618 (#x68d . ?$,1*B(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
619 (#x68e . ?$,1*H(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
620 (#x68f . ?$,1*N(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
621 (#x690 . ?$,1)S(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
622 (#x691 . ?$,1)W(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
623 (#x692 . ?$,1)[(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
624 (#x693 . ?$,1)](B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
625 (#x694 . ?$,1)c(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
626 (#x695 . ?$,1)o(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
627 (#x696 . ?$,1)q(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
628 (#x697 . ?$,1)s(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
629 (#x698 . ?$,1)w(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
630 (#x699 . ?$,1)y(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
631 (#x69a . ?$,1){(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
632 (#x69c . ?$,1*9(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
633 (#x69d . ?$,1*C(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
634 (#x69e . ?$,1*I(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
635 (#x69f . ?$,1*O(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
636 (#x6a1 . ?,Lr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
637 (#x6a2 . ?,Ls(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
638 (#x6a3 . ?,Lq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
639 (#x6a4 . ?,Lt(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
640 (#x6a5 . ?,Lu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
641 (#x6a6 . ?,Lv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
642 (#x6a7 . ?,Lw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
643 (#x6a8 . ?,Lx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
644 (#x6a9 . ?,Ly(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
645 (#x6aa . ?,Lz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
646 (#x6ab . ?,L{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
647 (#x6ac . ?,L|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
648 (#x6ae . ?,L~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
649 (#x6af . ?,L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
650 (#x6b0 . ?,Lp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
651 (#x6b1 . ?,L"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
652 (#x6b2 . ?,L#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
653 (#x6b3 . ?,L!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
654 (#x6b4 . ?,L$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
655 (#x6b5 . ?,L%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
656 (#x6b6 . ?,L&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
657 (#x6b7 . ?,L'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
658 (#x6b8 . ?,L((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
659 (#x6b9 . ?,L)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
660 (#x6ba . ?,L*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
661 (#x6bb . ?,L+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
662 (#x6bc . ?,L,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
663 (#x6be . ?,L.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
664 (#x6bf . ?,L/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
665 (#x6c0 . ?,Ln(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
666 (#x6c1 . ?,LP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
667 (#x6c2 . ?,LQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
668 (#x6c3 . ?,Lf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
669 (#x6c4 . ?,LT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
670 (#x6c5 . ?,LU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
671 (#x6c6 . ?,Ld(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
672 (#x6c7 . ?,LS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
673 (#x6c8 . ?,Le(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
674 (#x6c9 . ?,LX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
675 (#x6ca . ?,LY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
676 (#x6cb . ?,LZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
677 (#x6cc . ?,L[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
678 (#x6cd . ?,L\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
679 (#x6ce . ?,L](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
680 (#x6cf . ?,L^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
681 (#x6d0 . ?,L_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
682 (#x6d1 . ?,Lo(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
683 (#x6d2 . ?,L`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
684 (#x6d3 . ?,La(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
685 (#x6d4 . ?,Lb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
686 (#x6d5 . ?,Lc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
687 (#x6d6 . ?,LV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
688 (#x6d7 . ?,LR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
689 (#x6d8 . ?,Ll(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
690 (#x6d9 . ?,Lk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
691 (#x6da . ?,LW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
692 (#x6db . ?,Lh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
693 (#x6dc . ?,Lm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
694 (#x6dd . ?,Li(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
695 (#x6de . ?,Lg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
696 (#x6df . ?,Lj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
697 (#x6e0 . ?,LN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
698 (#x6e1 . ?,L0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
699 (#x6e2 . ?,L1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
700 (#x6e3 . ?,LF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
701 (#x6e4 . ?,L4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
702 (#x6e5 . ?,L5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
703 (#x6e6 . ?,LD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
704 (#x6e7 . ?,L3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
705 (#x6e8 . ?,LE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
706 (#x6e9 . ?,L8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
707 (#x6ea . ?,L9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
708 (#x6eb . ?,L:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
709 (#x6ec . ?,L;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
710 (#x6ed . ?,L<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
711 (#x6ee . ?,L=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
712 (#x6ef . ?,L>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
713 (#x6f0 . ?,L?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
714 (#x6f1 . ?,LO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
715 (#x6f2 . ?,L@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
716 (#x6f3 . ?,LA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
717 (#x6f4 . ?,LB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
718 (#x6f5 . ?,LC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
719 (#x6f6 . ?,L6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
720 (#x6f7 . ?,L2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
721 (#x6f8 . ?,LL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
722 (#x6f9 . ?,LK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
723 (#x6fa . ?,L7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
724 (#x6fb . ?,LH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
725 (#x6fc . ?,LM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
726 (#x6fd . ?,LI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
727 (#x6fe . ?,LG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
728 (#x6ff . ?,LJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
729 ;; Greek
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
730 (#x7a1 . ?,F6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
731 (#x7a2 . ?,F8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
732 (#x7a3 . ?,F9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
733 (#x7a4 . ?,F:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
734 (#x7a5 . ?,FZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
735 (#x7a7 . ?,F<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
736 (#x7a8 . ?,F>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
737 (#x7a9 . ?,F[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
738 (#x7ab . ?,F?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
739 (#x7ae . ?,F5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
740 (#x7af . ?,F/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
741 (#x7b1 . ?,F\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
742 (#x7b2 . ?,F](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
743 (#x7b3 . ?,F^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
744 (#x7b4 . ?,F_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
745 (#x7b5 . ?,Fz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
746 (#x7b6 . ?,F@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
747 (#x7b7 . ?,F|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
748 (#x7b8 . ?,F}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
749 (#x7b9 . ?,F{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
750 (#x7ba . ?,F`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
751 (#x7bb . ?,F~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
752 (#x7c1 . ?,FA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
753 (#x7c2 . ?,FB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
754 (#x7c3 . ?,FC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
755 (#x7c4 . ?,FD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
756 (#x7c5 . ?,FE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
757 (#x7c6 . ?,FF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
758 (#x7c7 . ?,FG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
759 (#x7c8 . ?,FH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
760 (#x7c9 . ?,FI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
761 (#x7ca . ?,FJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
762 (#x7cb . ?,FK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
763 (#x7cc . ?,FL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
764 (#x7cd . ?,FM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
765 (#x7ce . ?,FN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
766 (#x7cf . ?,FO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
767 (#x7d0 . ?,FP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
768 (#x7d1 . ?,FQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
769 (#x7d2 . ?,FS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
770 (#x7d4 . ?,FT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
771 (#x7d5 . ?,FU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
772 (#x7d6 . ?,FV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
773 (#x7d7 . ?,FW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
774 (#x7d8 . ?,FX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
775 (#x7d9 . ?,FY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
776 (#x7e1 . ?,Fa(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
777 (#x7e2 . ?,Fb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
778 (#x7e3 . ?,Fc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
779 (#x7e4 . ?,Fd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
780 (#x7e5 . ?,Fe(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
781 (#x7e6 . ?,Ff(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
782 (#x7e7 . ?,Fg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
783 (#x7e8 . ?,Fh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
784 (#x7e9 . ?,Fi(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
785 (#x7ea . ?,Fj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
786 (#x7eb . ?,Fk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
787 (#x7ec . ?,Fl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
788 (#x7ed . ?,Fm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
789 (#x7ee . ?,Fn(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
790 (#x7ef . ?,Fo(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
791 (#x7f0 . ?,Fp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
792 (#x7f1 . ?,Fq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
793 (#x7f2 . ?,Fs(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
794 (#x7f3 . ?,Fr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
795 (#x7f4 . ?,Ft(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
796 (#x7f5 . ?,Fu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
797 (#x7f6 . ?,Fv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
798 (#x7f7 . ?,Fw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
799 (#x7f8 . ?,Fx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
800 (#x7f9 . ?,Fy(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
801 ;; Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
802 (#x8a1 . ?$,1|W(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
803 (#x8a2 . ?$A)0(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
804 (#x8a3 . ?$A)$(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
805 (#x8a4 . ?$,1{ (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
806 (#x8a5 . ?$,1{!(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
807 (#x8a6 . ?$A)&(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
808 (#x8a7 . ?$,1|A(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
809 (#x8a8 . ?$,1|C(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
810 (#x8a9 . ?$,1|D(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
811 (#x8aa . ?$,1|F(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
812 (#x8ab . ?$,1|;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
813 (#x8ac . ?$,1|=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
814 (#x8ad . ?$,1|>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
815 (#x8ae . ?$,1|@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
816 (#x8af . ?$,1|H(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
817 (#x8b0 . ?$,1|L(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
818 (#x8bc . ?$A!\(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
819 (#x8bd . ?$A!Y(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
820 (#x8be . ?$A!](B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
821 (#x8bf . ?$A!R(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
822 (#x8c0 . ?$A!`(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
823 (#x8c1 . ?$A!X(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
824 (#x8c2 . ?$A!^(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
825 (#x8c5 . ?$B"`(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
826 (#x8c8 . ?$(G"D(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
827 (#x8c9 . ?$(O"l(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
828 (#x8cd . ?$B"N(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
829 (#x8ce . ?$B"M(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
830 (#x8cf . ?$A!T(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
831 (#x8d6 . ?$A!L(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
832 (#x8da . ?$B">(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
833 (#x8db . ?$B"?(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
834 (#x8dc . ?$A!I(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
835 (#x8dd . ?$A!H(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
836 (#x8de . ?$A!D(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
837 (#x8df . ?$A!E(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
838 (#x8ef . ?$B"_(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
839 (#x8f6 . ?$,1!R(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
840 (#x8fb . ?$A!{(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
841 (#x8fc . ?$A!|(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
842 (#x8fd . ?$A!z(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
843 (#x8fe . ?$A!}(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
844 ;; Special
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
845 (#x9e0 . ?$A!t(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
846 (#x9e1 . ?$(C"F(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
847 (#x9e2 . ?$(GB*(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
848 (#x9e3 . ?$(GB-(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
849 (#x9e4 . ?$(GB.(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
850 (#x9e5 . ?$(GB+(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
851 (#x9e8 . ?$,1}d(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
852 (#x9e9 . ?$(GB,(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
853 (#x9ea . ?$A)<(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
854 (#x9eb . ?$A)4(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
855 (#x9ec . ?$A)0(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
856 (#x9ed . ?$A)8(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
857 (#x9ee . ?$A)`(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
858 (#x9ef . ?$,1|Z(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
859 (#x9f0 . ?$,1|[(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
860 (#x9f1 . ?$A)$(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
861 (#x9f2 . ?$,1|\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
862 (#x9f3 . ?$,1|](B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
863 (#x9f4 . ?$A)@(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
864 (#x9f5 . ?$A)H(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
865 (#x9f6 . ?$A)X(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
866 (#x9f7 . ?$A)P(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
867 (#x9f8 . ?$A)&(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
868 ;; Publishing
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
869 (#xaa1 . ?$,1rc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
870 (#xaa2 . ?$,1rb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
871 (#xaa3 . ?$,1rd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
872 (#xaa4 . ?$,1re(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
873 (#xaa5 . ?$,1rg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
874 (#xaa6 . ?$,1rh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
875 (#xaa7 . ?$,1ri(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
876 (#xaa8 . ?$,1rj(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
877 (#xaa9 . ?$(G!7(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
878 (#xaaa . ?$(G!9(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
879 (#xaae . ?$A!-(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
880 (#xaaf . ?$(G!-(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
881 (#xab0 . ?$(O'x(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
882 (#xab1 . ?$(O'y(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
883 (#xab2 . ?$(O'z(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
884 (#xab3 . ?$,1v6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
885 (#xab4 . ?$,1v7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
886 (#xab5 . ?$,1v8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
887 (#xab6 . ?$,1v9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
888 (#xab7 . ?$,1v:(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
889 (#xab8 . ?$(G""(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
890 (#xabb . ?$,1rr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
891 (#xabc . ?$,1{)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
892 (#xabe . ?$,1{*(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
893 (#xac3 . ?$(C({(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
894 (#xac4 . ?$(C(|(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
895 (#xac5 . ?$(C(}(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
896 (#xac6 . ?$(C(~(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
897 (#xac9 . ?$(D"o(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
898 (#xaca . ?$,2"s(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
899 (#xacc . ?$(O##(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
900 (#xacd . ?$(O#!(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
901 (#xace . ?$A!p(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
902 (#xacf . ?$,2!o(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
903 (#xad0 . ?,F!(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
904 (#xad1 . ?,F"(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
905 (#xad2 . ?,Y4(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
906 (#xad3 . ?,Y!(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
907 (#xad4 . ?$,1u^(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
908 (#xad6 . ?$A!d(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
909 (#xad7 . ?$A!e(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
910 (#xad9 . ?$,2%](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
911 (#xadb . ?$,2!l(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
912 (#xadc . ?$(O#$(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
913 (#xadd . ?$(O#"(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
914 (#xade . ?$A!q(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
915 (#xadf . ?$,2!n(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
916 (#xae0 . ?$(O#?(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
917 (#xae1 . ?$,2!k(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
918 (#xae2 . ?$,2!m(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
919 (#xae3 . ?$A!w(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
920 (#xae4 . ?$(G!}(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
921 (#xae5 . ?$A!n(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
922 (#xae6 . ?$(O#@(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
923 (#xae7 . ?$,2!j(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
924 (#xae8 . ?$A!x(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
925 (#xae9 . ?$(G!~(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
926 (#xaea . ?$(C"P(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
927 (#xaeb . ?$(O-~(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
928 (#xaec . ?$(O&@(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
929 (#xaed . ?$(O&<(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
930 (#xaee . ?$(O&>(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
931 (#xaf0 . ?$,2%`(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
932 (#xaf1 . ?$B"w(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
933 (#xaf2 . ?$B"x(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
934 (#xaf3 . ?$(O'{(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
935 (#xaf4 . ?$,2%W(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
936 (#xaf5 . ?$B"t(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
937 (#xaf6 . ?$B"u(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
938 (#xaf7 . ?$A!a(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
939 (#xaf8 . ?$A!b(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
940 (#xaf9 . ?$(O&g(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
941 (#xafa . ?$,1zu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
942 (#xafb . ?$,1uW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
943 (#xafc . ?$,1s8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
944 (#xafd . ?$,1rz(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
945 (#xafe . ?,Y%(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
946 ;; APL
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
947 (#xba3 . ?<)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
948 (#xba6 . ?>)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
949 (#xba8 . ?$A!E(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
950 (#xba9 . ?$A!D(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
951 (#xbc0 . ?,A/(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
952 (#xbc2 . ?$A!M(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
953 (#xbc3 . ?$A!I(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
954 (#xbc4 . ?$,1zj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
955 (#xbc6 . ?_)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
956 (#xbca . ?$,1x8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
957 (#xbcc . ?$,1|5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
958 (#xbce . ?$,1yd(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
959 (#xbcf . ?$A!p(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
960 (#xbd3 . ?$,1zh(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
961 (#xbd6 . ?$A!H(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
962 (#xbd8 . ?$B"?(B)
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
963 (#xbda . ?$B">(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
964 (#xbdc . ?$,1yb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
965 (#xbfc . ?$,1yc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
966 ;; Hebrew
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
967 (#xcdf . ?,H_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
968 (#xce0 . ?,H`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
969 (#xce1 . ?,Ha(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
970 (#xce2 . ?,Hb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
971 (#xce3 . ?,Hc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
972 (#xce4 . ?,Hd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
973 (#xce5 . ?,He(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
974 (#xce6 . ?,Hf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
975 (#xce7 . ?,Hg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
976 (#xce8 . ?,Hh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
977 (#xce9 . ?,Hi(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
978 (#xcea . ?,Hj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
979 (#xceb . ?,Hk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
980 (#xcec . ?,Hl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
981 (#xced . ?,Hm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
982 (#xcee . ?,Hn(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
983 (#xcef . ?,Ho(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
984 (#xcf0 . ?,Hp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
985 (#xcf1 . ?,Hq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
986 (#xcf2 . ?,Hr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
987 (#xcf3 . ?,Hs(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
988 (#xcf4 . ?,Ht(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
989 (#xcf5 . ?,Hu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
990 (#xcf6 . ?,Hv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
991 (#xcf7 . ?,Hw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
992 (#xcf8 . ?,Hx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
993 (#xcf9 . ?,Hy(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
994 (#xcfa . ?,Hz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
995 ;; Thai
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
996 (#xda1 . ?,T!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
997 (#xda2 . ?,T"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
998 (#xda3 . ?,T#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
999 (#xda4 . ?,T$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1000 (#xda5 . ?,T%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1001 (#xda6 . ?,T&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1002 (#xda7 . ?,T'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1003 (#xda8 . ?,T((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1004 (#xda9 . ?,T)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1005 (#xdaa . ?,T*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1006 (#xdab . ?,T+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1007 (#xdac . ?,T,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1008 (#xdad . ?,T-(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1009 (#xdae . ?,T.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1010 (#xdaf . ?,T/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1011 (#xdb0 . ?,T0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1012 (#xdb1 . ?,T1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1013 (#xdb2 . ?,T2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1014 (#xdb3 . ?,T3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1015 (#xdb4 . ?,T4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1016 (#xdb5 . ?,T5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1017 (#xdb6 . ?,T6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1018 (#xdb7 . ?,T7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1019 (#xdb8 . ?,T8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1020 (#xdb9 . ?,T9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1021 (#xdba . ?,T:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1022 (#xdbb . ?,T;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1023 (#xdbc . ?,T<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1024 (#xdbd . ?,T=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1025 (#xdbe . ?,T>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1026 (#xdbf . ?,T?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1027 (#xdc0 . ?,T@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1028 (#xdc1 . ?,TA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1029 (#xdc2 . ?,TB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1030 (#xdc3 . ?,TC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1031 (#xdc4 . ?,TD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1032 (#xdc5 . ?,TE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1033 (#xdc6 . ?,TF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1034 (#xdc7 . ?,TG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1035 (#xdc8 . ?,TH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1036 (#xdc9 . ?,TI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1037 (#xdca . ?,TJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1038 (#xdcb . ?,TK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1039 (#xdcc . ?,TL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1040 (#xdcd . ?,TM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1041 (#xdce . ?,TN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1042 (#xdcf . ?,TO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1043 (#xdd0 . ?,TP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1044 (#xdd1 . ?,TQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1045 (#xdd2 . ?,TR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1046 (#xdd3 . ?,TS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1047 (#xdd4 . ?,TT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1048 (#xdd5 . ?,TU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1049 (#xdd6 . ?,TV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1050 (#xdd7 . ?,TW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1051 (#xdd8 . ?,TX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1052 (#xdd9 . ?,TY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1053 (#xdda . ?,TZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1054 (#xddf . ?,T_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1055 (#xde0 . ?,T`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1056 (#xde1 . ?,Ta(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1057 (#xde2 . ?,Tb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1058 (#xde3 . ?,Tc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1059 (#xde4 . ?,Td(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1060 (#xde5 . ?,Te(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1061 (#xde6 . ?,Tf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1062 (#xde7 . ?,Tg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1063 (#xde8 . ?,Th(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1064 (#xde9 . ?,Ti(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1065 (#xdea . ?,Tj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1066 (#xdeb . ?,Tk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1067 (#xdec . ?,Tl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1068 (#xded . ?,Tm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1069 (#xdf0 . ?,Tp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1070 (#xdf1 . ?,Tq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1071 (#xdf2 . ?,Tr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1072 (#xdf3 . ?,Ts(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1073 (#xdf4 . ?,Tt(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1074 (#xdf5 . ?,Tu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1075 (#xdf6 . ?,Tv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1076 (#xdf7 . ?,Tw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1077 (#xdf8 . ?,Tx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1078 (#xdf9 . ?,Ty(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1079 ;; Korean
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1080 (#xea1 . ?$(C$!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1081 (#xea2 . ?$(C$"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1082 (#xea3 . ?$(C$#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1083 (#xea4 . ?$(C$$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1084 (#xea5 . ?$(C$%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1085 (#xea6 . ?$(C$&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1086 (#xea7 . ?$(C$'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1087 (#xea8 . ?$(C$((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1088 (#xea9 . ?$(C$)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1089 (#xeaa . ?$(C$*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1090 (#xeab . ?$(C$+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1091 (#xeac . ?$(C$,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1092 (#xead . ?$(C$-(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1093 (#xeae . ?$(C$.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1094 (#xeaf . ?$(C$/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1095 (#xeb0 . ?$(C$0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1096 (#xeb1 . ?$(C$1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1097 (#xeb2 . ?$(C$2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1098 (#xeb3 . ?$(C$3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1099 (#xeb4 . ?$(C$4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1100 (#xeb5 . ?$(C$5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1101 (#xeb6 . ?$(C$6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1102 (#xeb7 . ?$(C$7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1103 (#xeb8 . ?$(C$8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1104 (#xeb9 . ?$(C$9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1105 (#xeba . ?$(C$:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1106 (#xebb . ?$(C$;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1107 (#xebc . ?$(C$<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1108 (#xebd . ?$(C$=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1109 (#xebe . ?$(C$>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1110 (#xebf . ?$(C$?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1111 (#xec0 . ?$(C$@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1112 (#xec1 . ?$(C$A(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1113 (#xec2 . ?$(C$B(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1114 (#xec3 . ?$(C$C(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1115 (#xec4 . ?$(C$D(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1116 (#xec5 . ?$(C$E(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1117 (#xec6 . ?$(C$F(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1118 (#xec7 . ?$(C$G(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1119 (#xec8 . ?$(C$H(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1120 (#xec9 . ?$(C$I(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1121 (#xeca . ?$(C$J(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1122 (#xecb . ?$(C$K(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1123 (#xecc . ?$(C$L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1124 (#xecd . ?$(C$M(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1125 (#xece . ?$(C$N(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1126 (#xecf . ?$(C$O(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1127 (#xed0 . ?$(C$P(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1128 (#xed1 . ?$(C$Q(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1129 (#xed2 . ?$(C$R(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1130 (#xed3 . ?$(C$S(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1131 (#xed4 . ?$,1LH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1132 (#xed5 . ?$,1LI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1133 (#xed6 . ?$,1LJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1134 (#xed7 . ?$,1LK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1135 (#xed8 . ?$,1LL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1136 (#xed9 . ?$,1LM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1137 (#xeda . ?$,1LN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1138 (#xedb . ?$,1LO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1139 (#xedc . ?$,1LP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1140 (#xedd . ?$,1LQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1141 (#xede . ?$,1LR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1142 (#xedf . ?$,1LS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1143 (#xee0 . ?$,1LT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1144 (#xee1 . ?$,1LU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1145 (#xee2 . ?$,1LV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1146 (#xee3 . ?$,1LW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1147 (#xee4 . ?$,1LX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1148 (#xee5 . ?$,1LY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1149 (#xee6 . ?$,1LZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1150 (#xee7 . ?$,1L[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1151 (#xee8 . ?$,1L\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1152 (#xee9 . ?$,1L](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1153 (#xeea . ?$,1L^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1154 (#xeeb . ?$,1L_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1155 (#xeec . ?$,1L`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1156 (#xeed . ?$,1La(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1157 (#xeee . ?$,1Lb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1158 (#xeef . ?$(C$](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1159 (#xef0 . ?$(C$a(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1160 (#xef1 . ?$(C$h(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1161 (#xef2 . ?$(C$o(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1162 (#xef3 . ?$(C$q(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1163 (#xef4 . ?$(C$t(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1164 (#xef5 . ?$(C$v(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1165 (#xef6 . ?$(C$}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1166 (#xef7 . ?$(C$~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1167 (#xef8 . ?$,1M+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1168 (#xef9 . ?$,1M0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1169 (#xefa . ?$,1M9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1170 (#xeff . ?$,1tI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1171 ;; Latin-5
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1172 ;; Latin-6
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1173 ;; Latin-7
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1174 ;; Latin-8
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1175 ;; Latin-9
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1176 (#x13bc . ?,b<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1177 (#x13bd . ?,b=(B)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89785
diff changeset
1178 (#x13be . ?,_/(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1179 ;; Currency
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1180 (#x20a0 . ?$,1t@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1181 (#x20a1 . ?$,1tA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1182 (#x20a2 . ?$,1tB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1183 (#x20a3 . ?$,1tC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1184 (#x20a4 . ?$,1tD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1185 (#x20a5 . ?$,1tE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1186 (#x20a6 . ?$,1tF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1187 (#x20a7 . ?$,1tG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1188 (#x20a8 . ?$,1tH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1189 (#x20aa . ?$,1tJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1190 (#x20ab . ?$,1tK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1191 (#x20ac . ?,b$(B)))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1192 (puthash (car pair) (cdr pair) x-keysym-table))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1193
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1194 ;; The following keysym codes for graphics are listed in the document
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1195 ;; as not having unicodes available:
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1196
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1197 ;; #x08b1 TOP LEFT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1198 ;; #x08b2 BOTTOM LEFT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1199 ;; #x08b3 TOP VERTICAL SUMMATION CONNECTOR Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1200 ;; #x08b4 BOTTOM VERTICAL SUMMATION CONNECTOR Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1201 ;; #x08b5 TOP RIGHT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1202 ;; #x08b6 BOTTOM RIGHT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1203 ;; #x08b7 RIGHT MIDDLE SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1204 ;; #x0aac SIGNIFICANT BLANK SYMBOL Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1205 ;; #x0abd DECIMAL POINT Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1206 ;; #x0abf MARKER Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1207 ;; #x0acb TRADEMARK SIGN IN CIRCLE Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1208 ;; #x0ada HEXAGRAM Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1209 ;; #x0aff CURSOR Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1210 ;; #x0dde THAI MAIHANAKAT Thai
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1211
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1212
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
1213 ;;;; Selections and cut buffers
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
1214
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1215 ;; We keep track of the last text selected here, so we can check the
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1216 ;; current selection against it, and avoid passing back our own text
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1217 ;; from x-cut-buffer-or-selection-value. We track all three
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1218 ;; seperately in case another X application only sets one of them
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1219 ;; (say the cut buffer) we aren't fooled by the PRIMARY or
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1220 ;; CLIPBOARD selection staying the same.
44807
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1221 (defvar x-last-selected-text-clipboard nil
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1222 "The value of the CLIPBOARD X selection last time we selected or
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1223 pasted text.")
50075
cfb7d0684cf8 (vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents: 49599
diff changeset
1224 (defvar x-last-selected-text-primary nil
44807
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1225 "The value of the PRIMARY X selection last time we selected or
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1226 pasted text.")
50075
cfb7d0684cf8 (vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents: 49599
diff changeset
1227 (defvar x-last-selected-text-cut nil
58695
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
1228 "The value of the X cut buffer last time we selected or pasted text.
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
1229 The actual text stored in the X cut buffer is what encoded from this value.")
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
1230 (defvar x-last-selected-text-cut-encoded nil
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
1231 "The value of the X cut buffer last time we selected or pasted text.
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
1232 This is the actual text stored in the X cut buffer.")
74094
1fee8f7da8cf (x-last-cut-buffer-coding): New variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 74042
diff changeset
1233 (defvar x-last-cut-buffer-coding 'iso-latin-1
1fee8f7da8cf (x-last-cut-buffer-coding): New variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 74042
diff changeset
1234 "The coding we last used to encode/decode the text from the X cut buffer")
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 707
diff changeset
1235
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1236 (defvar x-cut-buffer-max 20000 ; Note this value is overridden below.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1237 "Max number of characters to put in the cut buffer.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1238 It is said that overlarge strings are slow to put into the cut buffer.")
4236
8e14db210975 (x-select-text): Limit size of text sent to cut buffer.
Richard M. Stallman <rms@gnu.org>
parents: 4132
diff changeset
1239
33917
8fdc1e5e72f3 (x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents: 29555
diff changeset
1240 (defcustom x-select-enable-clipboard nil
6698
b107e54218fe (x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 6399
diff changeset
1241 "Non-nil means cutting and pasting uses the clipboard.
33917
8fdc1e5e72f3 (x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents: 29555
diff changeset
1242 This is in addition to, but in preference to, the primary selection."
8fdc1e5e72f3 (x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents: 29555
diff changeset
1243 :type 'boolean
8fdc1e5e72f3 (x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents: 29555
diff changeset
1244 :group 'killing)
6698
b107e54218fe (x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 6399
diff changeset
1245
87385
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1246 (defcustom x-select-enable-primary t
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1247 "Non-nil means cutting and pasting uses the primary selection."
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1248 :type 'boolean
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1249 :group 'killing)
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1250
3036
98f500ca5593 (x-select-text): New arg PUSH.
Richard M. Stallman <rms@gnu.org>
parents: 2808
diff changeset
1251 (defun x-select-text (text &optional push)
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1252 "Make TEXT, a string, the primary X selection.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1253 Also, set the value of X cut buffer 0, for backward compatibility
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1254 with older X applications.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1255 gildea@stop.mail-abuse.org says it's not desirable to put kills
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1256 in the clipboard."
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1257 ;; With multi-tty, this function may be called from a tty frame.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1258 (when (eq (framep (selected-frame)) 'x)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1259 ;; Don't send the cut buffer too much text.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1260 ;; It becomes slow, and if really big it causes errors.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1261 (cond ((>= (length text) x-cut-buffer-max)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1262 (x-set-cut-buffer "" push)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1263 (setq x-last-selected-text-cut ""
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1264 x-last-selected-text-cut-encoded ""))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1265 (t
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1266 (setq x-last-selected-text-cut text
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1267 x-last-cut-buffer-coding 'iso-latin-1
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1268 x-last-selected-text-cut-encoded
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1269 ;; ICCCM says cut buffer always contain ISO-Latin-1
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1270 (encode-coding-string text 'iso-latin-1))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1271 (x-set-cut-buffer x-last-selected-text-cut-encoded push)))
87385
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1272 (when x-select-enable-primary
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1273 (x-set-selection 'PRIMARY text)
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1274 (setq x-last-selected-text-primary text))
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1275 (when x-select-enable-clipboard
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1276 (x-set-selection 'CLIPBOARD text)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1277 (setq x-last-selected-text-clipboard text))))
643
9759addc5671 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 506
diff changeset
1278
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1279 (defvar x-select-request-type nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1280 "*Data type request for X selection.
91106
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1281 The value is one of the following data types, a list of them, or nil:
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1282 `COMPOUND_TEXT', `UTF8_STRING', `STRING', `TEXT'
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1283
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1284 If the value is one of the above symbols, try only the specified
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1285 type.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1286
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1287 If the value is a list of them, try each of them in the specified
91106
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1288 order until succeed.
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1289
91106
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1290 The value nil is the same as this list:
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1291 \(UTF8_STRING COMPOUND_TEXT STRING)
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1292 ")
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1293
63191
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
1294 ;; Get a selection value of type TYPE by calling x-get-selection with
91101
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1295 ;; an appropiate DATA-TYPE argument decided by `x-select-request-type'.
63191
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
1296 ;; The return value is already decoded. If x-get-selection causes an
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
1297 ;; error, this function return nil.
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
1298
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1299 (defun x-selection-value (type)
91106
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1300 (let ((request-type (or x-select-request-type
f85bdd140960 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91101
diff changeset
1301 '(UTF8_STRING COMPOUND_TEXT STRING)))
91101
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1302 text)
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1303 (if (consp request-type)
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1304 (while (and request-type (not text))
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1305 (condition-case nil
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1306 (setq text (x-get-selection type (car request-type)))
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1307 (error nil))
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1308 (setq request-type (cdr request-type)))
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1309 (condition-case nil
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1310 (setq text (x-get-selection type request-type))
eb12ed8fee16 (x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
1311 (error nil)))
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1312 (if text
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1313 (remove-text-properties 0 (length text) '(foreign-selection nil) text))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
1314 text))
64701
34bd8e434dd7 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
1315
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1316 ;; Return the value of the current X selection.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1317 ;; Consult the selection, and the cut buffer. Treat empty strings
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1318 ;; as if they were unset.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1319 ;; If this function is called twice and finds the same text,
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1320 ;; it returns nil the second time. This is so that a single
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1321 ;; selection won't be added to the kill ring over and over.
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
1322 (defun x-cut-buffer-or-selection-value ()
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1323 ;; With multi-tty, this function may be called from a tty frame.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1324 (when (eq (framep (selected-frame)) 'x)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1325 (let (clip-text primary-text cut-text)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1326 (when x-select-enable-clipboard
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1327 (setq clip-text (x-selection-value 'CLIPBOARD))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1328 (if (string= clip-text "") (setq clip-text nil))
44807
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1329
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1330 ;; Check the CLIPBOARD selection for 'newness', is it different
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1331 ;; from what we remebered them to be last time we did a
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1332 ;; cut/paste operation.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1333 (setq clip-text
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1334 (cond ;; check clipboard
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1335 ((or (not clip-text) (string= clip-text ""))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1336 (setq x-last-selected-text-clipboard nil))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1337 ((eq clip-text x-last-selected-text-clipboard) nil)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1338 ((string= clip-text x-last-selected-text-clipboard)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1339 ;; Record the newer string,
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1340 ;; so subsequent calls can use the `eq' test.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1341 (setq x-last-selected-text-clipboard clip-text)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1342 nil)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1343 (t (setq x-last-selected-text-clipboard clip-text)))))
44807
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1344
87385
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1345 (when x-select-enable-primary
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1346 (setq primary-text (x-selection-value 'PRIMARY))
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1347 ;; Check the PRIMARY selection for 'newness', is it different
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1348 ;; from what we remebered them to be last time we did a
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1349 ;; cut/paste operation.
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1350 (setq primary-text
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1351 (cond ;; check primary selection
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1352 ((or (not primary-text) (string= primary-text ""))
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1353 (setq x-last-selected-text-primary nil))
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1354 ((eq primary-text x-last-selected-text-primary) nil)
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1355 ((string= primary-text x-last-selected-text-primary)
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1356 ;; Record the newer string,
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1357 ;; so subsequent calls can use the `eq' test.
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1358 (setq x-last-selected-text-primary primary-text)
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1359 nil)
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1360 (t
4f4b8e4f7e4e (x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents: 86308
diff changeset
1361 (setq x-last-selected-text-primary primary-text)))))
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1362
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1363 (setq cut-text (x-get-cut-buffer 0))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1364
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1365 ;; Check the x cut buffer for 'newness', is it different
44807
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1366 ;; from what we remebered them to be last time we did a
ca555c0c4e07 (x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents: 43869
diff changeset
1367 ;; cut/paste operation.
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1368 (setq cut-text
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1369 (let ((next-coding (or next-selection-coding-system 'iso-latin-1)))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1370 (cond ;; check cut buffer
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1371 ((or (not cut-text) (string= cut-text ""))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1372 (setq x-last-selected-text-cut nil))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1373 ;; This short cut doesn't work because x-get-cut-buffer
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1374 ;; always returns a newly created string.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1375 ;; ((eq cut-text x-last-selected-text-cut) nil)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1376 ((and (string= cut-text x-last-selected-text-cut-encoded)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1377 (eq x-last-cut-buffer-coding next-coding))
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1378 ;; See the comment above. No need of this recording.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1379 ;; Record the newer string,
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1380 ;; so subsequent calls can use the `eq' test.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1381 ;; (setq x-last-selected-text-cut cut-text)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1382 nil)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1383 (t
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1384 (setq x-last-selected-text-cut-encoded cut-text
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1385 x-last-cut-buffer-coding next-coding
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1386 x-last-selected-text-cut
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1387 ;; ICCCM says cut buffer always contain ISO-Latin-1, but
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1388 ;; use next-selection-coding-system if not nil.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1389 (decode-coding-string
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1390 cut-text next-coding))))))
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
1391
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1392 ;; As we have done one selection, clear this now.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1393 (setq next-selection-coding-system nil)
17014
828cf55629fc Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents: 16835
diff changeset
1394
85995
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1395 ;; At this point we have recorded the current values for the
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1396 ;; selection from clipboard (if we are supposed to) primary,
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1397 ;; and cut buffer. So return the first one that has changed
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1398 ;; (which is the first non-null one).
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1399 ;;
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1400 ;; NOTE: There will be cases where more than one of these has
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1401 ;; changed and the new values differ. This indicates that
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1402 ;; something like the following has happened since the last time
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1403 ;; we looked at the selections: Application X set all the
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1404 ;; selections, then Application Y set only one or two of them (say
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1405 ;; just the cut-buffer). In this case since we don't have
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1406 ;; timestamps there is no way to know what the 'correct' value to
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1407 ;; return is. The nice thing to do would be to tell the user we
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1408 ;; saw multiple possible selections and ask the user which was the
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1409 ;; one they wanted.
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1410 ;; This code is still a big improvement because now the user can
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1411 ;; futz with the current selection and get emacs to pay attention
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1412 ;; to the cut buffer again (previously as soon as clipboard or
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1413 ;; primary had been set the cut buffer would essentially never be
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1414 ;; checked again).
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1415 (or clip-text primary-text cut-text)
898d36ac44d1 (x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85478
diff changeset
1416 )))
2366
ed9b74c46fb9 * x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents: 2157
diff changeset
1417
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1418 ;; Arrange for the kill and yank functions to set and check the clipboard.
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
1419 (setq interprogram-cut-function 'x-select-text)
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
1420 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
1421
53662
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1422 (defun x-clipboard-yank ()
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1423 "Insert the clipboard contents, or the last stretch of killed text."
72412
ec8109b4dd1d (x-clipboard-yank): Specify * in interactive spec.
Richard M. Stallman <rms@gnu.org>
parents: 72388
diff changeset
1424 (interactive "*")
63191
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
1425 (let ((clipboard-text (x-selection-value 'CLIPBOARD))
53662
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1426 (x-select-enable-clipboard t))
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1427 (if (and clipboard-text (> (length clipboard-text) 0))
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1428 (kill-new clipboard-text))
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1429 (yank)))
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1430
95841
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1431 (declare-function accelerate-menu "xmenu.c" (&optional frame) t)
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1432
83542
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83541 72899
diff changeset
1433 (defun x-menu-bar-open (&optional frame)
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83541 72899
diff changeset
1434 "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83541 72899
diff changeset
1435 (interactive "i")
83639
b9b616870be8 (x-menu-bar-open): Use accelerate-menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 83635
diff changeset
1436 (if menu-bar-mode (accelerate-menu frame)
83542
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83541 72899
diff changeset
1437 (tmm-menubar)))
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83541 72899
diff changeset
1438
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
1439
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1440 ;;; Window system initialization.
17014
828cf55629fc Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents: 16835
diff changeset
1441
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1442 (defun x-win-suspend-error ()
97805
e826c0ef09ff (x-win-suspend-error): Don't signal error if there are no X frames
Chong Yidong <cyd@stupidchicken.com>
parents: 97642
diff changeset
1443 ;; Don't allow suspending if any of the frames are X frames.
e826c0ef09ff (x-win-suspend-error): Don't signal error if there are no X frames
Chong Yidong <cyd@stupidchicken.com>
parents: 97642
diff changeset
1444 (if (memq 'x (mapcar 'window-system (frame-list)))
e826c0ef09ff (x-win-suspend-error): Don't signal error if there are no X frames
Chong Yidong <cyd@stupidchicken.com>
parents: 97642
diff changeset
1445 (error "Cannot suspend Emacs while running under X")))
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1446
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1447 (defvar x-initialized nil
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1448 "Non-nil if the X window system has been initialized.")
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1449
95841
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1450 (declare-function x-open-connection "xfns.c"
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1451 (display &optional xrm-string must-succeed))
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1452 (declare-function x-server-max-request-size "xfns.c" (&optional terminal))
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1453 (declare-function x-get-resource "frame.c"
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1454 (attribute class &optional component subclass))
97422
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96830
diff changeset
1455 (declare-function x-parse-geometry "frame.c" (string))
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96830
diff changeset
1456 (defvar x-resource-name)
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96830
diff changeset
1457 (defvar x-display-name)
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96830
diff changeset
1458 (defvar x-command-line-resources)
95841
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 94852
diff changeset
1459
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1460 (defun x-initialize-window-system ()
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1461 "Initialize Emacs for X frames and open the first connection to an X server."
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1462 ;; Make sure we have a valid resource name.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1463 (or (stringp x-resource-name)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1464 (let (i)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1465 (setq x-resource-name (invocation-name))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1466
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1467 ;; Change any . or * characters in x-resource-name to hyphens,
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1468 ;; so as not to choke when we use it in X resource queries.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1469 (while (setq i (string-match "[.*]" x-resource-name))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1470 (aset x-resource-name i ?-))))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1471
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1472 (x-open-connection (or x-display-name
83594
2716535391b7 Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents: 83560
diff changeset
1473 (setq x-display-name (or (getenv "DISPLAY" (selected-frame))
83421
bb2edc915032 Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83416
diff changeset
1474 (getenv "DISPLAY"))))
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1475 x-command-line-resources
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1476 ;; Exit Emacs with fatal error if this fails and we
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1477 ;; are the initial display.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1478 (eq initial-window-system 'x))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1479
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1480 (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1481 x-cut-buffer-max))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1482
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1483 ;; Setup the default fontset.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1484 (setup-default-fontset)
2366
ed9b74c46fb9 * x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents: 2157
diff changeset
1485
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1486 ;; Create the standard fontset.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1487 (create-fontset-from-fontset-spec standard-fontset-spec t)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1488
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1489 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1490 (create-fontset-from-x-resource)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1491
83550
17e0dd217877 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83548 74983
diff changeset
1492 ;; Set scroll bar mode to right if set by X resources. Default is left.
17e0dd217877 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83548 74983
diff changeset
1493 (if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right")
17e0dd217877 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83548 74983
diff changeset
1494 (customize-set-variable 'scroll-bar-mode 'right))
17e0dd217877 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83548 74983
diff changeset
1495
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1496 ;; Apply a geometry resource to the initial frame. Put it at the end
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1497 ;; of the alist, so that anything specified on the command line takes
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1498 ;; precedence.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1499 (let* ((res-geometry (x-get-resource "geometry" "Geometry"))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1500 parsed)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1501 (if res-geometry
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1502 (progn
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1503 (setq parsed (x-parse-geometry res-geometry))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1504 ;; If the resource specifies a position,
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1505 ;; call the position and size "user-specified".
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1506 (if (or (assq 'top parsed) (assq 'left parsed))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1507 (setq parsed (cons '(user-position . t)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1508 (cons '(user-size . t) parsed))))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1509 ;; All geometry parms apply to the initial frame.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1510 (setq initial-frame-alist (append initial-frame-alist parsed))
85111
ae1159126943 (x-alternatives-map): Remove spurious parenthesis.
Juanma Barranquero <lekktu@gmail.com>
parents: 85104
diff changeset
1511 ;; The size parms apply to all frames. Don't set it if there are
83544
58cf725f5330 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83543 73420
diff changeset
1512 ;; sizes there already (from command line).
58cf725f5330 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83543 73420
diff changeset
1513 (if (and (assq 'height parsed)
58cf725f5330 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83543 73420
diff changeset
1514 (not (assq 'height default-frame-alist)))
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1515 (setq default-frame-alist
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1516 (cons (cons 'height (cdr (assq 'height parsed)))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1517 default-frame-alist)))
83544
58cf725f5330 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83543 73420
diff changeset
1518 (if (and (assq 'width parsed)
58cf725f5330 Merged from emacs@sv.gnu.org.
Karoly Lorentey <lorentey@elte.hu>
parents: 83543 73420
diff changeset
1519 (not (assq 'width default-frame-alist)))
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1520 (setq default-frame-alist
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1521 (cons (cons 'width (cdr (assq 'width parsed)))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1522 default-frame-alist))))))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1523
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1524 ;; Check the reverseVideo resource.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1525 (let ((case-fold-search t))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1526 (let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1527 (if (and rv
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1528 (string-match "^\\(true\\|yes\\|on\\)$" rv))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1529 (setq default-frame-alist
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1530 (cons '(reverse . t) default-frame-alist)))))
51181
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
1531
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1532 ;; Set x-selection-timeout, measured in milliseconds.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1533 (let ((res-selection-timeout
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1534 (x-get-resource "selectionTimeout" "SelectionTimeout")))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1535 (setq x-selection-timeout 20000)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1536 (if res-selection-timeout
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1537 (setq x-selection-timeout (string-to-number res-selection-timeout))))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1538
83065
a871be7b26a5 Implemented suspending of emacsclient frames.
Karoly Lorentey <lorentey@elte.hu>
parents: 83037
diff changeset
1539 ;; Don't let Emacs suspend under X.
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1540 (add-hook 'suspend-hook 'x-win-suspend-error)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1541
99348
16244bb150a1 (x-initialize-window-system): Call x-wm-set-size-hint after
Chong Yidong <cyd@stupidchicken.com>
parents: 97805
diff changeset
1542 ;; During initialization, we defer sending size hints to the window
16244bb150a1 (x-initialize-window-system): Call x-wm-set-size-hint after
Chong Yidong <cyd@stupidchicken.com>
parents: 97805
diff changeset
1543 ;; manager, because that can induce a race condition:
16244bb150a1 (x-initialize-window-system): Call x-wm-set-size-hint after
Chong Yidong <cyd@stupidchicken.com>
parents: 97805
diff changeset
1544 ;; http://lists.gnu.org/archive/html/emacs-devel/2008-10/msg00033.html
16244bb150a1 (x-initialize-window-system): Call x-wm-set-size-hint after
Chong Yidong <cyd@stupidchicken.com>
parents: 97805
diff changeset
1545 ;; Send the size hints once initialization is done.
16244bb150a1 (x-initialize-window-system): Call x-wm-set-size-hint after
Chong Yidong <cyd@stupidchicken.com>
parents: 97805
diff changeset
1546 (add-hook 'after-init-hook 'x-wm-set-size-hint)
16244bb150a1 (x-initialize-window-system): Call x-wm-set-size-hint after
Chong Yidong <cyd@stupidchicken.com>
parents: 97805
diff changeset
1547
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1548 ;; Turn off window-splitting optimization; X is usually fast enough
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1549 ;; that this is only annoying.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1550 (setq split-window-keep-point t)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1551
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1552 ;; Motif direct handling of f10 wasn't working right,
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1553 ;; So temporarily we've turned it off in lwlib-Xm.c
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1554 ;; and turned the Emacs f10 back on.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1555 ;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1556 ;; (if (featurep 'motif)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1557 ;; (global-set-key [f10] 'ignore))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1558
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1559 ;; Turn on support for mouse wheels.
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1560 (mouse-wheel-mode 1)
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1561
83019
82c3b4da43ca Merged in changes from CVS HEAD
Karoly Lorentey <lorentey@elte.hu>
parents: 83018 53662
diff changeset
1562 ;; Enable CLIPBOARD copy/paste through menu bar commands.
82c3b4da43ca Merged in changes from CVS HEAD
Karoly Lorentey <lorentey@elte.hu>
parents: 83018 53662
diff changeset
1563 (menu-bar-enable-clipboard)
82c3b4da43ca Merged in changes from CVS HEAD
Karoly Lorentey <lorentey@elte.hu>
parents: 83018 53662
diff changeset
1564
82c3b4da43ca Merged in changes from CVS HEAD
Karoly Lorentey <lorentey@elte.hu>
parents: 83018 53662
diff changeset
1565 ;; Override Paste so it looks at CLIPBOARD first.
82c3b4da43ca Merged in changes from CVS HEAD
Karoly Lorentey <lorentey@elte.hu>
parents: 83018 53662
diff changeset
1566 (define-key menu-bar-edit-menu [paste]
83543
6b25ef5cc276 Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents: 83542
diff changeset
1567 (append '(menu-item "Paste" x-clipboard-yank
6b25ef5cc276 Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents: 83542
diff changeset
1568 :enable (not buffer-read-only)
6b25ef5cc276 Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents: 83542
diff changeset
1569 :help "Paste (yank) text most recently cut/copied")
6b25ef5cc276 Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents: 83542
diff changeset
1570 nil))
83019
82c3b4da43ca Merged in changes from CVS HEAD
Karoly Lorentey <lorentey@elte.hu>
parents: 83018 53662
diff changeset
1571
83018
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1572 (setq x-initialized t))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1573
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1574 (add-to-list 'handle-args-function-alist '(x . x-handle-args))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1575 (add-to-list 'frame-creation-function-alist '(x . x-create-frame-with-faces))
1465425fe2d3 Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83014
diff changeset
1576 (add-to-list 'window-system-initialization-alist '(x . x-initialize-window-system))
53662
6f5e6bdd8cda Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents: 52401
diff changeset
1577
53789
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
1578 ;; Initiate drag and drop
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
1579 (add-hook 'after-make-frame-functions 'x-dnd-init-frame)
72412
ec8109b4dd1d (x-clipboard-yank): Specify * in interactive spec.
Richard M. Stallman <rms@gnu.org>
parents: 72388
diff changeset
1580 (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
53789
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
1581
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1582 (defcustom x-gtk-stock-map
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1583 '(
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1584 ("etc/images/new" . "gtk-new")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1585 ("etc/images/open" . "gtk-open")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1586 ("etc/images/diropen" . "n:system-file-manager")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1587 ("etc/images/close" . "gtk-close")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1588 ("etc/images/save" . "gtk-save")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1589 ("etc/images/saveas" . "gtk-save-as")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1590 ("etc/images/undo" . "gtk-undo")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1591 ("etc/images/cut" . "gtk-cut")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1592 ("etc/images/copy" . "gtk-copy")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1593 ("etc/images/paste" . "gtk-paste")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1594 ("etc/images/search" . "gtk-find")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1595 ("etc/images/print" . "gtk-print")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1596 ("etc/images/preferences" . "gtk-preferences")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1597 ("etc/images/help" . "gtk-help")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1598 ("etc/images/left-arrow" . "gtk-go-back")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1599 ("etc/images/right-arrow" . "gtk-go-forward")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1600 ("etc/images/home" . "gtk-home")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1601 ("etc/images/jump-to" . "gtk-jump-to")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1602 ("etc/images/index" . "gtk-index")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1603 ("etc/images/search" . "gtk-find")
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1604 ("etc/images/exit" . "gtk-quit")
92202
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1605 ("etc/images/cancel" . "gtk-cancel")
93911
db9429444969 (x-gtk-stock-map): Map info to gtk-info.
Jan Djärv <jan.h.d@swipnet.se>
parents: 92524
diff changeset
1606 ("etc/images/info" . "gtk-info")
92524
edd5f5d6c928 (x-gtk-stock-map): Add bookmark_add.
Jan Djärv <jan.h.d@swipnet.se>
parents: 92202
diff changeset
1607 ("etc/images/bookmark_add" . "n:bookmark_add")
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1608 ;; Used in Gnus and/or MH-E:
92202
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1609 ("etc/images/attach" . "gtk-attach")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1610 ("etc/images/connect" . "gtk-connect")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1611 ("etc/images/contact" . "gtk-contact")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1612 ("etc/images/delete" . "gtk-delete")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1613 ("etc/images/describe" . "gtk-properties")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1614 ("etc/images/disconnect" . "gtk-disconnect")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1615 ;; ("etc/images/exit" . "gtk-exit")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1616 ("etc/images/lock-broken" . "gtk-lock_broken")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1617 ("etc/images/lock-ok" . "gtk-lock_ok")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1618 ("etc/images/lock" . "gtk-lock")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1619 ("etc/images/next-page" . "gtk-next-page")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1620 ("etc/images/refresh" . "gtk-refresh")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1621 ("etc/images/sort-ascending" . "gtk-sort-ascending")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1622 ("etc/images/sort-column-ascending" . "gtk-sort-column-ascending")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1623 ("etc/images/sort-criteria" . "gtk-sort-criteria")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1624 ("etc/images/sort-descending" . "gtk-sort-descending")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1625 ("etc/images/sort-row-ascending" . "gtk-sort-row-ascending")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1626 ("images/gnus/toggle-subscription" . "gtk-task-recurring")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1627 ("images/mail/compose" . "gtk-mail-compose")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1628 ("images/mail/copy" . "gtk-mail-copy")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1629 ("images/mail/forward" . "gtk-mail-forward")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1630 ("images/mail/inbox" . "gtk-inbox")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1631 ("images/mail/move" . "gtk-mail-move")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1632 ("images/mail/not-spam" . "gtk-not-spam")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1633 ("images/mail/outbox" . "gtk-outbox")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1634 ("images/mail/reply-all" . "gtk-mail-reply-to-all")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1635 ("images/mail/reply" . "gtk-mail-reply")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1636 ("images/mail/save-draft" . "gtk-mail-handling")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1637 ("images/mail/send" . "gtk-mail-send")
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1638 ("images/mail/spam" . "gtk-spam")
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1639 ;; No themed versions available:
92202
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1640 ;; mail/preview (combining stock_mail and stock_zoom)
c54b46f3dbb6 (x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents: 91655
diff changeset
1641 ;; mail/save (combining stock_mail, stock_save and stock_convert)
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1642 )
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1643 "How icons for tool bars are mapped to Gtk+ stock items.
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1644 Emacs must be compiled with the Gtk+ toolkit for this to have any effect.
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1645 A value that begins with n: denotes a named icon instead of a stock icon."
78917
565f321a1bae (x-gtk-stock-map): Version is 22.2
Jan Djärv <jan.h.d@swipnet.se>
parents: 78724
diff changeset
1646 :version "22.2"
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1647 :type '(choice (repeat (choice symbol
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1648 (cons (string :tag "Emacs icon")
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1649 (string :tag "Stock/named")))))
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1650 :group 'x)
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1651
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1652 (defcustom icon-map-list '(x-gtk-stock-map)
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1653 "A list of alists that maps icon file names to stock/named icons.
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1654 The alists are searched in the order they appear. The first match is used.
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1655 The keys in the alists are file names without extension and with two directory
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1656 components. For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1657 to stock item gtk-open, use:
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1658
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1659 (\"etc/images/open\" . \"gtk-open\")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1660
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1661 Themes also have named icons. To map to one of those, use n: before the name:
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1662
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1663 (\"etc/images/diropen\" . \"n:system-file-manager\")
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1664
84984
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1665 The list elements are either the symbol name for the alist or the
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1666 alist itself.
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1667
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1668 If you don't want stock icons, set the variable to nil."
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1669 :version "22.2"
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1670 :type '(choice (const :tag "Don't use stock icons" nil)
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1671 (repeat (choice symbol
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1672 (cons (string :tag "Emacs icon")
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1673 (string :tag "Stock/named")))))
8aa48ea4b5cb (x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 84975
diff changeset
1674 :group 'x)
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1675
100024
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1676 (defconst x-gtk-stock-cache (make-hash-table :weakness t :test 'equal))
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1677
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1678 (defun x-gtk-map-stock (file)
100024
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1679 "Map icon with file name FILE to a Gtk+ stock name.
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1680 This uses `icon-map-list' to map icon file names to stock icon names."
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1681 (when (stringp file)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1682 (or (gethash file x-gtk-stock-cache)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1683 (puthash
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1684 file
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1685 (save-match-data
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1686 (let* ((file-sans (file-name-sans-extension file))
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1687 (key (and (string-match "/\\([^/]+/[^/]+/[^/]+$\\)"
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1688 file-sans)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1689 (match-string 1 file-sans)))
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1690 (icon-map icon-map-list)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1691 elem value)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1692 (while (and (null value) icon-map)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1693 (setq elem (car icon-map)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1694 value (assoc-string (or key file-sans)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1695 (if (symbolp elem)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1696 (symbol-value elem)
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1697 elem))
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1698 icon-map (cdr icon-map)))
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1699 (and value (cdr value))))
3291f859ce65 (x-gtk-stock-cache): New hash table.
Chong Yidong <cyd@stupidchicken.com>
parents: 99348
diff changeset
1700 x-gtk-stock-cache))))
78724
1c7e03f4a7f6 (x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents: 78226
diff changeset
1701
83822
8404d44e8ab8 (x-menu-bar-open): Delete duplicated function from
Dan Nicolaescu <dann@ics.uci.edu>
parents: 83813
diff changeset
1702 (provide 'x-win)
71061
f652878dc617 * term/x-win.el: bind F10 to menu-bar-start if available.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68648
diff changeset
1703
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
1704 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
1705 ;;; x-win.el ends here