From: Kim F. Storm <storm@cua.dk>
Date: Wed, 7 Mar 2007 15:08:46 +0000 (+0000)
Subject: (PC-bindings): Remap lisp-complete-symbol to
X-Git-Tag: emacs-pretest-22.0.96~213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e52f715f3c389100a2a6450ee91081046d2460d;p=emacs.git

(PC-bindings): Remap lisp-complete-symbol to
PC-lisp-complete-symbol instead of binding M-TAB in global-map.
---

diff --git a/lisp/complete.el b/lisp/complete.el
index 5b77f49ebdf..454432aef21 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -157,7 +157,7 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
 	   (define-key must-match-map "\n"	'minibuffer-complete-and-exit)
 	   (define-key must-match-map "?"	'minibuffer-completion-help)
 
-	   (define-key global-map "\e\t"	'complete-symbol))
+	   (define-key global-map [remap lisp-complete-symbol]	nil))
 	  (PC-default-bindings
 	   (define-key completion-map "\t"	'PC-complete)
 	   (define-key completion-map " "	'PC-complete-word)
@@ -181,7 +181,7 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
 	   (define-key must-match-map "\e\n"	'PC-complete-and-exit)
 	   (define-key must-match-map "\e?"	'PC-completion-help)
 
-	   (define-key global-map "\e\t"	'PC-lisp-complete-symbol)))))
+	   (define-key global-map [remap lisp-complete-symbol]	'PC-lisp-complete-symbol)))))
 
 ;;;###autoload
 (define-minor-mode partial-completion-mode