Mercurial > hg > xemacs-beta

diff lisp/mule/mule-keyboard.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 131b0175ea99
children
line wrap: on
line diff
--- a/lisp/mule/mule-keyboard.el	Mon Aug 13 09:31:13 2007 +0200
+++ b/lisp/mule/mule-keyboard.el	Mon Aug 13 09:31:46 2007 +0200
@@ -93,6 +93,10 @@
   (self-insert-internal char)
   (check-auto-fill))
 
+;; ### I think this is the right function to put this on... must check further
+;; wire us into pending-delete
+(put 'keyboard-self-insert-do-insert 'pending-delete t)
+
 (defun keyboard-use-local-map-do-insert (map)
   (use-local-map map))