;; This is used by DEC's X server.
'((65280 . remove)))))
+;; Latin-1
(let ((i 160))
(while (< i 256)
- (puthash i (make-char 'latin-iso8859-1 i) x-keysym-table)
+ (puthash i i x-keysym-table)
(setq i (1+ i))))
;; Table from Kuhn's proposed additions to the `KEYSYM Encoding'
;; Kana: Fixme: needs conversion to Japanese charset -- seems
;; to require jisx0213, for which the Unicode translation
;; isn't clear.
- (#x47e . ?\e$,1s>\e(B)
- (#x4a1 . ?\e$,2=B\e(B)
- (#x4a2 . ?\\e$,2=L\e(B)
- (#x4a3 . ?\\e$,2=M\e(B)
- (#x4a4 . ?\e$,2=A\e(B)
- (#x4a5 . ?\e$,2?{\e(B)
- (#x4a6 . ?\e$,2?r\e(B)
- (#x4a7 . ?\e$,2?!\e(B)
- (#x4a8 . ?\e$,2?#\e(B)
- (#x4a9 . ?\e$,2?%\e(B)
- (#x4aa . ?\e$,2?'\e(B)
- (#x4ab . ?\e$,2?)\e(B)
- (#x4ac . ?\e$,2?c\e(B)
- (#x4ad . ?\e$,2?e\e(B)
- (#x4ae . ?\e$,2?g\e(B)
- (#x4af . ?\e$,2?C\e(B)
- (#x4b0 . ?\e$,2?|\e(B)
- (#x4b1 . ?\e$,2?"\e(B)
- (#x4b2 . ?\e$,2?$\e(B)
- (#x4b3 . ?\e$,2?&\e(B)
- (#x4b4 . ?\e$,2?(\e(B)
- (#x4b5 . ?\e$,2?*\e(B)
- (#x4b6 . ?\e$,2?+\e(B)
- (#x4b7 . ?\e$,2?-\e(B)
- (#x4b8 . ?\e$,2?/\e(B)
- (#x4b9 . ?\e$,2?1\e(B)
- (#x4ba . ?\e$,2?3\e(B)
- (#x4bb . ?\e$,2?5\e(B)
- (#x4bc . ?\e$,2?7\e(B)
- (#x4bd . ?\e$,2?9\e(B)
- (#x4be . ?\e$,2?;\e(B)
- (#x4bf . ?\e$,2?=\e(B)
- (#x4c0 . ?\e$,2??\e(B)
- (#x4c1 . ?\e$,2?A\e(B)
- (#x4c2 . ?\e$,2?D\e(B)
- (#x4c3 . ?\e$,2?F\e(B)
- (#x4c4 . ?\e$,2?H\e(B)
- (#x4c5 . ?\e$,2?J\e(B)
- (#x4c6 . ?\e$,2?K\e(B)
- (#x4c7 . ?\e$,2?L\e(B)
- (#x4c8 . ?\e$,2?M\e(B)
- (#x4c9 . ?\e$,2?N\e(B)
- (#x4ca . ?\e$,2?O\e(B)
- (#x4cb . ?\e$,2?R\e(B)
- (#x4cc . ?\e$,2?U\e(B)
- (#x4cd . ?\e$,2?X\e(B)
- (#x4ce . ?\e$,2?[\e(B)
- (#x4cf . ?\e$,2?^\e(B)
- (#x4d0 . ?\e$,2?_\e(B)
- (#x4d1 . ?\e$,2?`\e(B)
- (#x4d2 . ?\e$,2?a\e(B)
- (#x4d3 . ?\e$,2?b\e(B)
- (#x4d4 . ?\e$,2?d\e(B)
- (#x4d5 . ?\e$,2?f\e(B)
- (#x4d6 . ?\e$,2?h\e(B)
- (#x4d7 . ?\e$,2?i\e(B)
- (#x4d8 . ?\e$,2?j\e(B)
- (#x4d9 . ?\e$,2?k\e(B)
- (#x4da . ?\e$,2?l\e(B)
- (#x4db . ?\e$,2?m\e(B)
- (#x4dc . ?\e$,2?o\e(B)
- (#x4dd . ?\e$,2?s\e(B)
- (#x4de . ?\e$,2>{\e(B)
- (#x4df . ?\e$,2>|\e(B)
+ (#x47e . ?\e(J~\e(B)
+ (#x4a1 . ?\e$A!#\e(B)
+ (#x4a2 . ?\\e$A!8\e(B)
+ (#x4a3 . ?\\e$A!9\e(B)
+ (#x4a4 . ?\e$A!"\e(B)
+ (#x4a5 . ?\e$A!$\e(B)
+ (#x4a6 . ?\e$A%r\e(B)
+ (#x4a7 . ?\e$A%!\e(B)
+ (#x4a8 . ?\e$A%#\e(B)
+ (#x4a9 . ?\e$A%%\e(B)
+ (#x4aa . ?\e$A%'\e(B)
+ (#x4ab . ?\e$A%)\e(B)
+ (#x4ac . ?\e$A%c\e(B)
+ (#x4ad . ?\e$A%e\e(B)
+ (#x4ae . ?\e$A%g\e(B)
+ (#x4af . ?\e$A%C\e(B)
+ (#x4b0 . ?\e$B!<\e(B)
+ (#x4b1 . ?\e$A%"\e(B)
+ (#x4b2 . ?\e$A%$\e(B)
+ (#x4b3 . ?\e$A%&\e(B)
+ (#x4b4 . ?\e$A%(\e(B)
+ (#x4b5 . ?\e$A%*\e(B)
+ (#x4b6 . ?\e$A%+\e(B)
+ (#x4b7 . ?\e$A%-\e(B)
+ (#x4b8 . ?\e$A%/\e(B)
+ (#x4b9 . ?\e$A%1\e(B)
+ (#x4ba . ?\e$A%3\e(B)
+ (#x4bb . ?\e$A%5\e(B)
+ (#x4bc . ?\e$A%7\e(B)
+ (#x4bd . ?\e$A%9\e(B)
+ (#x4be . ?\e$A%;\e(B)
+ (#x4bf . ?\e$A%=\e(B)
+ (#x4c0 . ?\e$A%?\e(B)
+ (#x4c1 . ?\e$A%A\e(B)
+ (#x4c2 . ?\e$A%D\e(B)
+ (#x4c3 . ?\e$A%F\e(B)
+ (#x4c4 . ?\e$A%H\e(B)
+ (#x4c5 . ?\e$A%J\e(B)
+ (#x4c6 . ?\e$A%K\e(B)
+ (#x4c7 . ?\e$A%L\e(B)
+ (#x4c8 . ?\e$A%M\e(B)
+ (#x4c9 . ?\e$A%N\e(B)
+ (#x4ca . ?\e$A%O\e(B)
+ (#x4cb . ?\e$A%R\e(B)
+ (#x4cc . ?\e$A%U\e(B)
+ (#x4cd . ?\e$A%X\e(B)
+ (#x4ce . ?\e$A%[\e(B)
+ (#x4cf . ?\e$A%^\e(B)
+ (#x4d0 . ?\e$A%_\e(B)
+ (#x4d1 . ?\e$A%`\e(B)
+ (#x4d2 . ?\e$A%a\e(B)
+ (#x4d3 . ?\e$A%b\e(B)
+ (#x4d4 . ?\e$A%d\e(B)
+ (#x4d5 . ?\e$A%f\e(B)
+ (#x4d6 . ?\e$A%h\e(B)
+ (#x4d7 . ?\e$A%i\e(B)
+ (#x4d8 . ?\e$A%j\e(B)
+ (#x4d9 . ?\e$A%k\e(B)
+ (#x4da . ?\e$A%l\e(B)
+ (#x4db . ?\e$A%m\e(B)
+ (#x4dc . ?\e$A%o\e(B)
+ (#x4dd . ?\e$A%s\e(B)
+ (#x4de . ?\e$B!+\e(B)
+ (#x4df . ?\e$B!,\e(B)
;; Arabic
(#x5ac . ?\e,G,\e(B)
(#x5bb . ?\e,G;\e(B)
(#x7f9 . ?\e,Fy\e(B)
;; Technical
(#x8a1 . ?\e$,1|W\e(B)
- (#x8a2 . ?\e$,2 ,\e(B)
- (#x8a3 . ?\e$,2 \e(B)
+ (#x8a2 . ?\e$A)0\e(B)
+ (#x8a3 . ?\e$A)$\e(B)
(#x8a4 . ?\e$,1{ \e(B)
(#x8a5 . ?\e$,1{!\e(B)
- (#x8a6 . ?\e$,2 "\e(B)
+ (#x8a6 . ?\e$A)&\e(B)
(#x8a7 . ?\e$,1|A\e(B)
(#x8a8 . ?\e$,1|C\e(B)
(#x8a9 . ?\e$,1|D\e(B)
(#x8ae . ?\e$,1|@\e(B)
(#x8af . ?\e$,1|H\e(B)
(#x8b0 . ?\e$,1|L\e(B)
- (#x8bc . ?\e$,1y$\e(B)
- (#x8bd . ?\e$,1y \e(B)
- (#x8be . ?\e$,1y%\e(B)
- (#x8bf . ?\e$,1xK\e(B)
- (#x8c0 . ?\e$,1xT\e(B)
- (#x8c1 . ?\e$,1x=\e(B)
- (#x8c2 . ?\e$,1x>\e(B)
- (#x8c5 . ?\e$,1x'\e(B)
- (#x8c8 . ?\e$,1x\\e(B)
- (#x8c9 . ?\e$,1xc\e(B)
- (#x8cd . ?\e$,1wT\e(B)
- (#x8ce . ?\e$,1wR\e(B)
- (#x8cf . ?\e$,1y!\e(B)
- (#x8d6 . ?\e$,1x:\e(B)
- (#x8da . ?\e$,1yB\e(B)
- (#x8db . ?\e$,1yC\e(B)
- (#x8dc . ?\e$,1xI\e(B)
- (#x8dd . ?\e$,1xJ\e(B)
- (#x8de . ?\e$,1xG\e(B)
- (#x8df . ?\e$,1xH\e(B)
- (#x8ef . ?\e$,1x"\e(B)
+ (#x8bc . ?\e$A!\\e(B)
+ (#x8bd . ?\e$A!Y\e(B)
+ (#x8be . ?\e$A!]\e(B)
+ (#x8bf . ?\e$A!R\e(B)
+ (#x8c0 . ?\e$A!`\e(B)
+ (#x8c1 . ?\e$A!X\e(B)
+ (#x8c2 . ?\e$A!^\e(B)
+ (#x8c5 . ?\e$B"`\e(B)
+ (#x8c8 . ?\e$(G"D\e(B)
+ (#x8c9 . ?\e$(O"l\e(B)
+ (#x8cd . ?\e$B"N\e(B)
+ (#x8ce . ?\e$B"M\e(B)
+ (#x8cf . ?\e$A!T\e(B)
+ (#x8d6 . ?\e$A!L\e(B)
+ (#x8da . ?\e$B">\e(B)
+ (#x8db . ?\e$B"?\e(B)
+ (#x8dc . ?\e$A!I\e(B)
+ (#x8dd . ?\e$A!H\e(B)
+ (#x8de . ?\e$A!D\e(B)
+ (#x8df . ?\e$A!E\e(B)
+ (#x8ef . ?\e$B"_\e(B)
(#x8f6 . ?\e$,1!R\e(B)
- (#x8fb . ?\e$,1vp\e(B)
- (#x8fc . ?\e$,1vq\e(B)
- (#x8fd . ?\e$,1vr\e(B)
- (#x8fe . ?\e$,1vs\e(B)
+ (#x8fb . ?\e$A!{\e(B)
+ (#x8fc . ?\e$A!|\e(B)
+ (#x8fd . ?\e$A!z\e(B)
+ (#x8fe . ?\e$A!}\e(B)
;; Special
- (#x9e0 . ?\e$,2"&\e(B)
- (#x9e1 . ?\e$,2!R\e(B)
- (#x9e2 . ?\e$,1}I\e(B)
- (#x9e3 . ?\e$,1}L\e(B)
- (#x9e4 . ?\e$,1}M\e(B)
- (#x9e5 . ?\e$,1}J\e(B)
+ (#x9e0 . ?\e$A!t\e(B)
+ (#x9e1 . ?\e$(C"F\e(B)
+ (#x9e2 . ?\e$(GB*\e(B)
+ (#x9e3 . ?\e$(GB-\e(B)
+ (#x9e4 . ?\e$(GB.\e(B)
+ (#x9e5 . ?\e$(GB+\e(B)
(#x9e8 . ?\e$,1}d\e(B)
- (#x9e9 . ?\e$,1}K\e(B)
- (#x9ea . ?\e$,2 8\e(B)
- (#x9eb . ?\e$,2 0\e(B)
- (#x9ec . ?\e$,2 ,\e(B)
- (#x9ed . ?\e$,2 4\e(B)
- (#x9ee . ?\e$,2 \\e(B)
+ (#x9e9 . ?\e$(GB,\e(B)
+ (#x9ea . ?\e$A)<\e(B)
+ (#x9eb . ?\e$A)4\e(B)
+ (#x9ec . ?\e$A)0\e(B)
+ (#x9ed . ?\e$A)8\e(B)
+ (#x9ee . ?\e$A)`\e(B)
(#x9ef . ?\e$,1|Z\e(B)
(#x9f0 . ?\e$,1|[\e(B)
- (#x9f1 . ?\e$,2 \e(B)
+ (#x9f1 . ?\e$A)$\e(B)
(#x9f2 . ?\e$,1|\\e(B)
(#x9f3 . ?\e$,1|]\e(B)
- (#x9f4 . ?\e$,2 <\e(B)
- (#x9f5 . ?\e$,2 D\e(B)
- (#x9f6 . ?\e$,2 T\e(B)
- (#x9f7 . ?\e$,2 L\e(B)
- (#x9f8 . ?\e$,2 "\e(B)
+ (#x9f4 . ?\e$A)@\e(B)
+ (#x9f5 . ?\e$A)H\e(B)
+ (#x9f6 . ?\e$A)X\e(B)
+ (#x9f7 . ?\e$A)P\e(B)
+ (#x9f8 . ?\e$A)&\e(B)
;; Publishing
(#xaa1 . ?\e$,1rc\e(B)
(#xaa2 . ?\e$,1rb\e(B)
(#xaa6 . ?\e$,1rh\e(B)
(#xaa7 . ?\e$,1ri\e(B)
(#xaa8 . ?\e$,1rj\e(B)
- (#xaa9 . ?\e$,1rt\e(B)
- (#xaaa . ?\e$,1rs\e(B)
- (#xaae . ?\e$,1s&\e(B)
- (#xaaf . ?\e$,1s%\e(B)
- (#xab0 . ?\e$,1v3\e(B)
- (#xab1 . ?\e$,1v4\e(B)
- (#xab2 . ?\e$,1v5\e(B)
+ (#xaa9 . ?\e$(G!7\e(B)
+ (#xaaa . ?\e$(G!9\e(B)
+ (#xaae . ?\e$A!-\e(B)
+ (#xaaf . ?\e$(G!-\e(B)
+ (#xab0 . ?\e$(O'x\e(B)
+ (#xab1 . ?\e$(O'y\e(B)
+ (#xab2 . ?\e$(O'z\e(B)
(#xab3 . ?\e$,1v6\e(B)
(#xab4 . ?\e$,1v7\e(B)
(#xab5 . ?\e$,1v8\e(B)
(#xab6 . ?\e$,1v9\e(B)
(#xab7 . ?\e$,1v:\e(B)
- (#xab8 . ?\e$,1uE\e(B)
+ (#xab8 . ?\e$(G""\e(B)
(#xabb . ?\e$,1rr\e(B)
(#xabc . ?\e$,1{)\e(B)
(#xabe . ?\e$,1{*\e(B)
- (#xac3 . ?\e$,1v;\e(B)
- (#xac4 . ?\e$,1v<\e(B)
- (#xac5 . ?\e$,1v=\e(B)
- (#xac6 . ?\e$,1v>\e(B)
- (#xac9 . ?\e$,1ub\e(B)
+ (#xac3 . ?\e$(C({\e(B)
+ (#xac4 . ?\e$(C(|\e(B)
+ (#xac5 . ?\e$(C(}\e(B)
+ (#xac6 . ?\e$(C(~\e(B)
+ (#xac9 . ?\e$(D"o\e(B)
(#xaca . ?\e$,2"s\e(B)
- (#xacc . ?\e$,2"!\e(B)
- (#xacd . ?\e$,2!w\e(B)
- (#xace . ?\e$,2"+\e(B)
+ (#xacc . ?\e$(O##\e(B)
+ (#xacd . ?\e$(O#!\e(B)
+ (#xace . ?\e$A!p\e(B)
(#xacf . ?\e$,2!o\e(B)
- (#xad0 . ?\e$,1rx\e(B)
- (#xad1 . ?\e$,1ry\e(B)
- (#xad2 . ?\e$,1r|\e(B)
- (#xad3 . ?\e$,1r}\e(B)
+ (#xad0 . ?\e,F!\e(B)
+ (#xad1 . ?\e,F"\e(B)
+ (#xad2 . ?\e,Y4\e(B)
+ (#xad3 . ?\e,Y!\e(B)
(#xad4 . ?\e$,1u^\e(B)
- (#xad6 . ?\e$,1s2\e(B)
- (#xad7 . ?\e$,1s3\e(B)
+ (#xad6 . ?\e$A!d\e(B)
+ (#xad7 . ?\e$A!e\e(B)
(#xad9 . ?\e$,2%]\e(B)
(#xadb . ?\e$,2!l\e(B)
- (#xadc . ?\e$,2" \e(B)
- (#xadd . ?\e$,2!v\e(B)
- (#xade . ?\e$,2"/\e(B)
+ (#xadc . ?\e$(O#$\e(B)
+ (#xadd . ?\e$(O#"\e(B)
+ (#xade . ?\e$A!q\e(B)
(#xadf . ?\e$,2!n\e(B)
- (#xae0 . ?\e$,2"F\e(B)
+ (#xae0 . ?\e$(O#?\e(B)
(#xae1 . ?\e$,2!k\e(B)
(#xae2 . ?\e$,2!m\e(B)
- (#xae3 . ?\e$,2!s\e(B)
- (#xae4 . ?\e$,2!}\e(B)
- (#xae5 . ?\e$,2"f\e(B)
- (#xae6 . ?\e$,1s"\e(B)
+ (#xae3 . ?\e$A!w\e(B)
+ (#xae4 . ?\e$(G!}\e(B)
+ (#xae5 . ?\e$A!n\e(B)
+ (#xae6 . ?\e$(O#@\e(B)
(#xae7 . ?\e$,2!j\e(B)
- (#xae8 . ?\e$,2!r\e(B)
- (#xae9 . ?\e$,2!|\e(B)
- (#xaea . ?\e$,2"|\e(B)
- (#xaeb . ?\e$,2"~\e(B)
- (#xaec . ?\e$,2#c\e(B)
- (#xaed . ?\e$,2#f\e(B)
- (#xaee . ?\e$,2#e\e(B)
+ (#xae8 . ?\e$A!x\e(B)
+ (#xae9 . ?\e$(G!~\e(B)
+ (#xaea . ?\e$(C"P\e(B)
+ (#xaeb . ?\e$(O-~\e(B)
+ (#xaec . ?\e$(O&@\e(B)
+ (#xaed . ?\e$(O&<\e(B)
+ (#xaee . ?\e$(O&>\e(B)
(#xaf0 . ?\e$,2%`\e(B)
- (#xaf1 . ?\e$,1s \e(B)
- (#xaf2 . ?\e$,1s!\e(B)
- (#xaf3 . ?\e$,2%S\e(B)
+ (#xaf1 . ?\e$B"w\e(B)
+ (#xaf2 . ?\e$B"x\e(B)
+ (#xaf3 . ?\e$(O'{\e(B)
(#xaf4 . ?\e$,2%W\e(B)
- (#xaf5 . ?\e$,2#o\e(B)
- (#xaf6 . ?\e$,2#m\e(B)
- (#xaf7 . ?\e$,2#B\e(B)
- (#xaf8 . ?\e$,2#@\e(B)
- (#xaf9 . ?\e$,2"n\e(B)
+ (#xaf5 . ?\e$B"t\e(B)
+ (#xaf6 . ?\e$B"u\e(B)
+ (#xaf7 . ?\e$A!a\e(B)
+ (#xaf8 . ?\e$A!b\e(B)
+ (#xaf9 . ?\e$(O&g\e(B)
(#xafa . ?\e$,1zu\e(B)
(#xafb . ?\e$,1uW\e(B)
(#xafc . ?\e$,1s8\e(B)
(#xafd . ?\e$,1rz\e(B)
- (#xafe . ?\e$,1r~\e(B)
+ (#xafe . ?\e,Y%\e(B)
;; APL
(#xba3 . ?<)
(#xba6 . ?>)
- (#xba8 . ?\e$,1xH\e(B)
- (#xba9 . ?\e$,1xG\e(B)
+ (#xba8 . ?\e$A!E\e(B)
+ (#xba9 . ?\e$A!D\e(B)
(#xbc0 . ?\e,A/\e(B)
- (#xbc2 . ?\e$,1ye\e(B)
- (#xbc3 . ?\e$,1xI\e(B)
+ (#xbc2 . ?\e$A!M\e(B)
+ (#xbc3 . ?\e$A!I\e(B)
(#xbc4 . ?\e$,1zj\e(B)
(#xbc6 . ?_)
(#xbca . ?\e$,1x8\e(B)
(#xbcc . ?\e$,1|5\e(B)
(#xbce . ?\e$,1yd\e(B)
- (#xbcf . ?\e$,2"+\e(B)
+ (#xbcf . ?\e$A!p\e(B)
(#xbd3 . ?\e$,1zh\e(B)
- (#xbd6 . ?\e$,1xJ\e(B)
- (#xbd8 . ?\e$,1yC\e(B)
- (#xbda . ?\e$,1yB\e(B)
+ (#xbd6 . ?\e$A!H\e(B)
+ (#xbd8 . ?\e$B"?\e(B)
+ (#xbda . ?\e$B">\e(B)
(#xbdc . ?\e$,1yb\e(B)
(#xbfc . ?\e$,1yc\e(B)
;; Hebrew
;; Latin-9
(#x13bc . ?\e,b<\e(B)
(#x13bd . ?\e,b=\e(B)
- (#x13be . ?\e,b>\e(B)
+ (#x13be . ?\e,_/\e(B)
;; Currency
(#x20a0 . ?\e$,1t@\e(B)
(#x20a1 . ?\e$,1tA\e(B)
(defvar x-select-request-type nil
"*Data type request for X selection.
-The value is nil, one of the following data types, or a list of them:
+The value is one of the following data types, a list of them, or nil:
`COMPOUND_TEXT', `UTF8_STRING', `STRING', `TEXT'
-If the value is nil, try `COMPOUND_TEXT' and `UTF8_STRING', and
-use the more appropriate result. If both fail, try `STRING', and
-then `TEXT'.
-
If the value is one of the above symbols, try only the specified
type.
If the value is a list of them, try each of them in the specified
-order until succeed.")
+order until succeed.
-;; Helper function for x-selection-value. Select UTF8 or CTEXT
-;; whichever is more appropriate. Here, we use this heurisitcs.
-;;
-;; (1) If their lengthes are different, select the longer one. This
-;; is because an X client may just cut off unsupported characters.
-;;
-;; (2) Otherwise, if they are different at Nth character, and that
-;; of UTF8 is a Latin character and that of CTEXT belongs to a CJK
-;; character set, select UTF8. Also select UTF8 if the Nth
-;; character of UTF8 is non-ASCII where as that of CTEXT is ASCII.
-;; This is because an X client may replace unsupported characters
-;; with some ASCII character (typically ` ' or `?') in CTEXT.
-;;
-;; (3) Otherwise, select CTEXT. This is because legacy charsets are
-;; better for the current Emacs, especially when the selection owner
-;; is also Emacs.
-
-(defun x-select-utf8-or-ctext (utf8 ctext)
- (let ((len-utf8 (length utf8))
- (len-ctext (length ctext))
- (selected ctext)
- (i 0)
- char)
- (if (/= len-utf8 len-ctext)
- (if (> len-utf8 len-ctext) utf8 ctext)
- (let ((result (compare-strings utf8 0 len-utf8 ctext 0 len-ctext)))
- (if (eq result t)
- ctext
- (let ((utf8-char (aref utf8 (1- (abs result))))
- (ctext-char (aref ctext (1- (abs result)))))
- (if (or (and (aref (char-category-set utf8-char) ?l)
- (aref (char-category-set ctext-char) ?C))
- (and (>= utf8-char 128)
- (< ctext-char 128)))
- utf8
- ctext)))))))
+The value nil is the same as this list:
+ \(UTF8_STRING COMPOUND_TEXT STRING)
+")
;; Get a selection value of type TYPE by calling x-get-selection with
-;; an appropiate DATA-TYPE argument decidd by `x-select-request-type'.
+;; an appropiate DATA-TYPE argument decided by `x-select-request-type'.
;; The return value is already decoded. If x-get-selection causes an
;; error, this function return nil.
(defun x-selection-value (type)
- (let (text)
- (cond ((null x-select-request-type)
- (let (utf8 ctext utf8-coding)
- ;; We try both UTF8_STRING and COMPOUND_TEXT, and choose
- ;; the more appropriate one. If both fail, try STRING.
-
- ;; At first try UTF8_STRING.
- (setq utf8 (condition-case nil
- (x-get-selection type 'UTF8_STRING)
- (error nil))
- utf8-coding last-coding-system-used)
- (if utf8
- ;; If it is a local selection, or it contains only
- ;; ASCII characers, choose it.
- (if (or (not (get-text-property 0 'foreign-selection utf8))
- (= (length utf8) (string-bytes utf8)))
- (setq text utf8)))
- ;; If not yet decided, try COMPOUND_TEXT.
- (if (not text)
- (if (setq ctext (condition-case nil
- (x-get-selection type 'COMPOUND_TEXT)
- (error nil)))
- ;; If UTF8_STRING was also successful, choose the
- ;; more appropriate one from UTF8 and CTEXT.
- (if utf8
- (setq text (x-select-utf8-or-ctext utf8 ctext))
- ;; Othewise, choose CTEXT.
- (setq text ctext))
- (setq text utf8)))
- ;; If not yet decided, try STRING.
- (or text
- (setq text (condition-case nil
- (x-get-selection type 'STRING)
- (error nil))))
- (if (eq text utf8)
- (setq last-coding-system-used utf8-coding))))
-
- ((consp x-select-request-type)
- (let ((tail x-select-request-type))
- (while (and tail (not text))
- (condition-case nil
- (setq text (x-get-selection type (car tail)))
- (error nil))
- (setq tail (cdr tail)))))
-
- (t
- (condition-case nil
- (setq text (x-get-selection type x-select-request-type))
- (error nil))))
-
+ (let ((request-type (or x-select-request-type
+ '(UTF8_STRING COMPOUND_TEXT STRING)))
+ text)
+ (if (consp request-type)
+ (while (and request-type (not text))
+ (condition-case nil
+ (setq text (x-get-selection type (car request-type)))
+ (error nil))
+ (setq request-type (cdr request-type)))
+ (condition-case nil
+ (setq text (x-get-selection type request-type))
+ (error nil)))
(if text
(remove-text-properties 0 (length text) '(foreign-selection nil) text))
text))
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
(create-fontset-from-x-resource)
- ;; Try to create a fontset from a font specification which comes
- ;; from initial-frame-alist, default-frame-alist, or X resource.
- ;; A font specification in command line argument (i.e. -fn XXXX)
- ;; should be already in default-frame-alist as a `font'
- ;; parameter. However, any font specifications in site-start
- ;; library, user's init file (.emacs), and default.el are not
- ;; yet handled here.
-
- (let ((font (or (cdr (assq 'font initial-frame-alist))
- (cdr (assq 'font default-frame-alist))
- (x-get-resource "font" "Font")))
- xlfd-fields resolved-name)
- (if (and font
- (not (query-fontset font))
- (setq resolved-name (x-resolve-font-name font))
- (setq xlfd-fields (x-decompose-font-name font)))
- (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
- (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
- ;; Create a fontset from FONT. The fontset name is
- ;; generated from FONT.
- (create-fontset-from-ascii-font font resolved-name "startup"))))
-
;; Set scroll bar mode to right if set by X resources. Default is left.
(if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right")
(customize-set-variable 'scroll-bar-mode 'right))