Function: use-completion-before-separator

use-completion-before-separator is a byte-compiled function defined in completion.el.gz.

Signature

(use-completion-before-separator)

Documentation

Add the completion symbol before point into the completion buffer.

Completions added this way will automatically be saved if completion-on-separator-character is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/completion.el.gz
(defun use-completion-before-separator ()
  "Add the completion symbol before point into the completion buffer.
Completions added this way will automatically be saved if
`completion-on-separator-character' is non-nil."
  (let ((string (and enable-completion (symbol-before-point)))
	(current-completion-source cmpl-source-separator)
	entry)
    (cond (string
	   (setq entry (add-completion-to-head string))
	   (if (and completion-on-separator-character
		      (zerop (completion-num-uses entry)))
	       (progn
		 (set-completion-num-uses entry 1)
		 (setq cmpl-completions-accepted-p t)))))))