diff options
| author | Kim F. Storm | 2007-03-07 15:08:46 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2007-03-07 15:08:46 +0000 |
| commit | 6e52f715f3c389100a2a6450ee91081046d2460d (patch) | |
| tree | eaf002dab12bd647e2868b09e2cdd5c5ca46afc5 /lisp | |
| parent | 5b8ba528573eb96abfc4ce1f9c30786d43a2310b (diff) | |
| download | emacs-6e52f715f3c389100a2a6450ee91081046d2460d.tar.gz emacs-6e52f715f3c389100a2a6450ee91081046d2460d.zip | |
(PC-bindings): Remap lisp-complete-symbol to
PC-lisp-complete-symbol instead of binding M-TAB in global-map.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/complete.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
| 157 | (define-key must-match-map "\n" 'minibuffer-complete-and-exit) | 157 | (define-key must-match-map "\n" 'minibuffer-complete-and-exit) |
| 158 | (define-key must-match-map "?" 'minibuffer-completion-help) | 158 | (define-key must-match-map "?" 'minibuffer-completion-help) |
| 159 | 159 | ||
| 160 | (define-key global-map "\e\t" 'complete-symbol)) | 160 | (define-key global-map [remap lisp-complete-symbol] nil)) |
| 161 | (PC-default-bindings | 161 | (PC-default-bindings |
| 162 | (define-key completion-map "\t" 'PC-complete) | 162 | (define-key completion-map "\t" 'PC-complete) |
| 163 | (define-key completion-map " " 'PC-complete-word) | 163 | (define-key completion-map " " 'PC-complete-word) |
| @@ -181,7 +181,7 @@ If nil, means use the colon-separated path in the variable $INCPATH instead." | |||
| 181 | (define-key must-match-map "\e\n" 'PC-complete-and-exit) | 181 | (define-key must-match-map "\e\n" 'PC-complete-and-exit) |
| 182 | (define-key must-match-map "\e?" 'PC-completion-help) | 182 | (define-key must-match-map "\e?" 'PC-completion-help) |
| 183 | 183 | ||
| 184 | (define-key global-map "\e\t" 'PC-lisp-complete-symbol))))) | 184 | (define-key global-map [remap lisp-complete-symbol] 'PC-lisp-complete-symbol))))) |
| 185 | 185 | ||
| 186 | ;;;###autoload | 186 | ;;;###autoload |
| 187 | (define-minor-mode partial-completion-mode | 187 | (define-minor-mode partial-completion-mode |