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

Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 3d6bfa290dbd
children 1f0dabaa0855
line wrap: on
line diff
--- a/lisp/egg/egg.el	Mon Aug 13 10:02:48 2007 +0200
+++ b/lisp/egg/egg.el	Mon Aug 13 10:03:52 2007 +0200
@@ -2378,7 +2378,12 @@
 ;;; Currently entries C-\ and C-^ at global-map are undefined.
 ;;;
 
-(define-key global-map "\C-\\" 'toggle-egg-mode)
+;; Make this no-op if LEIM interface is used.
+(cond ((featurep 'egg-leim) t)
+      (t (define-key global-map "\C-\\" 'toggle-egg-mode)) )
+;; #### Should hide bindings like this, too?  However, `convert-region'
+;;      probably isn't going to be a LEIM feature, it's really pretty
+;;      Japanese and Korean specific.
 (define-key global-map "\C-x " 'henkan-region)
 
 ;; 92.3.16 by K.Handa