Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
90 (error "invalid keyboard-coding-system"))) 90 (error "invalid keyboard-coding-system")))
91 91
92 (defun keyboard-self-insert-do-insert (char) 92 (defun keyboard-self-insert-do-insert (char)
93 (self-insert-internal char) 93 (self-insert-internal char)
94 (check-auto-fill)) 94 (check-auto-fill))
95
96 ;; ### I think this is the right function to put this on... must check further
97 ;; wire us into pending-delete
98 (put 'keyboard-self-insert-do-insert 'pending-delete t)
95 99
96 (defun keyboard-use-local-map-do-insert (map) 100 (defun keyboard-use-local-map-do-insert (map)
97 (use-local-map map)) 101 (use-local-map map))
98 102
99 (defun keyboard-current-local-map-do-insert () 103 (defun keyboard-current-local-map-do-insert ()