Mercurial > hg > xemacs-beta

comparison lisp/x-init.el @ 2828:a25c824ed558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-26 18:04:49 by aidan] Rename the ascii-character property, support more keysyms.
author aidan
date Sun, 26 Jun 2005 18:05:05 +0000
parents 4b800e9aaadd
children 316fddbf58e2
comparison
equal deleted inserted replaced
2827:936a6576c655 2828:a25c824ed558
190 (x-define-dead-key XK_mute_grave compose-grave-map) 190 (x-define-dead-key XK_mute_grave compose-grave-map)
191 (x-define-dead-key XK_mute_diaeresis compose-diaeresis-map) 191 (x-define-dead-key XK_mute_diaeresis compose-diaeresis-map)
192 (x-define-dead-key XK_mute_asciicircum compose-circumflex-map) 192 (x-define-dead-key XK_mute_asciicircum compose-circumflex-map)
193 (x-define-dead-key XK_mute_asciitilde compose-tilde-map) 193 (x-define-dead-key XK_mute_asciitilde compose-tilde-map)
194 194
195 ;; Xfree86 seems to use lower case and a hyphen 195 ;; [[ XFree86 seems to use lower case and a hyphen ]] Not true; they use
196 ;; lower case and an underscore. XEmacs converts the underscore to a
197 ;; hyphen in x_keysym_to_emacs_keysym because the keysym is in the
198 ;; "Keyboard" character set, which is just totally fucking random,
199 ;; considering it doesn't happen for any other character sets.
196 (x-define-dead-key dead-acute compose-acute-map) 200 (x-define-dead-key dead-acute compose-acute-map)
197 (x-define-dead-key dead-grave compose-grave-map) 201 (x-define-dead-key dead-grave compose-grave-map)
198 (x-define-dead-key dead-cedilla compose-cedilla-map) 202 (x-define-dead-key dead-cedilla compose-cedilla-map)
199 (x-define-dead-key dead-diaeresis compose-diaeresis-map) 203 (x-define-dead-key dead-diaeresis compose-diaeresis-map)
200 (x-define-dead-key dead-circum compose-circumflex-map) 204 (x-define-dead-key dead-circum compose-circumflex-map)
238 ;; time before we get a Unicode-compatible internal encoding is relatively 242 ;; time before we get a Unicode-compatible internal encoding is relatively
239 ;; short. 243 ;; short.
240 (let (unknown-code-points sym-string) 244 (let (unknown-code-points sym-string)
241 (dolist (x-keysym (hash-table-key-list (x-keysym-hash-table))) 245 (dolist (x-keysym (hash-table-key-list (x-keysym-hash-table)))
242 (setq sym-string (if (stringp x-keysym) x-keysym (symbol-name x-keysym))) 246 (setq sym-string (if (stringp x-keysym) x-keysym (symbol-name x-keysym)))
243 (when (and (not (get (intern sym-string) 'ascii-character)) 247 (when (and (not (get (intern sym-string) 'character-of-keysym))
244 (string-match "^U[0-9A-F]+$" sym-string)) 248 (string-match "^U[0-9A-F]+$" sym-string))
245 (pushnew (concat sym-string " ") unknown-code-points :test 'equal))) 249 (pushnew (concat sym-string " ") unknown-code-points :test 'equal)))
246 (when unknown-code-points 250 (when unknown-code-points
247 (lwarn 'key-mapping 'info 251 (lwarn 'key-mapping 'info
248 "Undefined Unicode key mappings. 252 "Undefined Unicode key mappings.
286 (defvar pre-x-win-initted nil) 290 (defvar pre-x-win-initted nil)
287 291
288 (defun init-pre-x-win () 292 (defun init-pre-x-win ()
289 "Initialize X Windows at startup (pre). Don't call this." 293 "Initialize X Windows at startup (pre). Don't call this."
290 (when (not pre-x-win-initted) 294 (when (not pre-x-win-initted)
291 (require 'x-iso8859-1)
292 (setq character-set-property 'x-iso8859/1) ; see x-iso8859-1.el
293
294 (setq initial-frame-plist (if initial-frame-unmapped-p 295 (setq initial-frame-plist (if initial-frame-unmapped-p
295 '(initially-unmapped t) 296 '(initially-unmapped t)
296 nil)) 297 nil))
297 (setq pre-x-win-initted t))) 298 (setq pre-x-win-initted t)))
298 299