Mercurial > hg > xemacs-beta
annotate src/event-xlike-inc.c @ 5797:a1808d52a34a
If the position of a window's cached point is deleted, use buffer point instead
src/ChangeLog addition:
2014-06-17 Aidan Kehoe <kehoea@parhasard.net>
* extents.h:
* window.c:
* window.c (unshow_buffer):
* window.c (Fset_window_buffer):
Use extents, rather than markers, for the window buffer point
cache, so that when the text containing that window buffer point
is deleted, the window display code uses the buffer's actual point
instead of the position that the marker had been moved to.
Fixes Michael Heinrich's problem of
http://mid.gmane.org/6zr42uxtf5.fsf@elektra.science-computing.de ,
introduced by Ben's patch of
https://bitbucket.org/xemacs/xemacs/commits/047d37eb70d70f43803 .
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 17 Jun 2014 20:55:45 +0100 |
| parents | 56144c8593a8 |
| children |
| rev | line source |
|---|---|
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
1 /* Common code between X and GTK -- event-related. |
| 1268 | 2 Copyright (C) 1991-5, 1997 Free Software Foundation, Inc. |
| 3 Copyright (C) 1995 Sun Microsystems, Inc. | |
| 4 Copyright (C) 1996, 2001, 2002, 2003 Ben Wing. | |
| 5 | |
| 6 This file is part of XEmacs. | |
| 7 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4908
diff
changeset
|
8 XEmacs is free software: you can redistribute it and/or modify it |
| 1268 | 9 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4908
diff
changeset
|
10 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4908
diff
changeset
|
11 option) any later version. |
| 1268 | 12 |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4908
diff
changeset
|
19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 1268 | 20 |
| 21 /* Synched up with: Not in FSF. */ | |
| 22 | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
23 /* Before including this file, you need to define either THIS_IS_X or |
|
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
24 THIS_IS_GTK. */ |
|
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
25 |
|
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
26 /* See comment at top of redisplay-xlike-inc.c for an explanation of |
|
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
27 how this file works. */ |
| 1268 | 28 |
| 29 static int | |
| 30 #ifdef THIS_IS_GTK | |
| 31 emacs_gtk_event_pending_p (int how_many) | |
| 32 #else | |
| 33 emacs_Xt_event_pending_p (int how_many) | |
| 34 #endif | |
| 35 { | |
| 36 Lisp_Object event; | |
| 37 int tick_count_val; | |
| 38 | |
| 39 /* If `how_many' is 0, then this function returns whether there are any | |
| 40 X, timeout, or fd events pending (that is, whether | |
| 41 emacs_Xt_next_event() would return immediately without blocking). | |
| 42 | |
| 43 If `how_many' is > 0, then this function returns whether there are | |
| 44 that many *user generated* events available (keyboard, mouse click, | |
| 45 etc.). This also implies that emacs_Xt_next_event() would not block. | |
| 46 */ | |
| 47 | |
| 48 /* This function used to simply check whether there were any X events (or | |
| 49 if user_p was 1, it iterated over all the pending X events using | |
| 50 XCheckIfEvent(), looking for keystrokes and button events). That | |
| 51 worked in the old cheesoid event loop, which didn't go through | |
| 52 XtAppDispatchEvent(), but it doesn't work any more -- X events may not | |
| 53 result in anything. For example, a button press in a blank part of | |
| 54 the menubar appears as an X event but will not result in any Emacs | |
| 55 events (a button press that activates the menubar results in an Emacs | |
| 56 event through the stop_next_event mechanism). | |
| 57 | |
| 58 The only accurate way of determining whether these X events translate | |
| 59 into Emacs events is to go ahead and dispatch them until there's | |
| 60 something on the dispatch queue. */ | |
| 61 | |
| 62 if (!how_many) | |
| 63 { | |
| 64 /* We're being asked for *ALL* events, not just user events. */ | |
| 65 | |
| 66 /* (1) Any pending events in the dispatch queue? */ | |
| 67 if (!NILP (dispatch_event_queue)) | |
| 68 return 1; | |
| 69 | |
| 70 /* (2) Any TTY or process input available? | |
| 71 | |
| 72 Note that formerly we just checked the value of XtAppPending() to | |
| 73 determine if there was file-desc input. This doesn't work any | |
| 74 more with the signal_event_pipe; XtAppPending() will says "yes" in | |
| 75 this case but there isn't really any input. So instead we keep | |
| 76 track of the file descriptors, and call select() ourselves. | |
| 77 Another way of fixing this problem is for the signal_event_pipe to | |
| 78 generate actual input in the form of an identity eval event or | |
| 79 something. (#### maybe this actually happens?) */ | |
| 80 | |
| 81 if (poll_fds_for_input (non_fake_input_wait_mask)) | |
| 82 return 1; | |
| 83 | |
| 84 #ifndef THIS_IS_GTK | |
| 85 /* (3) Any timeout input available? */ | |
| 86 if (XtAppPending (Xt_app_con) & XtIMTimer) | |
| 87 return 1; | |
| 88 #else | |
| 89 /* #### Is there any way to do this in Gtk? I don't think there | |
| 90 is a 'peek' for events */ | |
| 91 #endif | |
| 92 } | |
| 93 else | |
| 94 { | |
| 95 /* HOW_MANY > 0 */ | |
| 96 EVENT_CHAIN_LOOP (event, dispatch_event_queue) | |
| 97 { | |
| 98 if (command_event_p (event)) | |
| 99 { | |
| 100 how_many--; | |
| 101 if (how_many <= 0) | |
| 102 return 1; | |
| 103 } | |
| 104 } | |
| 105 } | |
| 106 | |
| 107 /* XtAppPending() can be super-slow, esp. over a network connection. | |
| 108 Quantify results have indicated that in some cases the call to | |
| 109 detect_input_pending() completely dominates the running time of | |
| 110 redisplay(). Fortunately, in a SIGIO world we can more quickly | |
| 111 determine whether there are any X events: if an event has happened | |
| 112 since the last time we checked, then a SIGIO will have happened. On a | |
| 113 machine with broken SIGIO, we'll still be in an OK state -- | |
| 114 quit_check_signal_tick_count will get ticked at least every 1/4 | |
| 115 second, so we'll be no more than that much behind reality. (In general | |
| 116 it's OK if we erroneously report no input pending when input is | |
| 117 actually pending() -- preemption is just a bit less efficient, that's | |
| 118 all. It's bad bad bad if you err the other way -- you've promised | |
| 119 that `next-event' won't block but it actually will, and some action | |
| 120 might get delayed until the next time you hit a key.) | |
| 121 */ | |
| 122 | |
| 123 if (!in_modal_loop) | |
| 124 { | |
| 125 /* quit_check_signal_tick_count is volatile so try to avoid race | |
| 126 conditions by using a temporary variable */ | |
| 127 tick_count_val = quit_check_signal_tick_count; | |
| 128 if (last_quit_check_signal_tick_count != tick_count_val | |
| 129 #if !defined (THIS_IS_GTK) && (!defined (SIGIO) || defined (CYGWIN)) | |
| 130 || (XtIMXEvent & XtAppPending (Xt_app_con)) | |
| 131 #endif | |
| 132 ) | |
| 133 { | |
| 134 last_quit_check_signal_tick_count = tick_count_val; | |
| 135 | |
| 136 /* We need to drain the entire queue now -- if we only drain part of | |
| 137 it, we may later on end up with events actually pending but | |
| 138 detect_input_pending() returning false because there wasn't | |
| 139 another SIGIO. */ | |
| 140 event_stream_drain_queue (); | |
| 141 | |
| 142 if (!how_many) | |
| 143 return !NILP (dispatch_event_queue); | |
| 144 | |
| 145 EVENT_CHAIN_LOOP (event, dispatch_event_queue) | |
| 146 { | |
| 147 if (command_event_p (event)) | |
| 148 { | |
| 149 how_many--; | |
| 150 if (how_many <= 0) | |
| 151 return 1; | |
| 152 } | |
| 153 } | |
| 154 | |
| 155 return 0; | |
| 156 } | |
| 157 } | |
| 158 | |
| 159 return 0; | |
| 160 } | |
| 2828 | 161 |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
162 #if defined (THIS_IS_X) || !defined (__GDK_KEYS_H__) |
| 2828 | 163 |
| 164 /* Use an appropriate map to Unicode within x_keysym_to_character. Arguments | |
| 165 are evaluated multiple times. | |
| 166 | |
| 167 Breaks if an X11 keysym maps to zero in Unicode. */ | |
| 168 | |
| 169 #define USE_UNICODE_MAP(keysym, map) \ | |
| 170 if (keysym >= FIRST_KNOWN_##map \ | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
171 && (keysym < (FIRST_KNOWN_##map + countof (map))) \ |
| 2828 | 172 && map[keysym - FIRST_KNOWN_##map ]) do \ |
| 173 { \ | |
| 174 keysym -= FIRST_KNOWN_##map ; \ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5402
diff
changeset
|
175 return Funicode_to_char (make_fixnum (map[keysym]), Qnil); \ |
| 2828 | 176 } while (0) |
| 177 | |
| 178 /* Maps to Unicode for X11 KeySyms, where we don't have a direct internal | |
| 179 mapping based on a Mule character set, or whatever. Taken from Markus | |
| 180 Kuhn's X11.keysyms--if you're ever comparing with that file, note the | |
| 181 sequences of KeySyms often leave out entries, so you'll have to fill them | |
| 182 in. Doesn't include support for Hangul, which it should, if the X11 | |
| 183 Hangul keysyms have ever been used anywhere. | |
| 184 | |
| 185 I'm not #ifdef'ing this based on wheter MULE is defined, because it's a | |
| 186 matter of 324 bytes in a stripped executable, and I want the | |
| 187 testing. :-P */ | |
| 188 | |
| 189 static UINT_16_BIT const TECHNICAL[] = | |
| 190 { | |
| 191 0x23B7, /* #x08A1 LEFT RADICAL Technical */ | |
| 192 | |
| 193 #define FIRST_KNOWN_TECHNICAL 0x8A1 | |
| 194 | |
| 195 0x0, /* #x08A2 TOP LEFT RADICAL Technical */ | |
| 196 0x0, /* #x08A3 HORIZONTAL CONNECTOR Technical */ | |
| 197 0x2320, /* #x08A4 TOP INTEGRAL Technical */ | |
| 198 0x2321, /* #x08A5 BOTTOM INTEGRAL Technical */ | |
| 199 0x0, /* #x08A6 VERTICAL CONNECTOR Technical */ | |
| 200 0x23A1, /* #x08A7 TOP LEFT SQUARE BRACKET Technical */ | |
| 201 0x23A3, /* #x08A8 BOTTOM LEFT SQUARE BRACKET Technical */ | |
| 202 0x23A4, /* #x08A9 TOP RIGHT SQUARE BRACKET Technical */ | |
| 203 0x23A6, /* #x08AA BOTTOM RIGHT SQUARE BRACKET Technical */ | |
| 204 0x239B, /* #x08AB TOP LEFT PARENTHESIS Technical */ | |
| 205 0x239D, /* #x08AC BOTTOM LEFT PARENTHESIS Technical */ | |
| 206 0x239E, /* #x08AD TOP RIGHT PARENTHESIS Technical */ | |
| 207 0x23A0, /* #x08AE BOTTOM RIGHT PARENTHESIS Technical */ | |
| 208 0x23A8, /* #x08AF LEFT MIDDLE CURLY BRACE Technical */ | |
| 209 0x23AC, /* #x08B0 RIGHT MIDDLE CURLY BRACE Technical */ | |
| 210 0x0, /* #x08B1 TOP LEFT SUMMATION Technical */ | |
| 211 0x0, /* #x08B2 BOTTOM LEFT SUMMATION Technical */ | |
| 212 0x0, /* #x08B3 TOP VERTICAL SUMMATION CONNECTOR Technical */ | |
| 213 0x0, /* #x08B4 BOTTOM VERTICAL SUMMATION CONNECTOR Technical */ | |
| 214 0x0, /* #x08B5 TOP RIGHT SUMMATION Technical */ | |
| 215 0x0, /* #x08B6 BOTTOM RIGHT SUMMATION Technical */ | |
| 216 0x0, /* #x08B7 RIGHT MIDDLE SUMMATION Technical */ | |
| 217 0x0, /* #x08B8 */ | |
| 218 0x0, /* #x08B9 */ | |
| 219 0x0, /* #x08BA */ | |
| 220 0x0, /* #x08BB */ | |
| 221 0x2264, /* #x08BC LESS THAN OR EQUAL SIGN Technical */ | |
| 222 0x2260, /* #x08BD NOT EQUAL SIGN Technical */ | |
| 223 0x2265, /* #x08BE GREATER THAN OR EQUAL SIGN Technical */ | |
| 224 0x222B, /* #x08BF INTEGRAL Technical */ | |
| 225 0x2234, /* #x08C0 THEREFORE Technical */ | |
| 226 0x221D, /* #x08C1 VARIATION, PROPORTIONAL TO Technical */ | |
| 227 0x221E, /* #x08C2 INFINITY Technical */ | |
| 228 0x0, /* #x08C3 */ | |
| 229 0x0, /* #x08C4 */ | |
| 230 0x2207, /* #x08C5 NABLA, DEL Technical */ | |
| 231 0x0, /* #x08C6 */ | |
| 232 0x0, /* #x08C7 */ | |
| 233 0x223C, /* #x08C8 IS APPROXIMATE TO Technical */ | |
| 234 0x2243, /* #x08C9 SIMILAR OR EQUAL TO Technical */ | |
| 235 0x0, /* #x08CA */ | |
| 236 0x0, /* #x08CB */ | |
| 237 0x0, /* #x08CC */ | |
| 238 0x21D4, /* #x08CD IF AND ONLY IF Technical */ | |
| 239 0x21D2, /* #x08CE IMPLIES Technical */ | |
| 240 0x2261, /* #x08CF IDENTICAL TO Technical */ | |
| 241 0x0, /* #x08D0 */ | |
| 242 0x0, /* #x08D1 */ | |
| 243 0x0, /* #x08D2 */ | |
| 244 0x0, /* #x08D3 */ | |
| 245 0x0, /* #x08D4 */ | |
| 246 0x0, /* #x08D5 */ | |
| 247 0x221A, /* #x08D6 RADICAL Technical */ | |
| 248 0x0, /* #x08D7 */ | |
| 249 0x0, /* #x08D8 */ | |
| 250 0x0, /* #x08D9 */ | |
| 251 0x2282, /* #x08DA IS INCLUDED IN Technical */ | |
| 252 0x2283, /* #x08DB INCLUDES Technical */ | |
| 253 0x2229, /* #x08DC INTERSECTION Technical */ | |
| 254 0x222A, /* #x08DD UNION Technical */ | |
| 255 0x2227, /* #x08DE LOGICAL AND Technical */ | |
| 256 0x2228, /* #x08DF LOGICAL OR Technical */ | |
| 257 0x0, /* #x08E0 */ | |
| 258 0x0, /* #x08E1 */ | |
| 259 0x0, /* #x08E2 */ | |
| 260 0x0, /* #x08E3 */ | |
| 261 0x0, /* #x08E4 */ | |
| 262 0x0, /* #x08E5 */ | |
| 263 0x0, /* #x08E6 */ | |
| 264 0x0, /* #x08E7 */ | |
| 265 0x0, /* #x08E8 */ | |
| 266 0x0, /* #x08E9 */ | |
| 267 0x0, /* #x08Ea */ | |
| 268 0x0, /* #x08Eb */ | |
| 269 0x0, /* #x08Ec */ | |
| 270 0x0, /* #x08Ed */ | |
| 271 0x0, /* #x08Ee */ | |
| 272 0x2202, /* #x08EF PARTIAL DERIVATIVE Technical */ | |
| 273 0x0, /* #x08F0 */ | |
| 274 0x0, /* #x08F1 */ | |
| 275 0x0, /* #x08F2 */ | |
| 276 0x0, /* #x08F3 */ | |
| 277 0x0, /* #x08F4 */ | |
| 278 0x0, /* #x08F5 */ | |
| 279 0x0192, /* #x08F6 FUNCTION Technical */ | |
| 280 0x0, /* #x08F7 */ | |
| 281 0x0, /* #x08F8 */ | |
| 282 0x0, /* #x08F9 */ | |
| 283 0x0, /* #x08FA */ | |
| 284 0x2190, /* #x08FB LEFT ARROW Technical */ | |
| 285 0x2191, /* #x08FC UPWARD ARROW Technical */ | |
| 286 0x2192, /* #x08FD RIGHT ARROW Technical */ | |
| 287 0x2193, /* #x08FE DOWNWARD ARROW Technical */ | |
| 288 }; | |
| 289 | |
| 290 static UINT_16_BIT const SPECIAL[] = | |
| 291 { | |
| 292 0x25C6, /* #x09E0 SOLID DIAMOND Special */ | |
| 293 | |
| 294 #define FIRST_KNOWN_SPECIAL 0x9E0 | |
| 295 | |
| 296 0x2592, /* #x09E1 CHECKERBOARD Special */ | |
| 297 0x2409, /* #x09E2 ``HT'' Special */ | |
| 298 0x240C, /* #x09E3 ``FF'' Special */ | |
| 299 0x240D, /* #x09E4 ``CR'' Special */ | |
| 300 0x240A, /* #x09E5 ``LF'' Special */ | |
| 301 0x0, /* #x09E6 */ | |
| 302 0x0, /* #x09E7 */ | |
| 303 0x2424, /* #x09E8 ``NL'' Special */ | |
| 304 0x240B, /* #x09E9 ``VT'' Special */ | |
| 305 0x2518, /* #x09EA LOWER-RIGHT CORNER Special */ | |
| 306 0x2510, /* #x09EB UPPER-RIGHT CORNER Special */ | |
| 307 0x250C, /* #x09EC UPPER-LEFT CORNER Special */ | |
| 308 0x2514, /* #x09ED LOWER-LEFT CORNER Special */ | |
| 309 0x253C, /* #x09EE CROSSING-LINES Special */ | |
| 310 0x23BA, /* #x09EF HORIZONTAL LINE, SCAN 1 Special */ | |
| 311 0x23BB, /* #x09F0 HORIZONTAL LINE, SCAN 3 Special */ | |
| 312 0x2500, /* #x09F1 HORIZONTAL LINE, SCAN 5 Special */ | |
| 313 0x23BC, /* #x09F2 HORIZONTAL LINE, SCAN 7 Special */ | |
| 314 0x23BD, /* #x09F3 HORIZONTAL LINE, SCAN 9 Special */ | |
| 315 0x251C, /* #x09F4 LEFT ``T'' Special */ | |
| 316 0x2524, /* #x09F5 RIGHT ``T'' Special */ | |
| 317 0x2534, /* #x09F6 BOTTOM ``T'' Special */ | |
| 318 0x252C, /* #x09F7 TOP ``T'' Special */ | |
| 319 0x2502 /* #x09F8 VERTICAL BAR Special */ | |
| 320 }; | |
| 321 | |
| 322 static UINT_16_BIT const PUBLISHING[] = | |
| 323 { | |
| 324 0x2003, /* #x0AA1 EM SPACE Publish */ | |
| 325 | |
| 326 #define FIRST_KNOWN_PUBLISHING 0xAA1 | |
| 327 | |
| 328 0x2002, /* #x0AA2 EN SPACE Publish */ | |
| 329 0x2004, /* #x0AA3 3/EM SPACE Publish */ | |
| 330 0x2005, /* #x0AA4 4/EM SPACE Publish */ | |
| 331 0x2007, /* #x0AA5 DIGIT SPACE Publish */ | |
| 332 0x2008, /* #x0AA6 PUNCTUATION SPACE Publish */ | |
| 333 0x2009, /* #x0AA7 THIN SPACE Publish */ | |
| 334 0x200A, /* #x0AA8 HAIR SPACE Publish */ | |
| 335 0x2014, /* #x0AA9 EM DASH Publish */ | |
| 336 0x2013, /* #x0AAA EN DASH Publish */ | |
| 337 0x0, /* #x0AAB */ | |
| 338 0x0, /* #x0AAC SIGNIFICANT BLANK SYMBOL Publish */ | |
| 339 0x0, /* #x0AAD */ | |
| 340 0x2026, /* #x0AAE ELLIPSIS Publish */ | |
| 341 0x2025, /* #x0AAF DOUBLE BASELINE DOT Publish */ | |
| 342 0x2153, /* #x0AB0 VULGAR FRACTION ONE THIRD Publish */ | |
| 343 0x2154, /* #x0AB1 VULGAR FRACTION TWO THIRDS Publish */ | |
| 344 0x2155, /* #x0AB2 VULGAR FRACTION ONE FIFTH Publish */ | |
| 345 0x2156, /* #x0AB3 VULGAR FRACTION TWO FIFTHS Publish */ | |
| 346 0x2157, /* #x0AB4 VULGAR FRACTION THREE FIFTHS Publish */ | |
| 347 0x2158, /* #x0AB5 VULGAR FRACTION FOUR FIFTHS Publish */ | |
| 348 0x2159, /* #x0AB6 VULGAR FRACTION ONE SIXTH Publish */ | |
| 349 0x215A, /* #x0AB7 VULGAR FRACTION FIVE SIXTHS Publish */ | |
| 350 0x2105, /* #x0AB8 CARE OF Publish */ | |
| 351 0x0, /* #x0AB9 */ | |
| 352 0x0, /* #x0ABA */ | |
| 353 0x2012, /* #x0ABB FIGURE DASH Publish */ | |
| 3458 | 354 0x3008, /* #x0ABC LEFT ANGLE BRACKET Publish */ |
| 355 0x002E, /* #x0ABD DECIMAL POINT Publish */ | |
| 356 0x3009, /* #x0ABE RIGHT ANGLE BRACKET Publish */ | |
| 2828 | 357 0x0, /* #x0ABF MARKER Publish */ |
| 358 0x0, /* #x0AC0 */ | |
| 359 0x0, /* #x0AC1 */ | |
| 360 0x0, /* #x0AC2 */ | |
| 361 0x215B, /* #x0AC3 VULGAR FRACTION ONE EIGHTH Publish */ | |
| 362 0x215C, /* #x0AC4 VULGAR FRACTION THREE EIGHTHS Publish */ | |
| 363 0x215D, /* #x0AC5 VULGAR FRACTION FIVE EIGHTHS Publish */ | |
| 364 0x215E, /* #x0AC6 VULGAR FRACTION SEVEN EIGHTHS Publish */ | |
| 365 0x0, /* #x0AC7 */ | |
| 366 0x0, /* #x0AC8 */ | |
| 367 0x2122, /* #x0AC9 TRADEMARK SIGN Publish */ | |
| 368 0x0, /* #x0ACA SIGNATURE MARK Publish */ | |
| 369 0x0, /* #x0ACB TRADEMARK SIGN IN CIRCLE Publish */ | |
| 370 0x0, /* #x0ACC LEFT OPEN TRIANGLE Publish */ | |
| 371 0x0, /* #x0ACD RIGHT OPEN TRIANGLE Publish */ | |
| 372 0x0, /* #x0ACE EM OPEN CIRCLE Publish */ | |
| 373 0x0, /* #x0ACF EM OPEN RECTANGLE Publish */ | |
| 374 0x2018, /* #x0AD0 LEFT SINGLE QUOTATION MARK Publish */ | |
| 375 0x2019, /* #x0AD1 RIGHT SINGLE QUOTATION MARK Publish */ | |
| 376 0x201C, /* #x0AD2 LEFT DOUBLE QUOTATION MARK Publish */ | |
| 377 0x201D, /* #x0AD3 RIGHT DOUBLE QUOTATION MARK Publish */ | |
| 378 0x211E, /* #x0AD4 PRESCRIPTION, TAKE, RECIPE Publish */ | |
| 379 0x0, /* #x0AD5 */ | |
| 380 0x2032, /* #x0AD6 MINUTES Publish */ | |
| 381 0x2033, /* #x0AD7 SECONDS Publish */ | |
| 382 0x0, /* #x0AD8 */ | |
| 383 0x271D, /* #x0AD9 LATIN CROSS Publish */ | |
| 384 0x0, /* #x0ADA HEXAGRAM Publish */ | |
| 385 0x0, /* #x0ADB FILLED RECTANGLE BULLET Publish */ | |
| 386 0x0, /* #x0ADC FILLED LEFT TRIANGLE BULLET Publish */ | |
| 387 0x0, /* #x0ADD FILLED RIGHT TRIANGLE BULLET Publish */ | |
| 388 0x0, /* #x0ADE EM FILLED CIRCLE Publish */ | |
| 389 0x0, /* #x0ADF EM FILLED RECTANGLE Publish */ | |
| 390 0x0, /* #x0AE0 EN OPEN CIRCLE BULLET Publish */ | |
| 391 0x0, /* #x0AE1 EN OPEN SQUARE BULLET Publish */ | |
| 392 0x0, /* #x0AE2 OPEN RECTANGULAR BULLET Publish */ | |
| 393 0x0, /* #x0AE3 OPEN TRIANGULAR BULLET UP Publish */ | |
| 394 0x0, /* #x0AE4 OPEN TRIANGULAR BULLET DOWN Publish */ | |
| 395 0x0, /* #x0AE5 OPEN STAR Publish */ | |
| 396 0x0, /* #x0AE6 EN FILLED CIRCLE BULLET Publish */ | |
| 397 0x0, /* #x0AE7 EN FILLED SQUARE BULLET Publish */ | |
| 398 0x0, /* #x0AE8 FILLED TRIANGULAR BULLET UP Publish */ | |
| 399 0x0, /* #x0AE9 FILLED TRIANGULAR BULLET DOWN Publish */ | |
| 400 0x0, /* #x0AEA LEFT POINTER Publish */ | |
| 401 0x0, /* #x0AEB RIGHT POINTER Publish */ | |
| 402 0x2663, /* #x0AEC CLUB Publish */ | |
| 403 0x2666, /* #x0AED DIAMOND Publish */ | |
| 404 0x2665, /* #x0AEE HEART Publish */ | |
| 405 0x0, /* #x0AEF */ | |
| 406 0x2720, /* #x0AF0 MALTESE CROSS Publish */ | |
| 407 0x2020, /* #x0AF1 DAGGER Publish */ | |
| 408 0x2021, /* #x0AF2 DOUBLE DAGGER Publish */ | |
| 409 0x2713, /* #x0AF3 CHECK MARK, TICK Publish */ | |
| 410 0x2717, /* #x0AF4 BALLOT CROSS Publish */ | |
| 411 0x266F, /* #x0AF5 MUSICAL SHARP Publish */ | |
| 412 0x266D, /* #x0AF6 MUSICAL FLAT Publish */ | |
| 413 0x2642, /* #x0AF7 MALE SYMBOL Publish */ | |
| 414 0x2640, /* #x0AF8 FEMALE SYMBOL Publish */ | |
| 415 0x260E, /* #x0AF9 TELEPHONE SYMBOL Publish */ | |
| 416 0x2315, /* #x0AFA TELEPHONE RECORDER SYMBOL Publish */ | |
| 417 0x2117, /* #x0AFB PHONOGRAPH COPYRIGHT SIGN Publish */ | |
| 418 0x2038, /* #x0AFC CARET Publish */ | |
| 419 0x201A, /* #x0AFD SINGLE LOW QUOTATION MARK Publish */ | |
| 420 0x201E, /* #x0AFE DOUBLE LOW QUOTATION MARK Publish */ | |
| 421 }; | |
| 422 | |
| 423 static UINT_16_BIT const APL[] = | |
| 424 { | |
| 425 0x22A5, /* #x0BC2 DOWN TACK APL */ | |
| 426 #define FIRST_KNOWN_APL 0xBC2 | |
| 427 0x0, /* #x0BC3 UP SHOE (CAP) APL */ | |
| 428 0x230A, /* #x0BC4 DOWN STILE APL */ | |
| 429 0x0, /* #x0BC5 */ | |
| 430 0x0, /* #x0BC6 UNDERBAR APL */ | |
| 431 0x0, /* #x0BC7 */ | |
| 432 0x0, /* #x0BC8 */ | |
| 433 0x0, /* #x0BC9 */ | |
| 434 0x2218, /* #x0BCA JOT APL */ | |
| 435 0x0, /* #x0BCB */ | |
| 436 0x2395, /* #x0BCC QUAD APL */ | |
| 437 0x0, /* #x0BCD */ | |
| 438 0x22A4, /* #x0BCE UP TACK APL */ | |
| 439 0x25CB, /* #x0BCF CIRCLE APL */ | |
| 440 0x0, /* #x0BD0 */ | |
| 441 0x0, /* #x0BD1 */ | |
| 442 0x0, /* #x0BD2 */ | |
| 443 0x2308, /* #x0BD3 UP STILE APL */ | |
| 444 0x0, /* #x0BD4 */ | |
| 445 0x0, /* #x0BD5 */ | |
| 446 0x0, /* #x0BD6 DOWN SHOE (CUP) APL */ | |
| 447 0x0, /* #x0BD7 */ | |
| 448 0x0, /* #x0BD8 RIGHT SHOE APL */ | |
| 449 0x0, /* #x0BD9 */ | |
| 450 0x0, /* #x0BDA LEFT SHOE APL */ | |
| 451 0x0, /* #x0BDB */ | |
| 452 0x0, /* #x0BDC */ | |
| 453 0x22A2, /* #x0BDC LEFT TACK APL */ | |
| 454 0x0, /* #x0BDE */ | |
| 455 0x0, /* #x0BDF */ | |
| 456 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, /* 0x0BB0--0x0BBB */ | |
| 457 0x0, 0x0, 0x0, 0x0, | |
| 458 0x22A3, /* #x0BFC RIGHT TACK APL */ | |
| 459 }; | |
| 460 | |
| 3640 | 461 static UINT_16_BIT const CYRILLIC[] = |
| 462 { | |
| 463 0x0452, /* #x06A1 CYRILLIC SMALL LETTER DJE */ | |
| 464 #define FIRST_KNOWN_CYRILLIC 0x6A1 | |
| 465 0x0453, /* #x06A2 CYRILLIC SMALL LETTER GJE */ | |
| 466 0x0451, /* #x06A3 CYRILLIC SMALL LETTER IO */ | |
| 467 0x0454, /* #x06A4 CYRILLIC SMALL LETTER UKRAINIAN IE */ | |
| 468 0x0455, /* #x06A5 CYRILLIC SMALL LETTER DZE */ | |
| 469 0x0456, /* #x06A6 CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */ | |
| 470 0x0457, /* #x06A7 CYRILLIC SMALL LETTER YI */ | |
| 471 0x0458, /* #x06A8 CYRILLIC SMALL LETTER JE */ | |
| 472 0x0459, /* #x06A9 CYRILLIC SMALL LETTER LJE */ | |
| 473 0x045A, /* #x06AA CYRILLIC SMALL LETTER NJE */ | |
| 474 0x045B, /* #x06AB CYRILLIC SMALL LETTER TSHE */ | |
| 475 0x045C, /* #x06AC CYRILLIC SMALL LETTER KJE */ | |
| 476 0x0491, /* #x06AD CYRILLIC SMALL LETTER GHE WITH UPTURN */ | |
| 477 0x045E, /* #x06AE CYRILLIC SMALL LETTER SHORT U */ | |
| 478 0x045F, /* #x06AF CYRILLIC SMALL LETTER DZHE */ | |
| 479 0x2116, /* #x06B0 NUMERO SIGN */ | |
| 480 0x0402, /* #x06B1 CYRILLIC CAPITAL LETTER DJE */ | |
| 481 0x0403, /* #x06B2 CYRILLIC CAPITAL LETTER GJE */ | |
| 482 0x0401, /* #x06B3 CYRILLIC CAPITAL LETTER IO */ | |
| 483 0x0404, /* #x06B4 CYRILLIC CAPITAL LETTER UKRAINIAN IE */ | |
| 484 0x0405, /* #x06B5 CYRILLIC CAPITAL LETTER DZE */ | |
| 485 0x0406, /* #x06B6 CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */ | |
| 486 0x0407, /* #x06B7 CYRILLIC CAPITAL LETTER YI */ | |
| 487 0x0408, /* #x06B8 CYRILLIC CAPITAL LETTER JE */ | |
| 488 0x0409, /* #x06B9 CYRILLIC CAPITAL LETTER LJE */ | |
| 489 0x040A, /* #x06BA CYRILLIC CAPITAL LETTER NJE */ | |
| 490 0x040B, /* #x06BB CYRILLIC CAPITAL LETTER TSHE */ | |
| 491 0x040C, /* #x06BC CYRILLIC CAPITAL LETTER KJE */ | |
| 492 0x0490, /* #x06BD CYRILLIC CAPITAL LETTER GHE WITH UPTURN */ | |
| 493 0x040E, /* #x06BE CYRILLIC CAPITAL LETTER SHORT U */ | |
| 494 0x040F, /* #x06BF CYRILLIC CAPITAL LETTER DZHE */ | |
| 495 0x044E, /* #x06C0 CYRILLIC SMALL LETTER YU */ | |
| 496 0x0430, /* #x06C1 CYRILLIC SMALL LETTER A */ | |
| 497 0x0431, /* #x06C2 CYRILLIC SMALL LETTER BE */ | |
| 498 0x0446, /* #x06C3 CYRILLIC SMALL LETTER TSE */ | |
| 499 0x0434, /* #x06C4 CYRILLIC SMALL LETTER DE */ | |
| 500 0x0435, /* #x06C5 CYRILLIC SMALL LETTER IE */ | |
| 501 0x0444, /* #x06C6 CYRILLIC SMALL LETTER EF */ | |
| 502 0x0433, /* #x06C7 CYRILLIC SMALL LETTER GHE */ | |
| 503 0x0445, /* #x06C8 CYRILLIC SMALL LETTER HA */ | |
| 504 0x0438, /* #x06C9 CYRILLIC SMALL LETTER I */ | |
| 505 0x0439, /* #x06CA CYRILLIC SMALL LETTER SHORT I */ | |
| 506 0x043A, /* #x06CB CYRILLIC SMALL LETTER KA */ | |
| 507 0x043B, /* #x06CC CYRILLIC SMALL LETTER EL */ | |
| 508 0x043C, /* #x06CD CYRILLIC SMALL LETTER EM */ | |
| 509 0x043D, /* #x06CE CYRILLIC SMALL LETTER EN */ | |
| 510 0x043E, /* #x06CF CYRILLIC SMALL LETTER O */ | |
| 511 0x043F, /* #x06D0 CYRILLIC SMALL LETTER PE */ | |
| 512 0x044F, /* #x06D1 CYRILLIC SMALL LETTER YA */ | |
| 513 0x0440, /* #x06D2 CYRILLIC SMALL LETTER ER */ | |
| 514 0x0441, /* #x06D3 CYRILLIC SMALL LETTER ES */ | |
| 515 0x0442, /* #x06D4 CYRILLIC SMALL LETTER TE */ | |
| 516 0x0443, /* #x06D5 CYRILLIC SMALL LETTER U */ | |
| 517 0x0436, /* #x06D6 CYRILLIC SMALL LETTER ZHE */ | |
| 518 0x0432, /* #x06D7 CYRILLIC SMALL LETTER VE */ | |
| 519 0x044C, /* #x06D8 CYRILLIC SMALL LETTER SOFT SIGN */ | |
| 520 0x044B, /* #x06D9 CYRILLIC SMALL LETTER YERU */ | |
| 521 0x0437, /* #x06DA CYRILLIC SMALL LETTER ZE */ | |
| 522 0x0448, /* #x06DB CYRILLIC SMALL LETTER SHA */ | |
| 523 0x044D, /* #x06DC CYRILLIC SMALL LETTER E */ | |
| 524 0x0449, /* #x06DD CYRILLIC SMALL LETTER SHCHA */ | |
| 525 0x0447, /* #x06DE CYRILLIC SMALL LETTER CHE */ | |
| 526 0x044A, /* #x06DF CYRILLIC SMALL LETTER HARD SIGN */ | |
| 527 0x042E, /* #x06E0 CYRILLIC CAPITAL LETTER YU */ | |
| 528 0x0410, /* #x06E1 CYRILLIC CAPITAL LETTER A */ | |
| 529 0x0411, /* #x06E2 CYRILLIC CAPITAL LETTER BE */ | |
| 530 0x0426, /* #x06E3 CYRILLIC CAPITAL LETTER TSE */ | |
| 531 0x0414, /* #x06E4 CYRILLIC CAPITAL LETTER DE */ | |
| 532 0x0415, /* #x06E5 CYRILLIC CAPITAL LETTER IE */ | |
| 533 0x0424, /* #x06E6 CYRILLIC CAPITAL LETTER EF */ | |
| 534 0x0413, /* #x06E7 CYRILLIC CAPITAL LETTER GHE */ | |
| 535 0x0425, /* #x06E8 CYRILLIC CAPITAL LETTER HA */ | |
| 536 0x0418, /* #x06E9 CYRILLIC CAPITAL LETTER I */ | |
| 537 0x0419, /* #x06EA CYRILLIC CAPITAL LETTER SHORT I */ | |
| 538 0x041A, /* #x06EB CYRILLIC CAPITAL LETTER KA */ | |
| 539 0x041B, /* #x06EC CYRILLIC CAPITAL LETTER EL */ | |
| 540 0x041C, /* #x06ED CYRILLIC CAPITAL LETTER EM */ | |
| 541 0x041D, /* #x06EE CYRILLIC CAPITAL LETTER EN */ | |
| 542 0x041E, /* #x06EF CYRILLIC CAPITAL LETTER O */ | |
| 543 0x041F, /* #x06F0 CYRILLIC CAPITAL LETTER PE */ | |
| 544 0x042F, /* #x06F1 CYRILLIC CAPITAL LETTER YA */ | |
| 545 0x0420, /* #x06F2 CYRILLIC CAPITAL LETTER ER */ | |
| 546 0x0421, /* #x06F3 CYRILLIC CAPITAL LETTER ES */ | |
| 547 0x0422, /* #x06F4 CYRILLIC CAPITAL LETTER TE */ | |
| 548 0x0423, /* #x06F5 CYRILLIC CAPITAL LETTER U */ | |
| 549 0x0416, /* #x06F6 CYRILLIC CAPITAL LETTER ZHE */ | |
| 550 0x0412, /* #x06F7 CYRILLIC CAPITAL LETTER VE */ | |
| 551 0x042C, /* #x06F8 CYRILLIC CAPITAL LETTER SOFT SIGN */ | |
| 552 0x042B, /* #x06F9 CYRILLIC CAPITAL LETTER YERU */ | |
| 553 0x0417, /* #x06FA CYRILLIC CAPITAL LETTER ZE */ | |
| 554 0x0428, /* #x06FB CYRILLIC CAPITAL LETTER SHA */ | |
| 555 0x042D, /* #x06FC CYRILLIC CAPITAL LETTER E */ | |
| 556 0x0429, /* #x06FD CYRILLIC CAPITAL LETTER SHCHA */ | |
| 557 0x0427, /* #x06FE CYRILLIC CAPITAL LETTER CHE */ | |
| 558 0x042A, /* #x06FF CYRILLIC CAPITAL LETTER HARD SIGN */ | |
| 559 }; | |
| 560 | |
| 2828 | 561 /* For every key on the keyboard that has a known character correspondence, |
| 562 we define the character-of-keysym property of its XEmacs keysym, and make | |
| 563 the default binding for the key be self-insert-command. | |
| 564 | |
| 565 The following magic is based on intimate knowledge of some of | |
| 566 X11/keysymdef.h. The keysym mappings defined by X11 are based on the | |
| 567 iso8859 standards, except for Cyrillic and Greek. | |
| 568 | |
| 569 In a non-Mule world, a user can still have a multi-lingual editor, by | |
| 570 doing (set-face-font "...-iso8859-2" (current-buffer)) for all their | |
| 571 Latin-2 buffers, etc. and the X11 keysyms corresponding to characters in | |
| 572 those character sets will still do the right thing (because of the | |
| 573 make_char (code + 0x80) non-Mule case below.) Of course, X11 keysyms in | |
| 574 other character sets will not do the right thing, because XEmacs won't | |
| 575 support the right thing. | |
| 576 | |
| 577 This code is also called when a command lookup is about to fail, and the | |
| 578 X11 platform code has worked out that it previously wasn't aware the | |
| 579 keysym of that command could be generated by the user's keyboard; in that | |
| 580 case, we bind its XEmacs keysym to self-insert-command if it has a | |
| 581 character correspondence we know about, and tell the general event code | |
| 582 that we've done so, so it can try the lookup again. | |
| 583 | |
| 584 Called from the GTK code because GTK 1 has no defined way of doing the | |
| 585 same thing, and this works for it on X11. It should be moved back into | |
| 586 event-Xt.c when and if the GTK port moves to GTK 2. */ | |
| 587 | |
| 588 #ifndef THIS_IS_GTK | |
| 589 static Lisp_Object | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
590 x_keysym_to_character (KeySym keysym) |
| 2828 | 591 #else |
| 592 Lisp_Object | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
593 gtk_keysym_to_character (guint keysym) |
| 2828 | 594 #endif |
| 595 { | |
| 596 Lisp_Object charset = Qzero; | |
| 597 int code = 0; | |
| 598 | |
| 599 /* Markus Kuhn's spec says keysyms in the range #x01000100 to #x0110FFFF | |
| 600 and only those should correspond directly to Unicode code points, in | |
| 601 the range #x100-#x10FFFF; actual implementations can have the Latin 1 | |
| 602 code points do the same thing with keysyms | |
| 3439 | 603 #x01000000-#x01000100. */ |
| 2828 | 604 |
| 3439 | 605 if (keysym >= 0x01000000 && keysym <= 0x0110FFFF) |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5402
diff
changeset
|
606 return Funicode_to_char (make_fixnum (keysym & 0xffffff), Qnil); |
| 2828 | 607 |
| 608 if ((keysym & 0xff) < 0xa0) | |
| 609 return Qnil; | |
| 610 | |
| 611 switch (keysym >> 8) | |
| 612 { | |
| 613 | |
| 614 #define USE_CHARSET(var,cs) \ | |
| 615 ((var) = charset_by_leading_byte (LEADING_BYTE_##cs)) | |
| 616 | |
| 617 case 0: /* ASCII + Latin1 */ | |
| 618 USE_CHARSET (charset, LATIN_ISO8859_1); | |
| 619 code = keysym & 0x7f; | |
| 620 break; | |
| 621 case 1: /* Latin2 */ | |
| 622 USE_CHARSET (charset, LATIN_ISO8859_2); | |
| 623 code = keysym & 0x7f; | |
| 624 break; | |
| 625 case 2: /* Latin3 */ | |
| 626 USE_CHARSET (charset, LATIN_ISO8859_3); | |
| 627 code = keysym & 0x7f; | |
| 628 break; | |
| 629 case 3: /* Latin4 */ | |
| 630 USE_CHARSET (charset, LATIN_ISO8859_4); | |
| 631 code = keysym & 0x7f; | |
| 632 break; | |
| 633 case 4: /* Katakana */ | |
| 634 USE_CHARSET (charset, KATAKANA_JISX0201); | |
| 635 if ((keysym & 0xff) > 0xa0) | |
| 636 code = keysym & 0x7f; | |
| 637 break; | |
| 638 case 5: /* Arabic */ | |
| 639 USE_CHARSET (charset, ARABIC_ISO8859_6); | |
| 640 code = keysym & 0x7f; | |
| 641 break; | |
| 642 case 6: /* Cyrillic */ | |
| 643 { | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
644 USE_UNICODE_MAP (keysym, CYRILLIC); |
| 2828 | 645 break; |
| 646 } | |
| 647 case 7: /* Greek */ | |
| 648 { | |
| 649 static UExtbyte const greek[] = /* 0x20 - 0x7f */ | |
| 650 {0x00, 0x36, 0x38, 0x39, 0x3a, 0x5a, 0x00, 0x3c, | |
| 651 0x3e, 0x5b, 0x00, 0x3f, 0x00, 0x00, 0x35, 0x2f, | |
| 652 0x00, 0x5c, 0x5d, 0x5e, 0x5f, 0x7a, 0x40, 0x7c, | |
| 653 0x7d, 0x7b, 0x60, 0x7e, 0x00, 0x00, 0x00, 0x00, | |
| 654 0x00, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, | |
| 655 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, | |
| 656 0x50, 0x51, 0x53, 0x00, 0x54, 0x55, 0x56, 0x57, | |
| 657 0x58, 0x59, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, | |
| 658 0x00, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, | |
| 659 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, | |
| 660 0x70, 0x71, 0x73, 0x72, 0x74, 0x75, 0x76, 0x77, | |
| 661 0x78, 0x79, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; | |
| 662 USE_CHARSET (charset, GREEK_ISO8859_7); | |
| 663 code = greek[(keysym & 0x7f) - 0x20]; | |
| 664 break; | |
| 665 } | |
| 666 case 8: | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
667 USE_UNICODE_MAP (keysym, TECHNICAL); |
| 2828 | 668 break; |
| 669 case 9: | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
670 USE_UNICODE_MAP (keysym, SPECIAL); |
| 2828 | 671 break; |
| 672 case 10: | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
673 USE_UNICODE_MAP (keysym, PUBLISHING); |
| 2828 | 674 break; |
| 675 case 11: | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
676 USE_UNICODE_MAP (keysym, APL); |
| 2828 | 677 break; |
| 678 case 12: /* Hebrew */ | |
| 679 USE_CHARSET (charset, HEBREW_ISO8859_8); | |
| 680 code = keysym & 0x7f; | |
| 681 break; | |
| 682 case 13: /* Thai */ | |
| 683 /* #### This needs to deal with character composition. | |
| 684 Are you sure we can't leave it to the X server? */ | |
| 685 USE_CHARSET (charset, THAI_TIS620); | |
| 686 code = keysym & 0x7f; | |
| 687 break; | |
| 688 case 14: /* Korean Hangul. Would like some information on whether this | |
| 689 is worth doing--there don't appear to be any Korean keyboard | |
| 690 layouts in the XKB data files. */ | |
| 691 break; | |
| 692 | |
| 693 case 19: /* Latin 9 - ISO8859-15. */ | |
| 694 USE_CHARSET (charset, LATIN_ISO8859_15); | |
| 695 code = keysym & 0x7f; | |
| 696 break; | |
| 697 case 32: /* Currency. The lower sixteen bits of these keysyms happily | |
| 698 correspond exactly to the Unicode code points of the | |
| 699 associated characters */ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5402
diff
changeset
|
700 return Funicode_to_char (make_fixnum (keysym & 0xffff), Qnil); |
| 2828 | 701 break; |
| 702 default: | |
| 703 break; | |
| 704 } | |
| 705 | |
| 706 if (code == 0) | |
| 707 return Qnil; | |
| 708 | |
| 709 #ifdef MULE | |
|
4358
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
710 { |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
711 Lisp_Object unified = Funicode_to_char |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
712 (Fchar_to_unicode (make_char (make_ichar (charset, code, 0))), Qnil); |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
713 if (!NILP (unified)) |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
714 { |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
715 return unified; |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
716 } |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
717 return make_char (make_ichar (charset, code, 0)); |
|
63c25d1cbecf
Unify the typed character under X11, using the unicode precedence list
Aidan Kehoe <kehoea@parhasard.net>
parents:
3640
diff
changeset
|
718 } |
| 2828 | 719 #else |
| 720 return make_char (code + 0x80); | |
| 721 #endif | |
| 722 } | |
| 723 | |
|
4908
b3ce27ca7647
various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents:
4358
diff
changeset
|
724 #endif /* defined (THIS_IS_X) || !defined (__GDK_KEYS_H__) */ |