Mercurial > hg > xemacs-beta

comparison lisp/egg/egg-quail.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
5 (or (featurep 'egg) 5 (or (featurep 'egg)
6 (error "You don't have EGG feature.")) 6 (error "You don't have EGG feature."))
7 7
8 (defconst quail-mode-egg-map (make-keymap)) 8 (defconst quail-mode-egg-map (make-keymap))
9 (set-keymap-parents quail-mode-egg-map (list quail-mode-map)) 9 (set-keymap-parents quail-mode-egg-map (list quail-mode-map))
10 (define-key quail-mode-egg-map " " 'quail-henkan-region)) 10 (define-key quail-mode-egg-map " " 'quail-henkan-region)
11 11
12 (defvar quail-henkan-start nil) 12 (defvar quail-henkan-start nil)
13 (make-variable-buffer-local 'quail-henkan-start) 13 (make-variable-buffer-local 'quail-henkan-start)
14 14
15 (defvar quail-henkan-start-char ?◇) 15 (defvar quail-henkan-start-char ?◇)
25 (define-key quail-henkan-mode-map "\C-l" 'quail-henkan-kakutei) 25 (define-key quail-henkan-mode-map "\C-l" 'quail-henkan-kakutei)
26 (define-key quail-henkan-mode-map "\C-m" 'quail-henkan-kakutei) 26 (define-key quail-henkan-mode-map "\C-m" 'quail-henkan-kakutei)
27 (define-key quail-henkan-mode-map "\C-c" 'quail-henkan-quit) 27 (define-key quail-henkan-mode-map "\C-c" 'quail-henkan-quit)
28 (define-key quail-henkan-mode-map "\C-g" 'quail-henkan-quit) 28 (define-key quail-henkan-mode-map "\C-g" 'quail-henkan-quit)
29 (define-key quail-henkan-mode-map "\177" 'quail-henkan-quit) 29 (define-key quail-henkan-mode-map "\177" 'quail-henkan-quit)
30 (define-key quail-henkan-mode-map "\eg" 'quail-henkan-quit)) 30 (define-key quail-henkan-mode-map "\eg" 'quail-henkan-quit)
31 31
32 (defun quail-henkan-mark () 32 (defun quail-henkan-mark ()
33 "Set mark at the current position to indicate starting point of henkan." 33 "Set mark at the current position to indicate starting point of henkan."
34 (interactive) 34 (interactive)
35 (quail-delete-region) 35 (quail-delete-region)