changeset 76389:dea4a6c39682

(PC-bindings): Rebind M-TAB in read-expression-map.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 08 Mar 2007 14:50:59 +0000
parents f96010398e67
children 6f253cc8e06e
files lisp/complete.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/complete.el	Thu Mar 08 14:50:53 2007 +0000
+++ b/lisp/complete.el	Thu Mar 08 14:50:59 2007 +0000
@@ -147,6 +147,8 @@
     (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 @@
 
 	   (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)