mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(completion-separator-self-insert-command)

Browse Source 
(completion-separator-self-insert-autofilling):
If `self-insert-command' has been remapped, use the substitute.
This commit is contained in:
Richard M. Stallman 2007-09-23 15:27:38 +00:00
parent b66eb11bec
commit 3e7a2d671a
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/completion.el
View File

@ -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