ChangeLog for the egg-its package: 2008-01-15 Katsumi Yamaoka * egg.el: Advise suppress-keymap to remap egg-self-insert-command to `undefined'. ChangeLog for the mule-base package: 2008-01-15 Katsumi Yamaoka * canna.el: Advise suppress-keymap to remap canna-self-insert-command to `undefined'. * mule-cne.el: Advise suppress-keymap to remap can-n-egg-self-insert-command to `undefined'. --- mule-packages/egg-its/egg.el~ 2001-05-08 11:18:52 +0000 +++ mule-packages/egg-its/egg.el 2008-01-15 09:58:46 +0000 @@ -2018,6 +2018,11 @@ 'egg-self-insert-command global-map) +(defadvice suppress-keymap (after remap-egg-self-insert-command activate) + "Remap `egg-self-insert-command' to `undefined'." + (substitute-key-definition 'egg-self-insert-command 'undefined + (ad-get-arg 0) global-map)) + ;; wire us into pending-delete (put 'egg-self-insert-command 'pending-delete t) --- mule-packages/mule-base/canna.el~ 2002-05-04 22:10:59 +0000 +++ mule-packages/mule-base/canna.el 2008-01-15 09:58:46 +0000 @@ -1166,4 +1166,9 @@ ) ) +(defadvice suppress-keymap (after remap-canna-self-insert-command activate) + "Remap `canna-self-insert-command' to `undefined'." + (substitute-key-definition 'canna-self-insert-command 'undefined + (ad-get-arg 0) global-map)) + ;;; ;;; auto fill controll (from egg) --- mule-packages/mule-base/mule-cne.el~ 1998-01-14 06:35:19 +0000 +++ mule-packages/mule-base/mule-cne.el 2008-01-15 09:58:46 +0000 @@ -86,3 +86,7 @@ (global-set-key (if egg-toggle-key egg-toggle-key "\C-\\") 'toggle-egg-mode) ) +(defadvice suppress-keymap (after remap-can-n-egg-self-insert-command activate) + "Remap `can-n-egg-self-insert-command' to `undefined'." + (substitute-key-definition 'can-n-egg-self-insert-command 'undefined + (ad-get-arg 0) global-map))