WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/term
Viewing File: /usr/share/emacs/24.3/lisp/term/x-win.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 13:00:14 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term/x-win.el
;;; in Emacs version 24.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\204\f\302\303\304 \"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\305\314!\210\305\315!\207" [fboundp x-create-frame error "%s: Loading x-win.el but not compiled for X" invocation-name require frame mouse scroll-bar faces select menu-bar fontset x-dnd] 3)
(defalias 'x-handle-no-bitmap-icon #[(switch) "\301B\211\207" [default-frame-alist (icon-type)] 2])
(defalias 'x-handle-parent-id #[(switch) ":\204\f\303\304\305 	#\210\306\307@!B\nBA\211\207" [x-invocation-args switch initial-frame-alist error "%s: missing argument to `%s' option" invocation-name parent-id string-to-number] 4])
(defalias 'x-handle-smid #[(switch) ":\204\f\303\304\305 	#\210@A\211\207" [x-invocation-args switch x-session-previous-id error "%s: missing argument to `%s' option" invocation-name] 4])
#@233 Special hook run when a save-session event occurs.
The functions do not get any argument.
Functions can return non-nil to inform the session manager that the
window system shutdown should be aborted.

See also `emacs-session-save'.
(defvar emacs-save-session-functions nil (#$ . 1401))
#@171 Construct a filename to save the session in based on SESSION-ID.
If the directory ~/.emacs.d exists, we make a filename in there, otherwise
a file in the home directory.
(defalias 'emacs-session-filename #[(session-id) "\304P	\305\306\n!\203\nP\202\307P!*\207" [session-id user-emacs-directory emacs-dir basename "session." expand-file-name file-directory-p "~/.emacs-"] 3 (#$ . 1694)])
#@805 This function is called when the window system is shutting down.
If this function returns non-nil, the window system shutdown is canceled.

When a session manager tells Emacs that the window system is shutting
down, this function is called.  It calls the functions in the hook
`emacs-save-session-functions'.  Functions are called with the current
buffer set to a temporary buffer.  Functions should use `insert' to insert
lisp code to save the session state.  The buffer is saved in a file in the
home directory of the user running Emacs.  The file is evaluated when
Emacs is restarted by the session manager.

If any of the functions returns non-nil, no more functions are called
and this function returns non-nil.  This will inform the session manager
that it should abort the window system shutdown.
(defalias 'emacs-session-save #[nil "\304!\305\306P!\307\n!\203\310\n!\210r	q\210\311\312\313\217\211\204%\314\n!\210\315	!\210,\207" [x-session-id buf filename cancel-shutdown emacs-session-filename get-buffer-create " *SES " file-exists-p delete-file nil (byte-code "\300\301!\207" [run-hook-with-args-until-success emacs-save-session-functions] 2) ((error t)) write-file kill-buffer] 5 (#$ . 2097)])
#@138 Restore the Emacs session if started by a session manager.
The file saved by `emacs-session-save' is evaluated and deleted if it
exists.
(defalias 'emacs-session-restore #[(previous-session-id) "\302!\303	!\205\304	!\210\305	!\210\306\307!)\207" [previous-session-id filename emacs-session-filename file-exists-p load-file delete-file message "Restored session data"] 2 (#$ . 3320)])
(defconst x-pointer-X-cursor 0)
(defconst x-pointer-arrow 2)
(defconst x-pointer-based-arrow-down 4)
(defconst x-pointer-based-arrow-up 6)
(defconst x-pointer-boat 8)
(defconst x-pointer-bogosity 10)
(defconst x-pointer-bottom-left-corner 12)
(defconst x-pointer-bottom-right-corner 14)
(defconst x-pointer-bottom-side 16)
(defconst x-pointer-bottom-tee 18)
(defconst x-pointer-box-spiral 20)
(defconst x-pointer-center-ptr 22)
(defconst x-pointer-circle 24)
(defconst x-pointer-clock 26)
(defconst x-pointer-coffee-mug 28)
(defconst x-pointer-cross 30)
(defconst x-pointer-cross-reverse 32)
(defconst x-pointer-crosshair 34)
(defconst x-pointer-diamond-cross 36)
(defconst x-pointer-dot 38)
(defconst x-pointer-dotbox 40)
(defconst x-pointer-double-arrow 42)
(defconst x-pointer-draft-large 44)
(defconst x-pointer-draft-small 46)
(defconst x-pointer-draped-box 48)
(defconst x-pointer-exchange 50)
(defconst x-pointer-fleur 52)
(defconst x-pointer-gobbler 54)
(defconst x-pointer-gumby 56)
(defconst x-pointer-hand1 58)
(defconst x-pointer-hand2 60)
(defconst x-pointer-heart 62)
(defconst x-pointer-icon 64)
(defconst x-pointer-iron-cross 66)
(defconst x-pointer-left-ptr 68)
(defconst x-pointer-left-side 70)
(defconst x-pointer-left-tee 72)
(defconst x-pointer-leftbutton 74)
(defconst x-pointer-ll-angle 76)
(defconst x-pointer-lr-angle 78)
(defconst x-pointer-man 80)
(defconst x-pointer-middlebutton 82)
(defconst x-pointer-mouse 84)
(defconst x-pointer-pencil 86)
(defconst x-pointer-pirate 88)
(defconst x-pointer-plus 90)
(defconst x-pointer-question-arrow 92)
(defconst x-pointer-right-ptr 94)
(defconst x-pointer-right-side 96)
(defconst x-pointer-right-tee 98)
(defconst x-pointer-rightbutton 100)
(defconst x-pointer-rtl-logo 102)
(defconst x-pointer-sailboat 104)
(defconst x-pointer-sb-down-arrow 106)
(defconst x-pointer-sb-h-double-arrow 108)
(defconst x-pointer-sb-left-arrow 110)
(defconst x-pointer-sb-right-arrow 112)
(defconst x-pointer-sb-up-arrow 114)
(defconst x-pointer-sb-v-double-arrow 116)
(defconst x-pointer-shuttle 118)
(defconst x-pointer-sizing 120)
(defconst x-pointer-spider 122)
(defconst x-pointer-spraycan 124)
(defconst x-pointer-star 126)
(defconst x-pointer-target 128)
(defconst x-pointer-tcross 130)
(defconst x-pointer-top-left-arrow 132)
(defconst x-pointer-top-left-corner 134)
(defconst x-pointer-top-right-corner 136)
(defconst x-pointer-top-side 138)
(defconst x-pointer-top-tee 140)
(defconst x-pointer-trek 142)
(defconst x-pointer-ul-angle 144)
(defconst x-pointer-umbrella 146)
(defconst x-pointer-ur-angle 148)
(defconst x-pointer-watch 150)
(defconst x-pointer-xterm 152)
(defconst x-pointer-invisible 255)
#@163 Return the appropriate value of `system-key-alist' for VENDOR.
VENDOR is a string containing the name of the X Server's vendor,
as returned by `x-server-vendor'.
(defalias 'vendor-specific-keysyms #[(vendor) "\301\230\204\f\302\230\203\303\207\304\230\204\305\230\203\306\207\307\207" [vendor "Hewlett-Packard Incorporated" "Hewlett-Packard Company" ((168 . mute-acute) (169 . mute-grave) (170 . mute-asciicircum) (171 . mute-diaeresis) (172 . mute-asciitilde) (175 . lira) (190 . guilder) (252 . block) (256 . longminus) (65388 . reset) (65389 . system) (65390 . user) (65391 . clearline) (65392 . insertline) (65393 . deleteline) (65394 . insertchar) (65395 . deletechar) (65396 . backtab) (65397 . kp-backtab)) "X11/NeWS - Sun Microsystems Inc." "X Consortium" ((392976 . f36) (392977 . f37) (393056 . req) (393072 . props) (393073 . front) (393074 . copy) (393075 . open) (393076 . paste) (393077 . cut)) ((65280 . remove))] 2 (#$ . 6380)])
(byte-code "\304\211\305W\203\306\211	#\210T\211\202)\307\310\211\2030@\306\n@\nA	#\210A\211\204*\310\207" [i x-keysym-table pair --dolist-tail-- 160 256 puthash ((417 . 260) (418 . 728) (419 . 321) (421 . 317) (422 . 346) (425 . 352) (426 . 350) (427 . 356) (428 . 377) (430 . 381) (431 . 379) (433 . 261) (434 . 731) (435 . 322) (437 . 318) (438 . 347) (439 . 711) (441 . 353) (442 . 351) (443 . 357) (444 . 378) (445 . 733) (446 . 382) (447 . 380) (448 . 340) (451 . 258) (453 . 313) (454 . 262) (456 . 268) (458 . 280) (460 . 282) (463 . 270) (464 . 272) (465 . 323) (466 . 327) (469 . 336) (472 . 344) (473 . 366) (475 . 368) (478 . 354) (480 . 341) (483 . 259) (485 . 314) (486 . 263) (488 . 269) (490 . 281) (492 . 283) (495 . 271) (496 . 273) (497 . 324) (498 . 328) (501 . 337) (504 . 345) (505 . 367) (507 . 369) (510 . 355) (511 . 729) (673 . 294) (678 . 292) (681 . 304) (683 . 286) (684 . 308) (689 . 295) (694 . 293) (697 . 305) (699 . 287) (700 . 309) (709 . 266) (710 . 264) (725 . 288) (728 . 284) (733 . 364) (734 . 348) (741 . 267) (742 . 265) (757 . 289) (760 . 285) (765 . 365) (766 . 349) (930 . 312) (931 . 342) (933 . 296) (934 . 315) (938 . 274) (939 . 290) (940 . 358) (947 . 343) (949 . 297) (950 . 316) (954 . 275) (955 . 291) (956 . 359) (957 . 330) (959 . 331) (960 . 256) (967 . 302) (972 . 278) (975 . 298) (977 . 325) (978 . 332) (979 . 310) (985 . 370) (989 . 360) (990 . 362) (992 . 257) (999 . 303) (1004 . 279) (1007 . 299) (1009 . 326) (1010 . 333) (1011 . 311) (1017 . 371) (1021 . 361) (1022 . 363) (1150 . 8254) (1185 . 12290) (1186 . 12300) (1187 . 12301) (1188 . 12289) (1189 . 12539) (1190 . 12530) (1191 . 12449) (1192 . 12451) (1193 . 12453) (1194 . 12455) (1195 . 12457) (1196 . 12515) (1197 . 12517) (1198 . 12519) (1199 . 12483) (1200 . 12540) (1201 . 12450) (1202 . 12452) (1203 . 12454) (1204 . 12456) (1205 . 12458) (1206 . 12459) (1207 . 12461) (1208 . 12463) (1209 . 12465) (1210 . 12467) (1211 . 12469) (1212 . 12471) (1213 . 12473) (1214 . 12475) (1215 . 12477) (1216 . 12479) (1217 . 12481) (1218 . 12484) (1219 . 12486) (1220 . 12488) (1221 . 12490) (1222 . 12491) (1223 . 12492) (1224 . 12493) (1225 . 12494) (1226 . 12495) (1227 . 12498) (1228 . 12501) (1229 . 12504) (1230 . 12507) (1231 . 12510) (1232 . 12511) (1233 . 12512) (1234 . 12513) (1235 . 12514) (1236 . 12516) (1237 . 12518) (1238 . 12520) (1239 . 12521) (1240 . 12522) (1241 . 12523) (1242 . 12524) (1243 . 12525) (1244 . 12527) (1245 . 12531) (1246 . 12443) (1247 . 12444) (1452 . 1548) (1467 . 1563) (1471 . 1567) (1473 . 1569) (1474 . 1570) (1475 . 1571) (1476 . 1572) (1477 . 1573) (1478 . 1574) (1479 . 1575) (1480 . 1576) (1481 . 1577) (1482 . 1578) (1483 . 1579) (1484 . 1580) (1485 . 1581) (1486 . 1582) (1487 . 1583) (1488 . 1584) (1489 . 1585) (1490 . 1586) (1491 . 1587) (1492 . 1588) (1493 . 1589) (1494 . 1590) (1495 . 1591) (1496 . 1592) (1497 . 1593) (1498 . 1594) (1504 . 1600) (1505 . 1601) (1506 . 1602) (1507 . 1603) (1508 . 1604) (1509 . 1605) (1510 . 1606) (1511 . 1607) (1512 . 1608) (1513 . 1609) (1514 . 1610) (1515 . 1611) (1516 . 1612) (1517 . 1613) (1518 . 1614) (1519 . 1615) (1520 . 1616) (1521 . 1617) (1522 . 1618) (1664 . 1170) (1665 . 1174) (1666 . 1178) (1667 . 1180) (1668 . 1186) (1669 . 1198) (1670 . 1200) (1671 . 1202) (1672 . 1206) (1673 . 1208) (1674 . 1210) (1676 . 1240) (1677 . 1250) (1678 . 1256) (1679 . 1262) (1680 . 1171) (1681 . 1175) (1682 . 1179) (1683 . 1181) (1684 . 1187) (1685 . 1199) (1686 . 1201) (1687 . 1203) (1688 . 1207) (1689 . 1209) (1690 . 1211) (1692 . 1241) (1693 . 1251) (1694 . 1257) (1695 . 1263) (1697 . 1106) (1698 . 1107) (1699 . 1105) (1700 . 1108) (1701 . 1109) (1702 . 1110) (1703 . 1111) (1704 . 1112) (1705 . 1113) (1706 . 1114) (1707 . 1115) (1708 . 1116) (1710 . 1118) (1711 . 1119) (1712 . 8470) (1713 . 1026) (1714 . 1027) (1715 . 1025) (1716 . 1028) (1717 . 1029) (1718 . 1030) (1719 . 1031) (1720 . 1032) (1721 . 1033) (1722 . 1034) (1723 . 1035) (1724 . 1036) (1726 . 1038) (1727 . 1039) (1728 . 1102) (1729 . 1072) (1730 . 1073) (1731 . 1094) (1732 . 1076) (1733 . 1077) (1734 . 1092) (1735 . 1075) (1736 . 1093) (1737 . 1080) (1738 . 1081) (1739 . 1082) (1740 . 1083) (1741 . 1084) (1742 . 1085) (1743 . 1086) (1744 . 1087) (1745 . 1103) (1746 . 1088) (1747 . 1089) (1748 . 1090) (1749 . 1091) (1750 . 1078) (1751 . 1074) (1752 . 1100) (1753 . 1099) (1754 . 1079) (1755 . 1096) (1756 . 1101) (1757 . 1097) (1758 . 1095) (1759 . 1098) (1760 . 1070) (1761 . 1040) (1762 . 1041) (1763 . 1062) (1764 . 1044) (1765 . 1045) (1766 . 1060) (1767 . 1043) (1768 . 1061) (1769 . 1048) (1770 . 1049) (1771 . 1050) (1772 . 1051) (1773 . 1052) (1774 . 1053) (1775 . 1054) (1776 . 1055) (1777 . 1071) (1778 . 1056) (1779 . 1057) (1780 . 1058) (1781 . 1059) (1782 . 1046) (1783 . 1042) (1784 . 1068) (1785 . 1067) (1786 . 1047) (1787 . 1064) (1788 . 1069) (1789 . 1065) (1790 . 1063) (1791 . 1066) (1953 . 902) (1954 . 904) (1955 . 905) (1956 . 906) (1957 . 938) (1959 . 908) (1960 . 910) (1961 . 939) (1963 . 911) (1966 . 901) (1967 . 8213) (1969 . 940) (1970 . 941) (1971 . 942) (1972 . 943) (1973 . 970) (1974 . 912) (1975 . 972) (1976 . 973) (1977 . 971) (1978 . 944) (1979 . 974) (1985 . 913) (1986 . 914) (1987 . 915) (1988 . 916) (1989 . 917) (1990 . 918) (1991 . 919) (1992 . 920) (1993 . 921) (1994 . 922) (1995 . 923) (1996 . 924) (1997 . 925) (1998 . 926) (1999 . 927) (2000 . 928) (2001 . 929) (2002 . 931) (2004 . 932) (2005 . 933) (2006 . 934) (2007 . 935) (2008 . 936) (2009 . 937) (2017 . 945) (2018 . 946) (2019 . 947) (2020 . 948) (2021 . 949) (2022 . 950) (2023 . 951) (2024 . 952) (2025 . 953) (2026 . 954) (2027 . 955) (2028 . 956) (2029 . 957) (2030 . 958) (2031 . 959) (2032 . 960) (2033 . 961) (2034 . 963) (2035 . 962) (2036 . 964) (2037 . 965) (2038 . 966) (2039 . 967) (2040 . 968) (2041 . 969) (2209 . 9143) (2210 . 9484) (2211 . 9472) (2212 . 8992) (2213 . 8993) (2214 . 9474) (2215 . 9121) (2216 . 9123) (2217 . 9124) (2218 . 9126) (2219 . 9115) (2220 . 9117) (2221 . 9118) (2222 . 9120) (2223 . 9128) (2224 . 9132) (2236 . 8804) (2237 . 8800) (2238 . 8805) (2239 . 8747) (2240 . 8756) (2241 . 8733) (2242 . 8734) (2245 . 8711) (2248 . 8764) (2249 . 8771) (2253 . 8660) (2254 . 8658) (2255 . 8801) (2262 . 8730) (2266 . 8834) (2267 . 8835) (2268 . 8745) (2269 . 8746) (2270 . 8743) (2271 . 8744) (2287 . 8706) (2294 . 402) (2299 . 8592) (2300 . 8593) (2301 . 8594) (2302 . 8595) (2528 . 9670) (2529 . 9618) (2530 . 9225) (2531 . 9228) (2532 . 9229) (2533 . 9226) (2536 . 9252) (2537 . 9227) (2538 . 9496) (2539 . 9488) (2540 . 9484) (2541 . 9492) (2542 . 9532) (2543 . 9146) (2544 . 9147) (2545 . 9472) (2546 . 9148) (2547 . 9149) (2548 . 9500) (2549 . 9508) (2550 . 9524) (2551 . 9516) (2552 . 9474) (2721 . 8195) (2722 . 8194) (2723 . 8196) (2724 . 8197) (2725 . 8199) (2726 . 8200) (2727 . 8201) (2728 . 8202) (2729 . 8212) (2730 . 8211) (2734 . 8230) (2735 . 8229) (2736 . 8531) (2737 . 8532) (2738 . 8533) (2739 . 8534) (2740 . 8535) (2741 . 8536) (2742 . 8537) (2743 . 8538) (2744 . 8453) (2747 . 8210) (2748 . 9001) (2750 . 9002) (2755 . 8539) (2756 . 8540) (2757 . 8541) (2758 . 8542) (2761 . 8482) (2762 . 9747) (2764 . 9665) (2765 . 9655) (2766 . 9675) (2767 . 9647) (2768 . 8216) (2769 . 8217) (2770 . 8220) (2771 . 8221) (2772 . 8478) (2774 . 8242) (2775 . 8243) (2777 . 10013) (2779 . 9644) (2780 . 9664) (2781 . 9654) (2782 . 9679) (2783 . 9646) (2784 . 9702) (2785 . 9643) (2786 . 9645) (2787 . 9651) (2788 . 9661) (2789 . 9734) (2790 . 8226) (2791 . 9642) (2792 . 9650) (2793 . 9660) (2794 . 9756) (2795 . 9758) (2796 . 9827) (2797 . 9830) (2798 . 9829) (2800 . 10016) (2801 . 8224) (2802 . 8225) (2803 . 10003) (2804 . 10007) (2805 . 9839) (2806 . 9837) (2807 . 9794) (2808 . 9792) (2809 . 9742) (2810 . 8981) (2811 . 8471) (2812 . 8248) (2813 . 8218) (2814 . 8222) (2979 . 60) (2982 . 62) (2984 . 8744) (2985 . 8743) (3008 . 175) (3010 . 8869) (3011 . 8745) (3012 . 8970) (3014 . 95) (3018 . 8728) (3020 . 9109) (3022 . 8868) (3023 . 9675) (3027 . 8968) (3030 . 8746) (3032 . 8835) (3034 . 8834) (3036 . 8866) (3068 . 8867) (3295 . 8215) (3296 . 1488) (3297 . 1489) (3298 . 1490) (3299 . 1491) (3300 . 1492) (3301 . 1493) (3302 . 1494) (3303 . 1495) (3304 . 1496) (3305 . 1497) (3306 . 1498) (3307 . 1499) (3308 . 1500) (3309 . 1501) (3310 . 1502) (3311 . 1503) (3312 . 1504) (3313 . 1505) (3314 . 1506) (3315 . 1507) (3316 . 1508) (3317 . 1509) (3318 . 1510) (3319 . 1511) (3320 . 1512) (3321 . 1513) (3322 . 1514) (3489 . 3585) (3490 . 3586) (3491 . 3587) (3492 . 3588) (3493 . 3589) (3494 . 3590) (3495 . 3591) (3496 . 3592) (3497 . 3593) (3498 . 3594) (3499 . 3595) (3500 . 3596) (3501 . 3597) (3502 . 3598) (3503 . 3599) (3504 . 3600) (3505 . 3601) (3506 . 3602) (3507 . 3603) (3508 . 3604) (3509 . 3605) (3510 . 3606) (3511 . 3607) (3512 . 3608) (3513 . 3609) (3514 . 3610) (3515 . 3611) (3516 . 3612) (3517 . 3613) (3518 . 3614) (3519 . 3615) (3520 . 3616) (3521 . 3617) (3522 . 3618) (3523 . 3619) (3524 . 3620) (3525 . 3621) (3526 . 3622) (3527 . 3623) (3528 . 3624) (3529 . 3625) (3530 . 3626) (3531 . 3627) (3532 . 3628) (3533 . 3629) (3534 . 3630) (3535 . 3631) (3536 . 3632) (3537 . 3633) (3538 . 3634) (3539 . 3635) (3540 . 3636) (3541 . 3637) (3542 . 3638) (3543 . 3639) (3544 . 3640) (3545 . 3641) (3546 . 3642) (3551 . 3647) (3552 . 3648) (3553 . 3649) (3554 . 3650) (3555 . 3651) (3556 . 3652) (3557 . 3653) (3558 . 3654) (3559 . 3655) (3560 . 3656) (3561 . 3657) (3562 . 3658) (3563 . 3659) (3564 . 3660) (3565 . 3661) (3568 . 3664) (3569 . 3665) (3570 . 3666) (3571 . 3667) (3572 . 3668) (3573 . 3669) (3574 . 3670) (3575 . 3671) (3576 . 3672) (3577 . 3673) (3745 . 12593) (3746 . 12594) (3747 . 12595) (3748 . 12596) (3749 . 12597) (3750 . 12598) (3751 . 12599) (3752 . 12600) (3753 . 12601) (3754 . 12602) (3755 . 12603) (3756 . 12604) (3757 . 12605) (3758 . 12606) (3759 . 12607) (3760 . 12608) (3761 . 12609) (3762 . 12610) (3763 . 12611) (3764 . 12612) (3765 . 12613) (3766 . 12614) (3767 . 12615) (3768 . 12616) (3769 . 12617) (3770 . 12618) (3771 . 12619) (3772 . 12620) (3773 . 12621) (3774 . 12622) (3775 . 12623) (3776 . 12624) (3777 . 12625) (3778 . 12626) (3779 . 12627) (3780 . 12628) (3781 . 12629) (3782 . 12630) (3783 . 12631) (3784 . 12632) (3785 . 12633) (3786 . 12634) (3787 . 12635) (3788 . 12636) (3789 . 12637) (3790 . 12638) (3791 . 12639) (3792 . 12640) (3793 . 12641) (3794 . 12642) (3795 . 12643) (3796 . 4520) (3797 . 4521) (3798 . 4522) (3799 . 4523) (3800 . 4524) (3801 . 4525) (3802 . 4526) (3803 . 4527) (3804 . 4528) (3805 . 4529) (3806 . 4530) (3807 . 4531) (3808 . 4532) (3809 . 4533) (3810 . 4534) (3811 . 4535) (3812 . 4536) (3813 . 4537) (3814 . 4538) (3815 . 4539) (3816 . 4540) (3817 . 4541) (3818 . 4542) (3819 . 4543) (3820 . 4544) (3821 . 4545) (3822 . 4546) (3823 . 12653) (3824 . 12657) (3825 . 12664) (3826 . 12671) (3827 . 12673) (3828 . 12676) (3829 . 12678) (3830 . 12685) (3831 . 12686) (3832 . 4587) (3833 . 4592) (3834 . 4601) (3839 . 8361) (5052 . 338) (5053 . 339) (5054 . 376) (8352 . 8352) (8353 . 8353) (8354 . 8354) (8355 . 8355) (8356 . 8356) (8357 . 8357) (8358 . 8358) (8359 . 8359) (8360 . 8360) (8362 . 8362) (8363 . 8363) (8364 . 8364)) nil] 5)
#@78 The value of the CLIPBOARD X selection last time we selected or
pasted text.
(defvar x-last-selected-text-clipboard nil (#$ . 18529))
#@76 The value of the PRIMARY X selection last time we selected or
pasted text.
(defvar x-last-selected-text-primary nil (#$ . 18669))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\314\306\307&\207" [custom-declare-variable x-select-enable-primary nil "Non-nil means cutting and pasting uses the primary selection." :type boolean :group killing :version "24.1" x-select-request-type "Data type request for X selection.\nThe value is one of the following data types, a list of them, or nil:\n  `COMPOUND_TEXT', `UTF8_STRING', `STRING', `TEXT'\n\nIf the value is one of the above symbols, try only the specified type.\n\nIf the value is a list of them, try each of them in the specified\norder until succeed.\n\nThe value nil is the same as the list (UTF8_STRING COMPOUND_TEXT STRING)." (choice (const :tag "Default" nil) (const COMPOUND_TEXT) (const UTF8_STRING) (const STRING) (const TEXT) (set :tag "List of values" (const COMPOUND_TEXT) (const UTF8_STRING) (const STRING) (const TEXT)))] 10)
(defalias 'x-selection-value-internal #[(type) "\206\303\304\211:\203$\n\203)	\204)\304\305\306\217\210\nA\211\204\202)\304\307\310\217\210	\2035\311\312	G\313	$\210	*\207" [x-select-request-type text request-type (UTF8_STRING COMPOUND_TEXT STRING) nil (byte-code "\303	@\"\303\207" [type request-type text x-get-selection] 3) ((error)) (byte-code "\303	\"\303\207" [type request-type text x-get-selection] 3) ((error)) remove-text-properties 0 (foreign-selection nil)] 6])
(defalias 'x-selection-value #[nil "\306\307 !\310=\205\202\311\211\n\203G\312\313!\211\314\230\203\311	\203'	\314\230\203-\311\211\202F	=\2037\311\202F	\230\203C	\311\202F	\211\f\203y\312\315!\211\203Y\314\230\203_\311\211\202x
=\203i\311\202x
\230\203u\311\202x\211\311	\206\201*\207" [primary-text clip-text x-select-enable-clipboard x-last-selected-text-clipboard x-select-enable-primary x-last-selected-text-primary framep selected-frame x nil x-selection-value-internal CLIPBOARD "" PRIMARY next-selection-coding-system] 3])
(byte-code "\302\303\304\305#\210\306\303\304\307#\210\310\304\305\207" [interprogram-cut-function interprogram-paste-function defalias x-cut-buffer-or-selection-value x-selection-value nil make-obsolete "24.1" x-select-text] 4)
#@119 Get the current value of the PRIMARY selection.
Request data types in the order specified by `x-select-request-type'.
(defalias 'x-get-selection-value #[nil "\300\301!\207" [x-selection-value-internal PRIMARY] 2 (#$ . 20995)])
#@68 Insert the clipboard contents, or the last stretch of killed text.
(defalias 'x-clipboard-yank #[nil "\302\303!\304\211\203	G\305V\203\306	!\210\307 *\207" [x-select-enable-clipboard clipboard-text x-selection-value-internal CLIPBOARD t 0 kill-new yank] 3 (#$ . 21228) "*"])
#@70 Open the menu bar if it is shown.
`popup-menu' is used if it is off.
(defalias 'x-menu-bar-open #[(&optional frame) "\302\303\304\305\"\206	\306!\204\307\310!\203\310!\207\311\312 	\"\207" [frame last-nonmenu-event zerop frame-parameter nil menu-bar-lines 0 fboundp accelerate-menu popup-menu mouse-menu-bar-map] 4 (#$ . 21515) "i"])
(defalias 'x-win-suspend-error #[nil "\300\301\302\303 \">\205
\304\305!\207" [x mapcar window-system frame-list error "Cannot suspend Emacs while running under X"] 4])
#@54 Non-nil if the X window system has been initialized.
(defvar x-initialized nil (#$ . 22031))
#@77 Initialize Emacs for X frames and open the first connection to an X server.
(defalias 'x-initialize-window-system #[nil "\203\n\306\307\310C\"\210	;\204&\311\312 \313\314	\"\211\203%	\n\315I\210\202)\316\2068\317\320\321 \"\2066\317\320!\211\f
\322=#\210\323 \210\324\325\326\217\210\327 \210\330\331\332\"\333\232\203W\334\335\336\"\210\330\337\340\"9\311:9\203\275\3419!:\342:\236\204y\343:\236\203\201\344\345:BB:\346;:\";\347:\236\203\243\347<\236\204\243\347\211:\236AB<B<\350:\236\203\275\350<\236\204\275\350\211:\236AB<B<*\351=\330\352\353\"\211>\203\331\313\354>\"\203\331\355<B<*\330\356\357\"\211?\203\353\360?!\202\354\361@)\362\363\364\"\210\362\365\366\"\210\351A\367 \210\370 \210\351\211\207" [x-initialized x-resource-name i x-display-name x-command-line-resources initial-window-system signal cl-assertion-failed (not x-initialized) nil invocation-name string-match "[.*]" 45 x-open-connection getenv "DISPLAY" selected-frame x create-default-fontset err (create-fontset-from-fontset-spec standard-fontset-spec t) ((error (byte-code "\301\302\303\304\"\305#\207" [err display-warning initialization format "Creation of the standard fontset failed: %s" :error] 5))) create-fontset-from-x-resource x-get-resource "verticalScrollBars" "ScrollBars" "right" customize-set-variable scroll-bar-mode right "geometry" "Geometry" x-parse-geometry top left (user-position . t) (user-size . t) append height width t "reverseVideo" "ReverseVideo" "^\\(true\\|yes\\|on\\)$" (reverse . t) "selectionTimeout" "SelectionTimeout" string-to-number 5000 add-hook suspend-hook x-win-suspend-error after-init-hook x-wm-set-size-hint menu-bar-enable-clipboard x-apply-session-resources res-geometry parsed initial-frame-alist default-frame-alist case-fold-search rv res-selection-timeout x-selection-timeout split-window-keep-point] 6 (#$ . 22130)])
(byte-code "\301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\301\310\311\"\210\312\313\314\"\210\315\316\317#\210\320\321\322\323\324\325\326\327\330\331&	\210\320\332\333\334\324\325\326\335\330\331&	\207" [special-event-map add-to-list display-format-alist ("\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" . x) handle-args-function-alist (x . x-handle-args) frame-creation-function-alist (x . x-create-frame-with-faces) window-system-initialization-alist (x . x-initialize-window-system) add-hook after-make-frame-functions x-dnd-init-frame define-key [drag-n-drop] x-dnd-handle-drag-n-drop-event custom-declare-variable x-gtk-stock-map (mapcar (lambda (arg) (cons (purecopy (car arg)) (purecopy (cdr arg)))) '(("etc/images/new" "document-new" "gtk-new") ("etc/images/open" "document-open" "gtk-open") ("etc/images/diropen" . "n:system-file-manager") ("etc/images/close" "window-close" "gtk-close") ("etc/images/save" "document-save" "gtk-save") ("etc/images/saveas" "document-save-as" "gtk-save-as") ("etc/images/undo" "edit-undo" "gtk-undo") ("etc/images/cut" "edit-cut" "gtk-cut") ("etc/images/copy" "edit-copy" "gtk-copy") ("etc/images/paste" "edit-paste" "gtk-paste") ("etc/images/search" "edit-find" "gtk-find") ("etc/images/print" "document-print" "gtk-print") ("etc/images/preferences" "preferences-system" "gtk-preferences") ("etc/images/help" "help-browser" "gtk-help") ("etc/images/left-arrow" "go-previous" "gtk-go-back") ("etc/images/right-arrow" "go-next" "gtk-go-forward") ("etc/images/home" "go-home" "gtk-home") ("etc/images/jump-to" "go-jump" "gtk-jump-to") ("etc/images/index" . "gtk-index") ("etc/images/exit" "application-exit" "gtk-quit") ("etc/images/cancel" . "gtk-cancel") ("etc/images/info" "dialog-information" "gtk-info") ("etc/images/bookmark_add" . "n:bookmark_add") ("etc/images/attach" . "gtk-attach") ("etc/images/connect" . "gtk-connect") ("etc/images/contact" . "gtk-contact") ("etc/images/delete" "edit-delete" "gtk-delete") ("etc/images/describe" "document-properties" "gtk-properties") ("etc/images/disconnect" . "gtk-disconnect") ("etc/images/lock-broken" . "gtk-lock_broken") ("etc/images/lock-ok" . "gtk-lock_ok") ("etc/images/lock" . "gtk-lock") ("etc/images/next-page" . "gtk-next-page") ("etc/images/refresh" "view-refresh" "gtk-refresh") ("etc/images/sort-ascending" "view-sort-ascending" "gtk-sort-ascending") ("etc/images/sort-column-ascending" . "gtk-sort-column-ascending") ("etc/images/sort-criteria" . "gtk-sort-criteria") ("etc/images/sort-descending" "view-sort-descending" "gtk-sort-descending") ("etc/images/sort-row-ascending" . "gtk-sort-row-ascending") ("images/gnus/toggle-subscription" . "gtk-task-recurring") ("images/mail/compose" . "gtk-mail-compose") ("images/mail/copy" . "gtk-mail-copy") ("images/mail/forward" . "gtk-mail-forward") ("images/mail/inbox" . "gtk-inbox") ("images/mail/move" . "gtk-mail-move") ("images/mail/not-spam" . "gtk-not-spam") ("images/mail/outbox" . "gtk-outbox") ("images/mail/reply-all" . "gtk-mail-reply-to-all") ("images/mail/reply" . "gtk-mail-reply") ("images/mail/save-draft" . "gtk-mail-handling") ("images/mail/send" . "gtk-mail-send") ("images/mail/spam" . "gtk-spam") ("images/gud/break" . "gtk-no") ("images/gud/recstart" "media-record" "gtk-media-record") ("images/gud/recstop" "media-playback-stop" "gtk-media-stop"))) "How icons for tool bars are mapped to Gtk+ stock items.\nEmacs must be compiled with the Gtk+ toolkit for this to have any effect.\nA value that begins with n: denotes a named icon instead of a stock icon." :version "22.2" :type (choice (repeat (choice symbol (cons (string :tag "Emacs icon") (choice (group (string :tag "Named") (string :tag "Stock")) (string :tag "Stock/named")))))) :group x icon-map-list '(x-gtk-stock-map) "A list of alists that map icon file names to stock/named icons.\nThe alists are searched in the order they appear.  The first match is used.\nThe keys in the alists are file names without extension and with two directory\ncomponents.  For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm\nto stock item gtk-open, use:\n\n  (\"etc/images/open\" . \"gtk-open\")\n\nThemes also have named icons.  To map to one of those, use n: before the name:\n\n  (\"etc/images/diropen\" . \"n:system-file-manager\")\n\nThe list elements are either the symbol name for the alist or the\nalist itself.\n\nIf you don't want stock icons, set the variable to nil." (choice (const :tag "Don't use stock icons" nil) (repeat (choice symbol (cons (string :tag "Emacs icon") (string :tag "Stock/named")))))] 10)
(defconst x-gtk-stock-cache (make-hash-table :weakness t :test 'equal))
#@122 Map icon with file name FILE to a Gtk+ stock name.
This uses `icon-map-list' to map icon file names to stock icon names.
(defalias 'x-gtk-map-stock #[(file) ";\205f\306	\"\206f\307\310 \311\216\312!\313\314\"\205\"\315\316\"
\317\211\204Z\203Z@\320\f\206A9\203MJ\202O\"A\202,\205bA.	#\207" [file x-gtk-stock-cache save-match-data-internal file-sans key icon-map-list gethash puthash match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-name-sans-extension string-match "/\\([^/]+/[^/]+/[^/]+$\\)" match-string 1 nil assoc-string icon-map elem value] 6 (#$ . 28660)])
(provide 'x-win)
F1l3 Manager
