Mercurial > emacs
changeset 84813:4dde7b21b50b
(completion-separator-self-insert-command)
(completion-separator-self-insert-autofilling):
If `self-insert-command' has been remapped, use the substitute.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Sep 2007 15:27:38 +0000 |
| parents | b3ee425c3884 |
| children | d2ce910aed7e |
| files | lisp/completion.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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