Function: mh-letter-complete-or-space
mh-letter-complete-or-space is an interactive and byte-compiled
function defined in mh-letter.el.gz.
Signature
(mh-letter-complete-or-space ARG)
Documentation
Perform completion or insert space.
Turn on the option mh-compose-space-does-completion-flag to use
this command to perform completion in the header. Otherwise, a
space is inserted; use a prefix argument ARG to specify more than
one space.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/mh-e/mh-letter.el.gz
(defun mh-letter-complete-or-space (arg)
"Perform completion or insert space.
Turn on the option `mh-compose-space-does-completion-flag' to use
this command to perform completion in the header. Otherwise, a
space is inserted; use a prefix argument ARG to specify more than
one space."
(interactive "p")
(let ((end-of-prev (save-excursion
(goto-char (mh-beginning-of-word))
(mh-beginning-of-word -1))))
(cond ((not mh-compose-space-does-completion-flag)
(self-insert-command arg))
;; FIXME: This > test is redundant now that all the completion
;; functions do it anyway.
((> (point) end-of-prev) (self-insert-command arg))
((let ((mh-letter-complete-function nil))
(mh-letter-completion-at-point))
(completion-at-point))
(t (self-insert-command arg)))))