Mercurial > hg > xemacs-beta
comparison lisp/leim/quail.el @ 213:78f53ef88e17 r20-4b5
Import from CVS: tag r20-4b5
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:06:47 +0200 |
| parents | acd284d43ca1 |
| children | 1f0dabaa0855 |
comparison
equal
deleted
inserted
replaced
| 212:d8688acf4c5b | 213:78f53ef88e17 |
|---|---|
| 307 (define-key map [?\C-\ ] 'quail-select-current) | 307 (define-key map [?\C-\ ] 'quail-select-current) |
| 308 (define-key map [tab] 'quail-completion) | 308 (define-key map [tab] 'quail-completion) |
| 309 (define-key map [delete] 'quail-delete-last-char) | 309 (define-key map [delete] 'quail-delete-last-char) |
| 310 (define-key map [backspace] 'quail-delete-last-char) | 310 (define-key map [backspace] 'quail-delete-last-char) |
| 311 (let ((meta-map (make-sparse-keymap))) | 311 (let ((meta-map (make-sparse-keymap))) |
| 312 (define-key map (char-to-string meta-prefix-char) meta-map) | 312 (when (characterp meta-prefix-char) |
| 313 (define-key map (char-to-string meta-prefix-char) meta-map)) | |
| 313 (define-key map [escape] meta-map)) | 314 (define-key map [escape] meta-map)) |
| 314 (define-key map (vector meta-prefix-char t) | 315 (when (characterp meta-prefix-char) |
| 315 'quail-execute-non-quail-command) | 316 (define-key map (vector meta-prefix-char t) |
| 317 'quail-execute-non-quail-command)) | |
| 316 ;; At last, define default key binding. | 318 ;; At last, define default key binding. |
| 317 (set-keymap-default-binding map 'quail-execute-non-quail-command) | 319 (set-keymap-default-binding map 'quail-execute-non-quail-command) |
| 318 map) | 320 map) |
| 319 "Keymap used processing translation in complex Quail modes. | 321 "Keymap used processing translation in complex Quail modes. |
| 320 Only a few especially complex input methods use this map; | 322 Only a few especially complex input methods use this map; |
| 334 (define-key map [delete] 'quail-delete-last-char) | 336 (define-key map [delete] 'quail-delete-last-char) |
| 335 (define-key map [backspace] 'quail-delete-last-char) | 337 (define-key map [backspace] 'quail-delete-last-char) |
| 336 ;;; This interferes with handling of escape sequences on non-X terminals. | 338 ;;; This interferes with handling of escape sequences on non-X terminals. |
| 337 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 339 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) |
| 338 (let ((meta-map (make-sparse-keymap))) | 340 (let ((meta-map (make-sparse-keymap))) |
| 339 (define-key map (char-to-string meta-prefix-char) meta-map) | 341 (when (characterp meta-prefix-char) |
| 342 (define-key map (char-to-string meta-prefix-char) meta-map)) | |
| 340 (define-key map [escape] meta-map)) | 343 (define-key map [escape] meta-map)) |
| 341 (define-key map (vector meta-prefix-char t) | 344 (when (characterp meta-prefix-char) |
| 342 'quail-execute-non-quail-command) | 345 (define-key map (vector meta-prefix-char t) |
| 346 'quail-execute-non-quail-command)) | |
| 343 ;; At last, define default key binding. | 347 ;; At last, define default key binding. |
| 344 (set-keymap-default-binding map 'quail-execute-non-quail-command) | 348 (set-keymap-default-binding map 'quail-execute-non-quail-command) |
| 345 map) | 349 map) |
| 346 "Keymap used while processing translation in simple Quail modes. | 350 "Keymap used while processing translation in simple Quail modes. |
| 347 A few especially complex input methods use `quail--translation-keymap' instead. | 351 A few especially complex input methods use `quail--translation-keymap' instead. |
| 368 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 372 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) |
| 369 (define-key map "\177" 'quail-conversion-backward-delete-char) | 373 (define-key map "\177" 'quail-conversion-backward-delete-char) |
| 370 (define-key map [delete] 'quail-conversion-backward-delete-char) | 374 (define-key map [delete] 'quail-conversion-backward-delete-char) |
| 371 (define-key map [backspace] 'quail-conversion-backward-delete-char) | 375 (define-key map [backspace] 'quail-conversion-backward-delete-char) |
| 372 (let ((meta-map (make-sparse-keymap))) | 376 (let ((meta-map (make-sparse-keymap))) |
| 373 (define-key map (char-to-string meta-prefix-char) meta-map) | 377 (when (characterp meta-prefix-char) |
| 378 (define-key map (char-to-string meta-prefix-char) meta-map)) | |
| 374 (define-key map [escape] meta-map)) | 379 (define-key map [escape] meta-map)) |
| 375 (define-key map (vector meta-prefix-char t) | 380 (when (characterp meta-prefix-char) |
| 376 'quail-execute-non-quail-command) | 381 (define-key map (vector meta-prefix-char t) |
| 382 'quail-execute-non-quail-command)) | |
| 377 ;; At last, define default key binding. | 383 ;; At last, define default key binding. |
| 378 (set-keymap-default-binding map 'quail-execute-non-quail-command) | 384 (set-keymap-default-binding map 'quail-execute-non-quail-command) |
| 379 map) | 385 map) |
| 380 "Keymap used for processing conversion in Quail mode. | 386 "Keymap used for processing conversion in Quail mode. |
| 381 This map is activated while convesion region is active but translation | 387 This map is activated while convesion region is active but translation |