Commit fff1a077 authored by Chong Yidong's avatar Chong Yidong
Browse files

(PC-bindings): Rebind M-TAB in read-expression-map.

parent 18d8c1e0
......@@ -147,6 +147,8 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
(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" 'lisp-complete-symbol)
(define-key completion-map "\t" 'minibuffer-complete)
(define-key completion-map " " 'minibuffer-complete-word)
(define-key completion-map "?" 'minibuffer-completion-help)
......@@ -159,6 +161,8 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment