summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2007-06-11 22:10:24 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2007-06-11 22:10:24 +0000
commitb4879b4331e5b51d40e0d144fbe3f7570047f838 (patch)
treed5baaa21131b0d61f74aa230a0bf25e88a6f6be4
parent37fcd54a632122f70869a1ad9bf209ef2b856d08 (diff)
downloademacs-b4879b4331e5b51d40e0d144fbe3f7570047f838.tar.gz
(PC-bindings): Don't bind things already bound in the parent keymap.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/complete.el9
2 files changed, 3 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c5a6300ae0..c9b2e0adecf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2007-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
+ * complete.el (PC-bindings): Don't bind things already bound in the
+ parent keymap.
+
* textmodes/bibtex-style.el: New file.
2007-06-11 Riccardo Murri <riccardo.murri@gmail.com>
diff --git a/lisp/complete.el b/lisp/complete.el
index b1bb36f9dfa..7d9bd989089 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -153,11 +153,8 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
(define-key completion-map " " 'minibuffer-complete-word)
(define-key completion-map "?" 'minibuffer-completion-help)
- (define-key must-match-map "\t" 'minibuffer-complete)
- (define-key must-match-map " " 'minibuffer-complete-word)
(define-key must-match-map "\r" 'minibuffer-complete-and-exit)
(define-key must-match-map "\n" 'minibuffer-complete-and-exit)
- (define-key must-match-map "?" 'minibuffer-completion-help)
(define-key global-map [remap lisp-complete-symbol] nil))
(PC-default-bindings
@@ -173,17 +170,11 @@ If nil, means use the colon-separated path in the variable $INCPATH instead."
(define-key completion-map "\e\n" 'PC-force-complete-and-exit)
(define-key completion-map "\e?" 'PC-completion-help)
- (define-key must-match-map "\t" 'PC-complete)
- (define-key must-match-map " " 'PC-complete-word)
(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 "?" 'PC-completion-help)
- (define-key must-match-map "\e\t" 'PC-complete)
- (define-key must-match-map "\e " 'PC-complete-word)
(define-key must-match-map "\e\r" 'PC-complete-and-exit)
(define-key must-match-map "\e\n" 'PC-complete-and-exit)
- (define-key must-match-map "\e?" 'PC-completion-help)
(define-key global-map [remap lisp-complete-symbol] 'PC-lisp-complete-symbol)))))