Function: PC-bindings

PC-bindings is a byte-compiled function defined in complete.el.gz.

Signature

(PC-bindings BIND)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/complete.el.gz
(defun PC-bindings (bind)
  (let ((completion-map minibuffer-local-completion-map)
	(must-match-map minibuffer-local-must-match-map))
    (cond ((not bind)
	   ;; These bindings are the default bindings.  It would be better to
	   ;; restore the previous bindings.
	   (define-key read-expression-map "\e\t" #'completion-at-point)

	   (define-key completion-map "\t"	#'minibuffer-complete)
	   (define-key completion-map " "	#'minibuffer-complete-word)
	   (define-key completion-map "?"	#'minibuffer-completion-help)

	   (define-key must-match-map "\r"	#'minibuffer-complete-and-exit)
	   (define-key must-match-map "\n"	#'minibuffer-complete-and-exit)

	   (define-key global-map [remap lisp-complete-symbol]	nil))
	  (PC-default-bindings
	   (define-key read-expression-map "\e\t" #'PC-lisp-complete-symbol)

	   (define-key completion-map "\t"	#'PC-complete)
	   (define-key completion-map " "	#'PC-complete-word)
	   (define-key completion-map "?"	#'PC-completion-help)

	   (define-key completion-map "\e\t"	#'PC-complete)
	   (define-key completion-map "\e "	#'PC-complete-word)
	   (define-key completion-map "\e\r"	#'PC-force-complete-and-exit)
	   (define-key completion-map "\e\n"	#'PC-force-complete-and-exit)
	   (define-key completion-map "\e?"	#'PC-completion-help)

	   (define-key must-match-map "\r"	#'PC-complete-and-exit)
	   (define-key must-match-map "\n"	#'PC-complete-and-exit)

	   (define-key must-match-map "\e\r"	#'PC-complete-and-exit)
	   (define-key must-match-map "\e\n"	#'PC-complete-and-exit)

	   (define-key global-map [remap lisp-complete-symbol]	#'PC-lisp-complete-symbol)))))