# HG changeset patch # User Richard M. Stallman # Date 1190561258 0 # Node ID 4dde7b21b50b5b076ec4b9d53257e7f7fbd9c190 # Parent b3ee425c38844718c3760f4cf3fb5f138ecf9faa (completion-separator-self-insert-command) (completion-separator-self-insert-autofilling): If `self-insert-command' has been remapped, use the substitute. diff -r b3ee425c3884 -r 4dde7b21b50b lisp/completion.el --- a/lisp/completion.el Sun Sep 23 15:22:47 2007 +0000 +++ b/lisp/completion.el Sun Sep 23 15:27:38 2007 +0000 @@ -2231,15 +2231,19 @@ (defun completion-separator-self-insert-command (arg) (interactive "p") - (use-completion-before-separator) - (self-insert-command arg)) + (if (command-remapping 'self-insert-command) + (funcall (command-remapping 'self-insert-command) arg) + (use-completion-before-separator) + (self-insert-command arg))) (defun completion-separator-self-insert-autofilling (arg) (interactive "p") - (use-completion-before-separator) - (self-insert-command arg) - (and auto-fill-function - (funcall auto-fill-function))) + (if (command-remapping 'self-insert-command) + (funcall (command-remapping 'self-insert-command) arg) + (use-completion-before-separator) + (self-insert-command arg) + (and auto-fill-function + (funcall auto-fill-function)))) ;;----------------------------------------------- ;; Wrapping Macro