Mercurial > hg > xemacs-beta
comparison lisp/keymap.el @ 2828:a25c824ed558
[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 | 1b0339b048ce |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 2827:936a6576c655 | 2828:a25c824ed558 |
|---|---|
| 336 ;; the list/symbol form; but I expect that would cause confusion, | 336 ;; the list/symbol form; but I expect that would cause confusion, |
| 337 ;; so let's use the list/symbol form whenever there's | 337 ;; so let's use the list/symbol form whenever there's |
| 338 ;; any ambiguity. | 338 ;; any ambiguity. |
| 339 (setq c (event-to-character ce)) | 339 (setq c (event-to-character ce)) |
| 340 (if (and c | 340 (if (and c |
| 341 character-set-property | |
| 342 (key-press-event-p ce)) | 341 (key-press-event-p ce)) |
| 343 (cond ((symbolp (event-key ce)) | 342 (cond ((symbolp (event-key ce)) |
| 344 (if (get (event-key ce) character-set-property) | 343 (if (get (event-key ce) 'character-of-keysym) |
| 345 ;; Don't use a string for `backspace' and `tab' to | 344 ;; Don't use a string for `backspace' and `tab' to |
| 346 ;; avoid that unpleasant little ambiguity. | 345 ;; avoid that unpleasant little ambiguity. |
| 347 (setq c nil))) | 346 (setq c nil))) |
| 348 ((and (= (event-modifier-bits ce) 1) ;control | 347 ((and (= (event-modifier-bits ce) 1) ;control |
| 349 (integerp (event-key ce))) | 348 (integerp (event-key ce))) |
| 350 (let* ((te (character-to-event c))) | 349 (let* ((te (character-to-event c))) |
| 351 (if (and (symbolp (event-key te)) | 350 (if (and (symbolp (event-key te)) |
| 352 (get (event-key te) character-set-property)) | 351 (get (event-key te) 'character-of-keysym)) |
| 353 ;; Don't "normalize" (control i) to tab | 352 ;; Don't "normalize" (control i) to tab |
| 354 ;; to avoid the ambiguity in the other direction | 353 ;; to avoid the ambiguity in the other direction |
| 355 (setq c nil)) | 354 (setq c nil)) |
| 356 (deallocate-event te))))) | 355 (deallocate-event te))))) |
| 357 (if c | 356 (if c |