diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-09-23 15:27:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-09-23 15:27:38 +0000 |
| commit | 3e7a2d671a56e40c390f40333592dc3bd95296f7 (patch) | |
| tree | 0f4d44c969838d764a1706fd826f5a1e9f6c4ef8 /lisp/completion.el | |
| parent | b66eb11bece1d0922972fb4dcf45b834ee354293 (diff) | |
| download | emacs-3e7a2d671a56e40c390f40333592dc3bd95296f7.tar.gz emacs-3e7a2d671a56e40c390f40333592dc3bd95296f7.tar.bz2 emacs-3e7a2d671a56e40c390f40333592dc3bd95296f7.zip | |
(completion-separator-self-insert-command)
(completion-separator-self-insert-autofilling):
If `self-insert-command' has been remapped, use the substitute.
Diffstat (limited to 'lisp/completion.el')
| -rw-r--r-- | lisp/completion.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/completion.el b/lisp/completion.el index b8bf5bd93b8..c2e9ac9493f 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -2231,15 +2231,19 @@ Patched to remove the most recent completion." (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 |