/[emacs]/emacs/lisp/term/x-win.el
ViewVC logotype

Diff of /emacs/lisp/term/x-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.150 by rms, Thu Jan 24 19:20:12 2002 UTC revision 1.150.2.1 by fx, Sun Oct 27 21:10:00 2002 UTC
# Line 1  Line 1 
1  ;;; x-win.el --- parse switches controlling interface with X window system  ;;; x-win.el --- parse relevant switches and set up for X  -*-coding: utf-8-emacs;-*-
2    
3  ;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1993, 1994, 2001, 2002 Free Software Foundation, Inc.
4    
5  ;; Author: FSF  ;; Author: FSF
6  ;; Keywords: terminals  ;; Keywords: terminals, i18n
7    
8  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
9    
# Line 30  Line 30 
30  ;; X display is opened and hooks are set for popping up the initial window.  ;; X display is opened and hooks are set for popping up the initial window.
31    
32  ;; startup.el will then examine startup files, and eventually call the hooks  ;; startup.el will then examine startup files, and eventually call the hooks
33  ;; which create the first window (s).  ;; which create the first window(s).
34    
35  ;;; Code:  ;;; Code:
36    
# Line 75  Line 75 
75  (require 'faces)  (require 'faces)
76  (require 'select)  (require 'select)
77  (require 'menu-bar)  (require 'menu-bar)
78  (if (fboundp 'new-fontset)  (require 'fontset)
     (require 'fontset))  
79    
80  (defvar x-invocation-args)  (defvar x-invocation-args)
81    
# Line 1193  as returned by (x-server-vendor)." Line 1192  as returned by (x-server-vendor)."
1192           '((65280 . remove)))))           '((65280 . remove)))))
1193    
1194    
1195    ;;;; Keysyms
1196    
1197    (let ((i 160))
1198      (while (< i 256)
1199        (puthash i i x-keysym-table)
1200        (setq i (1- i))))
1201    
1202    ;; Table from Kuhn's proposed additions to the `KEYSYM Encoding'
1203    ;; appendix to the X protocol definition.
1204    (dolist
1205         (pair
1206          '((#x1a1 . ?Ą)
1207            (#x1a2 . ?˘)
1208            (#x1a3 . ?Ł)
1209            (#x1a5 . ?Ľ)
1210            (#x1a6 . ?Ś)
1211            (#x1a9 . ?Š)
1212            (#x1aa . ?Ş)
1213            (#x1ab . ?Ť)
1214            (#x1ac . ?Ź)
1215            (#x1ae . ?Ž)
1216            (#x1af . ?Ż)
1217            (#x1b1 . ?ą)
1218            (#x1b2 . ?˛)
1219            (#x1b3 . ?ł)
1220            (#x1b5 . ?ľ)
1221            (#x1b6 . ?ś)
1222            (#x1b7 . ?ˇ)
1223            (#x1b9 . ?š)
1224            (#x1ba . ?ş)
1225            (#x1bb . ?ť)
1226            (#x1bc . ?ź)
1227            (#x1bd . ?˝)
1228            (#x1be . ?ž)
1229            (#x1bf . ?ż)
1230            (#x1c0 . ?Ŕ)
1231            (#x1c3 . ?Ă)
1232            (#x1c5 . ?Ĺ)
1233            (#x1c6 . ?Ć)
1234            (#x1c8 . ?Č)
1235            (#x1ca . ?Ę)
1236            (#x1cc . ?Ě)
1237            (#x1cf . ?Ď)
1238            (#x1d0 . ?Đ)
1239            (#x1d1 . ?Ń)
1240            (#x1d2 . ?Ň)
1241            (#x1d5 . ?Ő)
1242            (#x1d8 . ?Ř)
1243            (#x1d9 . ?Ů)
1244            (#x1db . ?Ű)
1245            (#x1de . ?Ţ)
1246            (#x1e0 . ?ŕ)
1247            (#x1e3 . ?ă)
1248            (#x1e5 . ?ĺ)
1249            (#x1e6 . ?ć)
1250            (#x1e8 . ?č)
1251            (#x1ea . ?ę)
1252            (#x1ec . ?ě)
1253            (#x1ef . ?ď)
1254            (#x1f0 . ?đ)
1255            (#x1f1 . ?ń)
1256            (#x1f2 . ?ň)
1257            (#x1f5 . ?ő)
1258            (#x1f8 . ?ř)
1259            (#x1f9 . ?ů)
1260            (#x1fb . ?ű)
1261            (#x1fe . ?ţ)
1262            (#x1ff . ?˙)
1263            (#x2a1 . ?Ħ)
1264            (#x2a6 . ?Ĥ)
1265            (#x2a9 . ?İ)
1266            (#x2ab . ?Ğ)
1267            (#x2ac . ?Ĵ)
1268            (#x2b1 . ?ħ)
1269            (#x2b6 . ?ĥ)
1270            (#x2b9 . ?ı)
1271            (#x2bb . ?ğ)
1272            (#x2bc . ?ĵ)
1273            (#x2c5 . ?Ċ)
1274            (#x2c6 . ?Ĉ)
1275            (#x2d5 . ?Ġ)
1276            (#x2d8 . ?Ĝ)
1277            (#x2dd . ?Ŭ)
1278            (#x2de . ?Ŝ)
1279            (#x2e5 . ?ċ)
1280            (#x2e6 . ?ĉ)
1281            (#x2f5 . ?ġ)
1282            (#x2f8 . ?ĝ)
1283            (#x2fd . ?ŭ)
1284            (#x2fe . ?ŝ)
1285            (#x3a2 . ?ĸ)
1286            (#x3a3 . ?Ŗ)
1287            (#x3a5 . ?Ĩ)
1288            (#x3a6 . ?Ļ)
1289            (#x3aa . ?Ē)
1290            (#x3ab . ?Ģ)
1291            (#x3ac . ?Ŧ)
1292            (#x3b3 . ?ŗ)
1293            (#x3b5 . ?ĩ)
1294            (#x3b6 . ?ļ)
1295            (#x3ba . ?ē)
1296            (#x3bb . ?ģ)
1297            (#x3bc . ?ŧ)
1298            (#x3bd . ?Ŋ)
1299            (#x3bf . ?ŋ)
1300            (#x3c0 . ?Ā)
1301            (#x3c7 . ?Į)
1302            (#x3cc . ?Ė)
1303            (#x3cf . ?Ī)
1304            (#x3d1 . ?Ņ)
1305            (#x3d2 . ?Ō)
1306            (#x3d3 . ?Ķ)
1307            (#x3d9 . ?Ų)
1308            (#x3dd . ?Ũ)
1309            (#x3de . ?Ū)
1310            (#x3e0 . ?ā)
1311            (#x3e7 . ?į)
1312            (#x3ec . ?ė)
1313            (#x3ef . ?ī)
1314            (#x3f1 . ?ņ)
1315            (#x3f2 . ?ō)
1316            (#x3f3 . ?ķ)
1317            (#x3f9 . ?ų)
1318            (#x3fd . ?ũ)
1319            (#x3fe . ?ū)
1320            (#x47e . ?‾)
1321            (#x4a1 . ?。)
1322            (#x4a2 . ?\「)
1323            (#x4a3 . ?\」)
1324            (#x4a4 . ?、)
1325            (#x4a5 . ?・)
1326            (#x4a6 . ?ヲ)
1327            (#x4a7 . ?ァ)
1328            (#x4a8 . ?ィ)
1329            (#x4a9 . ?ゥ)
1330            (#x4aa . ?ェ)
1331            (#x4ab . ?ォ)
1332            (#x4ac . ?ャ)
1333            (#x4ad . ?ュ)
1334            (#x4ae . ?ョ)
1335            (#x4af . ?ッ)
1336            (#x4b0 . ?ー)
1337            (#x4b1 . ?ア)
1338            (#x4b2 . ?イ)
1339            (#x4b3 . ?ウ)
1340            (#x4b4 . ?エ)
1341            (#x4b5 . ?オ)
1342            (#x4b6 . ?カ)
1343            (#x4b7 . ?キ)
1344            (#x4b8 . ?ク)
1345            (#x4b9 . ?ケ)
1346            (#x4ba . ?コ)
1347            (#x4bb . ?サ)
1348            (#x4bc . ?シ)
1349            (#x4bd . ?ス)
1350            (#x4be . ?セ)
1351            (#x4bf . ?ソ)
1352            (#x4c0 . ?タ)
1353            (#x4c1 . ?チ)
1354            (#x4c2 . ?ツ)
1355            (#x4c3 . ?テ)
1356            (#x4c4 . ?ト)
1357            (#x4c5 . ?ナ)
1358            (#x4c6 . ?ニ)
1359            (#x4c7 . ?ヌ)
1360            (#x4c8 . ?ネ)
1361            (#x4c9 . ?ノ)
1362            (#x4ca . ?ハ)
1363            (#x4cb . ?ヒ)
1364            (#x4cc . ?フ)
1365            (#x4cd . ?ヘ)
1366            (#x4ce . ?ホ)
1367            (#x4cf . ?マ)
1368            (#x4d0 . ?ミ)
1369            (#x4d1 . ?ム)
1370            (#x4d2 . ?メ)
1371            (#x4d3 . ?モ)
1372            (#x4d4 . ?ヤ)
1373            (#x4d5 . ?ユ)
1374            (#x4d6 . ?ヨ)
1375            (#x4d7 . ?ラ)
1376            (#x4d8 . ?リ)
1377            (#x4d9 . ?ル)
1378            (#x4da . ?レ)
1379            (#x4db . ?ロ)
1380            (#x4dc . ?ワ)
1381            (#x4dd . ?ン)
1382            (#x4de . ?゛)
1383            (#x4df . ?゜)
1384            (#x5ac . ?،)
1385            (#x5bb . ?؛)
1386            (#x5bf . ?؟)
1387            (#x5c1 . ?ء)
1388            (#x5c2 . ?آ)
1389            (#x5c3 . ?أ)
1390            (#x5c4 . ?ؤ)
1391            (#x5c5 . ?إ)
1392            (#x5c6 . ?ئ)
1393            (#x5c7 . ?ا)
1394            (#x5c8 . ?ب)
1395            (#x5c9 . ?ة)
1396            (#x5ca . ?ت)
1397            (#x5cb . ?ث)
1398            (#x5cc . ?ج)
1399            (#x5cd . ?ح)
1400            (#x5ce . ?خ)
1401            (#x5cf . ?د)
1402            (#x5d0 . ?ذ)
1403            (#x5d1 . ?ر)
1404            (#x5d2 . ?ز)
1405            (#x5d3 . ?س)
1406            (#x5d4 . ?ش)
1407            (#x5d5 . ?ص)
1408            (#x5d6 . ?ض)
1409            (#x5d7 . ?ط)
1410            (#x5d8 . ?ظ)
1411            (#x5d9 . ?ع)
1412            (#x5da . ?غ)
1413            (#x5e0 . ?ـ)
1414            (#x5e1 . ?ف)
1415            (#x5e2 . ?ق)
1416            (#x5e3 . ?ك)
1417            (#x5e4 . ?ل)
1418            (#x5e5 . ?م)
1419            (#x5e6 . ?ن)
1420            (#x5e7 . ?ه)
1421            (#x5e8 . ?و)
1422            (#x5e9 . ?ى)
1423            (#x5ea . ?ي)
1424            (#x5eb . ?ً)
1425            (#x5ec . ?ٌ)
1426            (#x5ed . ?ٍ)
1427            (#x5ee . ?َ)
1428            (#x5ef . ?ُ)
1429            (#x5f0 . ?ِ)
1430            (#x5f1 . ?ّ)
1431            (#x5f2 . ?ْ)
1432            (#x6a1 . ?ђ)
1433            (#x6a2 . ?ѓ)
1434            (#x6a3 . ?ё)
1435            (#x6a4 . ?є)
1436            (#x6a5 . ?ѕ)
1437            (#x6a6 . ?і)
1438            (#x6a7 . ?ї)
1439            (#x6a8 . ?ј)
1440            (#x6a9 . ?љ)
1441            (#x6aa . ?њ)
1442            (#x6ab . ?ћ)
1443            (#x6ac . ?ќ)
1444            (#x6ae . ?ў)
1445            (#x6af . ?џ)
1446            (#x6b0 . ?№)
1447            (#x6b1 . ?Ђ)
1448            (#x6b2 . ?Ѓ)
1449            (#x6b3 . ?Ё)
1450            (#x6b4 . ?Є)
1451            (#x6b5 . ?Ѕ)
1452            (#x6b6 . ?І)
1453            (#x6b7 . ?Ї)
1454            (#x6b8 . ?Ј)
1455            (#x6b9 . ?Љ)
1456            (#x6ba . ?Њ)
1457            (#x6bb . ?Ћ)
1458            (#x6bc . ?Ќ)
1459            (#x6be . ?Ў)
1460            (#x6bf . ?Џ)
1461            (#x6c0 . ?ю)
1462            (#x6c1 . ?а)
1463            (#x6c2 . ?б)
1464            (#x6c3 . ?ц)
1465            (#x6c4 . ?д)
1466            (#x6c5 . ?е)
1467            (#x6c6 . ?ф)
1468            (#x6c7 . ?г)
1469            (#x6c8 . ?х)
1470            (#x6c9 . ?и)
1471            (#x6ca . ?й)
1472            (#x6cb . ?к)
1473            (#x6cc . ?л)
1474            (#x6cd . ?м)
1475            (#x6ce . ?н)
1476            (#x6cf . ?о)
1477            (#x6d0 . ?п)
1478            (#x6d1 . ?я)
1479            (#x6d2 . ?р)
1480            (#x6d3 . ?с)
1481            (#x6d4 . ?т)
1482            (#x6d5 . ?у)
1483            (#x6d6 . ?ж)
1484            (#x6d7 . ?в)
1485            (#x6d8 . ?ь)
1486            (#x6d9 . ?ы)
1487            (#x6da . ?з)
1488            (#x6db . ?ш)
1489            (#x6dc . ?э)
1490            (#x6dd . ?щ)
1491            (#x6de . ?ч)
1492            (#x6df . ?ъ)
1493            (#x6e0 . ?Ю)
1494            (#x6e1 . ?А)
1495            (#x6e2 . ?Б)
1496            (#x6e3 . ?Ц)
1497            (#x6e4 . ?Д)
1498            (#x6e5 . ?Е)
1499            (#x6e6 . ?Ф)
1500            (#x6e7 . ?Г)
1501            (#x6e8 . ?Х)
1502            (#x6e9 . ?И)
1503            (#x6ea . ?Й)
1504            (#x6eb . ?К)
1505            (#x6ec . ?Л)
1506            (#x6ed . ?М)
1507            (#x6ee . ?Н)
1508            (#x6ef . ?О)
1509            (#x6f0 . ?П)
1510            (#x6f1 . ?Я)
1511            (#x6f2 . ?Р)
1512            (#x6f3 . ?С)
1513            (#x6f4 . ?Т)
1514            (#x6f5 . ?У)
1515            (#x6f6 . ?Ж)
1516            (#x6f7 . ?В)
1517            (#x6f8 . ?Ь)
1518            (#x6f9 . ?Ы)
1519            (#x6fa . ?З)
1520            (#x6fb . ?Ш)
1521            (#x6fc . ?Э)
1522            (#x6fd . ?Щ)
1523            (#x6fe . ?Ч)
1524            (#x6ff . ?Ъ)
1525            (#x7a1 . ?Ά)
1526            (#x7a2 . ?Έ)
1527            (#x7a3 . ?Ή)
1528            (#x7a4 . ?Ί)
1529            (#x7a5 . ?Ϊ)
1530            (#x7a7 . ?Ό)
1531            (#x7a8 . ?Ύ)
1532            (#x7a9 . ?Ϋ)
1533            (#x7ab . ?Ώ)
1534            (#x7ae . ?΅)
1535            (#x7af . ?―)
1536            (#x7b1 . ?ά)
1537            (#x7b2 . ?έ)
1538            (#x7b3 . ?ή)
1539            (#x7b4 . ?ί)
1540            (#x7b5 . ?ϊ)
1541            (#x7b6 . ?ΐ)
1542            (#x7b7 . ?ό)
1543            (#x7b8 . ?ύ)
1544            (#x7b9 . ?ϋ)
1545            (#x7ba . ?ΰ)
1546            (#x7bb . ?ώ)
1547            (#x7c1 . ?Α)
1548            (#x7c2 . ?Β)
1549            (#x7c3 . ?Γ)
1550            (#x7c4 . ?Δ)
1551            (#x7c5 . ?Ε)
1552            (#x7c6 . ?Ζ)
1553            (#x7c7 . ?Η)
1554            (#x7c8 . ?Θ)
1555            (#x7c9 . ?Ι)
1556            (#x7ca . ?Κ)
1557            (#x7cb . ?Λ)
1558            (#x7cc . ?Μ)
1559            (#x7cd . ?Ν)
1560            (#x7ce . ?Ξ)
1561            (#x7cf . ?Ο)
1562            (#x7d0 . ?Π)
1563            (#x7d1 . ?Ρ)
1564            (#x7d2 . ?Σ)
1565            (#x7d4 . ?Τ)
1566            (#x7d5 . ?Υ)
1567            (#x7d6 . ?Φ)
1568            (#x7d7 . ?Χ)
1569            (#x7d8 . ?Ψ)
1570            (#x7d9 . ?Ω)
1571            (#x7e1 . ?α)
1572            (#x7e2 . ?β)
1573            (#x7e3 . ?γ)
1574            (#x7e4 . ?δ)
1575            (#x7e5 . ?ε)
1576            (#x7e6 . ?ζ)
1577            (#x7e7 . ?η)
1578            (#x7e8 . ?θ)
1579            (#x7e9 . ?ι)
1580            (#x7ea . ?κ)
1581            (#x7eb . ?λ)
1582            (#x7ec . ?μ)
1583            (#x7ed . ?ν)
1584            (#x7ee . ?ξ)
1585            (#x7ef . ?ο)
1586            (#x7f0 . ?π)
1587            (#x7f1 . ?ρ)
1588            (#x7f2 . ?σ)
1589            (#x7f3 . ?ς)
1590            (#x7f4 . ?τ)
1591            (#x7f5 . ?υ)
1592            (#x7f6 . ?φ)
1593            (#x7f7 . ?χ)
1594            (#x7f8 . ?ψ)
1595            (#x7f9 . ?ω)
1596            (#x8a1 . ?⎷)
1597            (#x8a2 . ?┌)
1598            (#x8a3 . ?─)
1599            (#x8a4 . ?⌠)
1600            (#x8a5 . ?⌡)
1601            (#x8a6 . ?│)
1602            (#x8a7 . ?⎡)
1603            (#x8a8 . ?⎣)
1604            (#x8a9 . ?⎤)
1605            (#x8aa . ?⎦)
1606            (#x8ab . ?⎛)
1607            (#x8ac . ?⎝)
1608            (#x8ad . ?⎞)
1609            (#x8ae . ?⎠)
1610            (#x8af . ?⎨)
1611            (#x8b0 . ?⎬)
1612            (#x8bc . ?≤)
1613            (#x8bd . ?≠)
1614            (#x8be . ?≥)
1615            (#x8bf . ?∫)
1616            (#x8c0 . ?∴)
1617            (#x8c1 . ?∝)
1618            (#x8c2 . ?∞)
1619            (#x8c5 . ?∇)
1620            (#x8c8 . ?∼)
1621            (#x8c9 . ?≃)
1622            (#x8cd . ?⇔)
1623            (#x8ce . ?⇒)
1624            (#x8cf . ?≡)
1625            (#x8d6 . ?√)
1626            (#x8da . ?⊂)
1627            (#x8db . ?⊃)
1628            (#x8dc . ?∩)
1629            (#x8dd . ?∪)
1630            (#x8de . ?∧)
1631            (#x8df . ?∨)
1632            (#x8ef . ?∂)
1633            (#x8f6 . ?ƒ)
1634            (#x8fb . ?←)
1635            (#x8fc . ?↑)
1636            (#x8fd . ?→)
1637            (#x8fe . ?↓)
1638            (#x9e0 . ?◆)
1639            (#x9e1 . ?▒)
1640            (#x9e2 . ?␉)
1641            (#x9e3 . ?␌)
1642            (#x9e4 . ?␍)
1643            (#x9e5 . ?␊)
1644            (#x9e8 . ?␤)
1645            (#x9e9 . ?␋)
1646            (#x9ea . ?┘)
1647            (#x9eb . ?┐)
1648            (#x9ec . ?┌)
1649            (#x9ed . ?└)
1650            (#x9ee . ?┼)
1651            (#x9ef . ?⎺)
1652            (#x9f0 . ?⎻)
1653            (#x9f1 . ?─)
1654            (#x9f2 . ?⎼)
1655            (#x9f3 . ?⎽)
1656            (#x9f4 . ?├)
1657            (#x9f5 . ?┤)
1658            (#x9f6 . ?┴)
1659            (#x9f7 . ?┬)
1660            (#x9f8 . ?│)
1661            (#xaa1 . ? )
1662            (#xaa2 . ? )
1663            (#xaa3 . ? )
1664            (#xaa4 . ? )
1665            (#xaa5 . ? )
1666            (#xaa6 . ? )
1667            (#xaa7 . ? )
1668            (#xaa8 . ? )
1669            (#xaa9 . ?—)
1670            (#xaaa . ?–)
1671            (#xaae . ?…)
1672            (#xaaf . ?‥)
1673            (#xab0 . ?⅓)
1674            (#xab1 . ?⅔)
1675            (#xab2 . ?⅕)
1676            (#xab3 . ?⅖)
1677            (#xab4 . ?⅗)
1678            (#xab5 . ?⅘)
1679            (#xab6 . ?⅙)
1680            (#xab7 . ?⅚)
1681            (#xab8 . ?℅)
1682            (#xabb . ?‒)
1683            (#xabc . ?〈)
1684            (#xabe . ?〉)
1685            (#xac3 . ?⅛)
1686            (#xac4 . ?⅜)
1687            (#xac5 . ?⅝)
1688            (#xac6 . ?⅞)
1689            (#xac9 . ?™)
1690            (#xaca . ?☓)
1691            (#xacc . ?◁)
1692            (#xacd . ?▷)
1693            (#xace . ?○)
1694            (#xacf . ?▯)
1695            (#xad0 . ?‘)
1696            (#xad1 . ?’)
1697            (#xad2 . ?“)
1698            (#xad3 . ?”)
1699            (#xad4 . ?℞)
1700            (#xad6 . ?′)
1701            (#xad7 . ?″)
1702            (#xad9 . ?✝)
1703            (#xadb . ?▬)
1704            (#xadc . ?◀)
1705            (#xadd . ?▶)
1706            (#xade . ?●)
1707            (#xadf . ?▮)
1708            (#xae0 . ?◦)
1709            (#xae1 . ?▫)
1710            (#xae2 . ?▭)
1711            (#xae3 . ?△)
1712            (#xae4 . ?▽)
1713            (#xae5 . ?☆)
1714            (#xae6 . ?•)
1715            (#xae7 . ?▪)
1716            (#xae8 . ?▲)
1717            (#xae9 . ?▼)
1718            (#xaea . ?☜)
1719            (#xaeb . ?☞)
1720            (#xaec . ?♣)
1721            (#xaed . ?♦)
1722            (#xaee . ?♥)
1723            (#xaf0 . ?✠)
1724            (#xaf1 . ?†)
1725            (#xaf2 . ?‡)
1726            (#xaf3 . ?✓)
1727            (#xaf4 . ?✗)
1728            (#xaf5 . ?♯)
1729            (#xaf6 . ?♭)
1730            (#xaf7 . ?♂)
1731            (#xaf8 . ?♀)
1732            (#xaf9 . ?☎)
1733            (#xafa . ?⌕)
1734            (#xafb . ?℗)
1735            (#xafc . ?‸)
1736            (#xafd . ?‚)
1737            (#xafe . ?„)
1738            (#xba3 . ?<)
1739            (#xba6 . ?>)
1740            (#xba8 . ?∨)
1741            (#xba9 . ?∧)
1742            (#xbc0 . ?¯)
1743            (#xbc2 . ?⊥)
1744            (#xbc3 . ?∩)
1745            (#xbc4 . ?⌊)
1746            (#xbc6 . ?_)
1747            (#xbca . ?∘)
1748            (#xbcc . ?⎕)
1749            (#xbce . ?⊤)
1750            (#xbcf . ?○)
1751            (#xbd3 . ?⌈)
1752            (#xbd6 . ?∪)
1753            (#xbd8 . ?⊃)
1754            (#xbda . ?⊂)
1755            (#xbdc . ?⊢)
1756            (#xbfc . ?⊣)
1757            (#xcdf . ?‗)
1758            (#xce0 . ?א)
1759            (#xce1 . ?ב)
1760            (#xce2 . ?ג)
1761            (#xce3 . ?ד)
1762            (#xce4 . ?ה)
1763            (#xce5 . ?ו)
1764            (#xce6 . ?ז)
1765            (#xce7 . ?ח)
1766            (#xce8 . ?ט)
1767            (#xce9 . ?י)
1768            (#xcea . ?ך)
1769            (#xceb . ?כ)
1770            (#xcec . ?ל)
1771            (#xced . ?ם)
1772            (#xcee . ?מ)
1773            (#xcef . ?ן)
1774            (#xcf0 . ?נ)
1775            (#xcf1 . ?ס)
1776            (#xcf2 . ?ע)
1777            (#xcf3 . ?ף)
1778            (#xcf4 . ?פ)
1779            (#xcf5 . ?ץ)
1780            (#xcf6 . ?צ)
1781            (#xcf7 . ?ק)
1782            (#xcf8 . ?ר)
1783            (#xcf9 . ?ש)
1784            (#xcfa . ?ת)
1785            (#xda1 . ?ก)
1786            (#xda2 . ?ข)
1787            (#xda3 . ?ฃ)
1788            (#xda4 . ?ค)
1789            (#xda5 . ?ฅ)
1790            (#xda6 . ?ฆ)
1791            (#xda7 . ?ง)
1792            (#xda8 . ?จ)
1793            (#xda9 . ?ฉ)
1794            (#xdaa . ?ช)
1795            (#xdab . ?ซ)
1796            (#xdac . ?ฌ)
1797            (#xdad . ?ญ)
1798            (#xdae . ?ฎ)
1799            (#xdaf . ?ฏ)
1800            (#xdb0 . ?ฐ)
1801            (#xdb1 . ?ฑ)
1802            (#xdb2 . ?ฒ)
1803            (#xdb3 . ?ณ)
1804            (#xdb4 . ?ด)
1805            (#xdb5 . ?ต)
1806            (#xdb6 . ?ถ)
1807            (#xdb7 . ?ท)
1808            (#xdb8 . ?ธ)
1809            (#xdb9 . ?น)
1810            (#xdba . ?บ)
1811            (#xdbb . ?ป)
1812            (#xdbc . ?ผ)
1813            (#xdbd . ?ฝ)
1814            (#xdbe . ?พ)
1815            (#xdbf . ?ฟ)
1816            (#xdc0 . ?ภ)
1817            (#xdc1 . ?ม)
1818            (#xdc2 . ?ย)
1819            (#xdc3 . ?ร)
1820            (#xdc4 . ?ฤ)
1821            (#xdc5 . ?ล)
1822            (#xdc6 . ?ฦ)
1823            (#xdc7 . ?ว)
1824            (#xdc8 . ?ศ)
1825            (#xdc9 . ?ษ)
1826            (#xdca . ?ส)
1827            (#xdcb . ?ห)
1828            (#xdcc . ?ฬ)
1829            (#xdcd . ?อ)
1830            (#xdce . ?ฮ)
1831            (#xdcf . ?ฯ)
1832            (#xdd0 . ?ะ)
1833            (#xdd1 . ?ั)
1834            (#xdd2 . ?า)
1835            (#xdd3 . ?ำ)
1836            (#xdd4 . ?ิ)
1837            (#xdd5 . ?ี)
1838            (#xdd6 . ?ึ)
1839            (#xdd7 . ?ื)
1840            (#xdd8 . ?ุ)
1841            (#xdd9 . ?ู)
1842            (#xdda . ?ฺ)
1843            (#xddf . ?฿)
1844            (#xde0 . ?เ)
1845            (#xde1 . ?แ)
1846            (#xde2 . ?โ)
1847            (#xde3 . ?ใ)
1848            (#xde4 . ?ไ)
1849            (#xde5 . ?ๅ)
1850            (#xde6 . ?ๆ)
1851            (#xde7 . ?็)
1852            (#xde8 . ?่)
1853            (#xde9 . ?้)
1854            (#xdea . ?๊)
1855            (#xdeb . ?๋)
1856            (#xdec . ?์)
1857            (#xded . ?ํ)
1858            (#xdf0 . ?๐)
1859            (#xdf1 . ?๑)
1860            (#xdf2 . ?๒)
1861            (#xdf3 . ?๓)
1862            (#xdf4 . ?๔)
1863            (#xdf5 . ?๕)
1864            (#xdf6 . ?๖)
1865            (#xdf7 . ?๗)
1866            (#xdf8 . ?๘)
1867            (#xdf9 . ?๙)
1868            (#xea1 . ?ㄱ)
1869            (#xea2 . ?ㄲ)
1870            (#xea3 . ?ㄳ)
1871            (#xea4 . ?ㄴ)
1872            (#xea5 . ?ㄵ)
1873            (#xea6 . ?ㄶ)
1874            (#xea7 . ?ㄷ)
1875            (#xea8 . ?ㄸ)
1876            (#xea9 . ?ㄹ)
1877            (#xeaa . ?ㄺ)
1878            (#xeab . ?ㄻ)
1879            (#xeac . ?ㄼ)
1880            (#xead . ?ㄽ)
1881            (#xeae . ?ㄾ)
1882            (#xeaf . ?ㄿ)
1883            (#xeb0 . ?ㅀ)
1884            (#xeb1 . ?ㅁ)
1885            (#xeb2 . ?ㅂ)
1886            (#xeb3 . ?ㅃ)
1887            (#xeb4 . ?ㅄ)
1888            (#xeb5 . ?ㅅ)
1889            (#xeb6 . ?ㅆ)
1890            (#xeb7 . ?ㅇ)
1891            (#xeb8 . ?ㅈ)
1892            (#xeb9 . ?ㅉ)
1893            (#xeba . ?ㅊ)
1894            (#xebb . ?ㅋ)
1895            (#xebc . ?ㅌ)
1896            (#xebd . ?ㅍ)
1897            (#xebe . ?ㅎ)
1898            (#xebf . ?ㅏ)
1899            (#xec0 . ?ㅐ)
1900            (#xec1 . ?ㅑ)
1901            (#xec2 . ?ㅒ)
1902            (#xec3 . ?ㅓ)
1903            (#xec4 . ?ㅔ)
1904            (#xec5 . ?ㅕ)
1905            (#xec6 . ?ㅖ)
1906            (#xec7 . ?ㅗ)
1907            (#xec8 . ?ㅘ)
1908            (#xec9 . ?ㅙ)
1909            (#xeca . ?ㅚ)
1910            (#xecb . ?ㅛ)
1911            (#xecc . ?ㅜ)
1912            (#xecd . ?ㅝ)
1913            (#xece . ?ㅞ)
1914            (#xecf . ?ㅟ)
1915            (#xed0 . ?ㅠ)
1916            (#xed1 . ?ㅡ)
1917            (#xed2 . ?ㅢ)
1918            (#xed3 . ?ㅣ)
1919            (#xed4 . ?ᆨ)
1920            (#xed5 . ?ᆩ)
1921            (#xed6 . ?ᆪ)
1922            (#xed7 . ?ᆫ)
1923            (#xed8 . ?ᆬ)
1924            (#xed9 . ?ᆭ)
1925            (#xeda . ?ᆮ)
1926            (#xedb . ?ᆯ)
1927            (#xedc . ?ᆰ)
1928            (#xedd . ?ᆱ)
1929            (#xede . ?ᆲ)
1930            (#xedf . ?ᆳ)
1931            (#xee0 . ?ᆴ)
1932            (#xee1 . ?ᆵ)
1933            (#xee2 . ?ᆶ)
1934            (#xee3 . ?ᆷ)
1935            (#xee4 . ?ᆸ)
1936            (#xee5 . ?ᆹ)
1937            (#xee6 . ?ᆺ)
1938            (#xee7 . ?ᆻ)
1939            (#xee8 . ?ᆼ)
1940            (#xee9 . ?ᆽ)
1941            (#xeea . ?ᆾ)
1942            (#xeeb . ?ᆿ)
1943            (#xeec . ?ᇀ)
1944            (#xeed . ?ᇁ)
1945            (#xeee . ?ᇂ)
1946            (#xeef . ?ㅭ)
1947            (#xef0 . ?ㅱ)
1948            (#xef1 . ?ㅸ)
1949            (#xef2 . ?ㅿ)
1950            (#xef3 . ?ㆁ)
1951            (#xef4 . ?ㆄ)
1952            (#xef5 . ?ㆆ)
1953            (#xef6 . ?ㆍ)
1954            (#xef7 . ?ㆎ)
1955            (#xef8 . ?ᇫ)
1956            (#xef9 . ?ᇰ)
1957            (#xefa . ?ᇹ)
1958            (#xeff . ?₩)
1959            (#x13bc . ?Œ)
1960            (#x13bd . ?œ)
1961            (#x13be . ?Ÿ)
1962            (#x20a0 . ?₠)
1963            (#x20a1 . ?₡)
1964            (#x20a2 . ?₢)
1965            (#x20a3 . ?₣)
1966            (#x20a4 . ?₤)
1967            (#x20a5 . ?₥)
1968            (#x20a6 . ?₦)
1969            (#x20a7 . ?₧)
1970            (#x20a8 . ?₨)
1971            (#x20aa . ?₪)
1972            (#x20ab . ?₫)
1973            (#x20ac . ?€)))
1974      (puthash (car pair) (cdr pair) x-keysym-table))
1975    
1976    ;; The following keysym codes for graphics are listed in the document
1977    ;; as not having unicodes available:
1978    
1979    ;; #x08b1       TOP LEFT SUMMATION      Technical
1980    ;; #x08b2       BOTTOM LEFT SUMMATION   Technical
1981    ;; #x08b3       TOP VERTICAL SUMMATION CONNECTOR        Technical
1982    ;; #x08b4       BOTTOM VERTICAL SUMMATION CONNECTOR     Technical
1983    ;; #x08b5       TOP RIGHT SUMMATION     Technical
1984    ;; #x08b6       BOTTOM RIGHT SUMMATION  Technical
1985    ;; #x08b7       RIGHT MIDDLE SUMMATION  Technical
1986    ;; #x0aac       SIGNIFICANT BLANK SYMBOL        Publish
1987    ;; #x0abd       DECIMAL POINT   Publish
1988    ;; #x0abf       MARKER  Publish
1989    ;; #x0acb       TRADEMARK SIGN IN CIRCLE        Publish
1990    ;; #x0ada       HEXAGRAM        Publish
1991    ;; #x0aff       CURSOR  Publish
1992    ;; #x0dde       THAI MAIHANAKAT Thai
1993    
1994    
1995  ;;;; Selections and cut buffers  ;;;; Selections and cut buffers
1996    
1997  ;;; We keep track of the last text selected here, so we can check the  ;;; We keep track of the last text selected here, so we can check the
# Line 1286  This is in addition to, but in preferenc Line 2085  This is in addition to, but in preferenc
2085        (while (setq i (string-match "[.*]" x-resource-name))        (while (setq i (string-match "[.*]" x-resource-name))
2086          (aset x-resource-name i ?-))))          (aset x-resource-name i ?-))))
2087    
2088  ;; For the benefit of older Emacses (19.27 and earlier) that are sharing  (x-open-connection (or x-display-name
2089  ;; the same lisp directory, don't pass the third argument unless we seem                         (setq x-display-name (getenv "DISPLAY")))
2090  ;; to have the multi-display support.                     x-command-line-resources
2091  (if (fboundp 'x-close-connection)                     ;; Exit Emacs with fatal error if this fails.
2092      (x-open-connection (or x-display-name                     t)
                            (setq x-display-name (getenv "DISPLAY")))  
                        x-command-line-resources  
                        ;; Exit Emacs with fatal error if this fails.  
                        t)  
   (x-open-connection (or x-display-name  
                          (setq x-display-name (getenv "DISPLAY")))  
                      x-command-line-resources))  
2093    
2094  (setq frame-creation-function 'x-create-frame-with-faces)  (setq frame-creation-function 'x-create-frame-with-faces)
2095    
2096  (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)  (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
2097                              x-cut-buffer-max))                              x-cut-buffer-max))
2098    
2099  (if (fboundp 'new-fontset)  ;; Create the standard fontset.
2100      (progn  (create-fontset-from-fontset-spec standard-fontset-spec t)
2101        ;; Create the standard fontset.  
2102        (create-fontset-from-fontset-spec standard-fontset-spec t)  ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
2103    (create-fontset-from-x-resource)
2104        ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).  
2105        (create-fontset-from-x-resource)  ;; Try to create a fontset from a font specification which comes
2106    ;; from initial-frame-alist, default-frame-alist, or X resource.
2107        ;; Try to create a fontset from a font specification which comes  ;; A font specification in command line argument (i.e. -fn XXXX)
2108        ;; from initial-frame-alist, default-frame-alist, or X resource.  ;; should be already in default-frame-alist as a `font'
2109        ;; A font specification in command line argument (i.e. -fn XXXX)  ;; parameter.  However, any font specifications in site-start
2110        ;; should be already in default-frame-alist as a `font'  ;; library, user's init file (.emacs), and default.el are not
2111        ;; parameter.  However, any font specifications in site-start  ;; yet handled here.
2112        ;; library, user's init file (.emacs), and default.el are not  
2113        ;; yet handled here.  (let ((font (or (cdr (assq 'font initial-frame-alist))
2114                    (cdr (assq 'font default-frame-alist))
2115        (let ((font (or (cdr (assq 'font initial-frame-alist))                  (x-get-resource "font" "Font")))
2116                        (cdr (assq 'font default-frame-alist))        xlfd-fields resolved-name)
2117                        (x-get-resource "font" "Font")))    (if (and font
2118              xlfd-fields resolved-name)             (not (query-fontset font))
2119          (if (and font             (setq resolved-name (x-resolve-font-name font))
2120                   (not (query-fontset font))             (setq xlfd-fields (x-decompose-font-name font)))
2121                   (setq resolved-name (x-resolve-font-name font))        (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
2122                   (setq xlfd-fields (x-decompose-font-name font)))            (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
2123              (if (string= "fontset"          ;; Create a fontset from FONT.  The fontset name is
2124                           (aref xlfd-fields xlfd-regexp-registry-subnum))          ;; generated from FONT.
2125                  (new-fontset font (x-complement-fontset-spec xlfd-fields nil))          (create-fontset-from-ascii-font font resolved-name "startup"))))
               ;; Create a fontset from FONT.  The fontset name is  
               ;; generated from FONT.  
               (create-fontset-from-ascii-font font  
                                               resolved-name "startup"))))))  
2126    
2127  ;; Sun expects the menu bar cut and paste commands to use the clipboard.  ;; Sun expects the menu bar cut and paste commands to use the clipboard.
2128  ;; This has ,? to match both on Sunos and on Solaris.  ;; This has ,? to match both on Sunos and on Solaris.

Legend:
Removed from v.1.150  
changed lines
  Added in v.1.150.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26