Mercurial > hg > xemacs-beta

comparison lisp/egg/egg.el @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 3d6bfa290dbd
children 1f0dabaa0855
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
2376 2376
2377 ;;; 2377 ;;;
2378 ;;; Currently entries C-\ and C-^ at global-map are undefined. 2378 ;;; Currently entries C-\ and C-^ at global-map are undefined.
2379 ;;; 2379 ;;;
2380 2380
2381 (define-key global-map "\C-\\" 'toggle-egg-mode) 2381 ;; Make this no-op if LEIM interface is used.
2382 (cond ((featurep 'egg-leim) t)
2383 (t (define-key global-map "\C-\\" 'toggle-egg-mode)) )
2384 ;; #### Should hide bindings like this, too? However, `convert-region'
2385 ;; probably isn't going to be a LEIM feature, it's really pretty
2386 ;; Japanese and Korean specific.
2382 (define-key global-map "\C-x " 'henkan-region) 2387 (define-key global-map "\C-x " 'henkan-region)
2383 2388
2384 ;; 92.3.16 by K.Handa 2389 ;; 92.3.16 by K.Handa
2385 ;; global-map => mule-keymap 2390 ;; global-map => mule-keymap
2386 (define-key mule-keymap "m" 'its:select-mode-from-menu) 2391 (define-key mule-keymap "m" 'its:select-mode-from-menu)