diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-03-08 14:50:59 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-03-08 14:50:59 +0000 |
| commit | 313a314ff2d0b698cda0ad6a8c2eca38ac2a83fc (patch) | |
| tree | f4942c1925b15847d1f34e90235badee2b3cdda5 /lisp/complete.el | |
| parent | bc4bedd63dd6e9ff25b10d32d8ebd1716fc6424c (diff) | |
| download | emacs-313a314ff2d0b698cda0ad6a8c2eca38ac2a83fc.tar.gz | |
(PC-bindings): Rebind M-TAB in read-expression-map.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 454432aef21..5762a5dd69c 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -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) |