Mercurial > hg > xemacs-beta

comparison lisp/x-init.el @ 5292:e4305eb6fb8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge some permissions corrections to trunk.
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 18 Oct 2010 23:21:23 +0900
parents dceee3855f15
children 308d34e9f07d
comparison
equal deleted inserted replaced
5291:85bd42a1e544 5292:e4305eb6fb8c
90 compose-cedilla-map compose-diaeresis-map 90 compose-cedilla-map compose-diaeresis-map
91 compose-circumflex-map compose-tilde-map 91 compose-circumflex-map compose-tilde-map
92 compose-ring-map compose-caron-map compose-macron-map 92 compose-ring-map compose-caron-map compose-macron-map
93 compose-breve-map compose-dot-map 93 compose-breve-map compose-dot-map
94 compose-doubleacute-map compose-ogonek-map 94 compose-doubleacute-map compose-ogonek-map
95 compose-hook-map compose-horn-map) 95 compose-hook-map compose-horn-map compose-stroke-map)
96 do (autoload map "x-compose" nil t 'keymap)) 96 do (autoload map "x-compose" nil t 'keymap))
97 97
98 (loop 98 (loop
99 for (key map) 99 for (key map)
100 ;; The dead keys might really be called just about anything, depending 100 ;; The dead keys might really be called just about anything, depending
206 (dead-breve compose-breve-map) 206 (dead-breve compose-breve-map)
207 (dead-abovedot compose-dot-map) 207 (dead-abovedot compose-dot-map)
208 (dead-doubleacute compose-doubleacute-map) 208 (dead-doubleacute compose-doubleacute-map)
209 (dead-ogonek compose-ogonek-map) 209 (dead-ogonek compose-ogonek-map)
210 (dead-hook compose-hook-map) 210 (dead-hook compose-hook-map)
211 (dead-horn compose-horn-map)) 211 (dead-horn compose-horn-map)
212 (dead-stroke compose-stroke-map))
212 213
213 ;; Get the correct value for function-key-map 214 ;; Get the correct value for function-key-map
214 with function-key-map = (symbol-value-in-console 'function-key-map 215 with function-key-map = (symbol-value-in-console 'function-key-map
215 (device-console device) 216 (device-console device)
216 function-key-map) 217 function-key-map)