| 367 |
|
|
| 368 |
(defun kogiku-install-key () |
(defun kogiku-install-key () |
| 369 |
(when (memq minibuffer-completion-table kogiku-take-over-targets) |
(when (memq minibuffer-completion-table kogiku-take-over-targets) |
| 370 |
(push minibuffer-completion-table kogiku-original-completion-tables) |
(let ((table (car kogiku-original-completion-tables)) |
| 371 |
(push (lookup-key (current-local-map) kogiku-completion-key) |
(func (lookup-key (current-local-map) kogiku-completion-key)) |
| 372 |
kogiku-original-functions) |
(cfunc (lookup-key (current-local-map) kogiku-mode-change-key))) |
| 373 |
(define-key (current-local-map) kogiku-completion-key 'kogiku-complete) |
(if (eq func 'kogiku-complete) |
| 374 |
(push (lookup-key (current-local-map) kogiku-mode-change-key) |
(progn |
| 375 |
kogiku-mode-change-original-functions) |
(push table kogiku-original-completion-tables) |
| 376 |
(define-key (current-local-map) kogiku-mode-change-key 'kogiku-mode-change) |
(push (car kogiku-original-functions) |
| 377 |
(kogiku-minibuffer-prompt))) |
kogiku-original-functions) |
| 378 |
|
(push (car kogiku-mode-change-original-functions) |
| 379 |
|
kogiku-mode-change-original-functions)) |
| 380 |
|
(push minibuffer-completion-table kogiku-original-completion-tables) |
| 381 |
|
(push func kogiku-original-functions) |
| 382 |
|
(push cfunc kogiku-mode-change-original-functions)) |
| 383 |
|
(define-key (current-local-map) kogiku-completion-key 'kogiku-complete) |
| 384 |
|
(define-key (current-local-map) kogiku-mode-change-key 'kogiku-mode-change) |
| 385 |
|
(kogiku-minibuffer-prompt)))) |
| 386 |
|
|
| 387 |
(add-hook 'minibuffer-setup-hook 'kogiku-install-key) |
(add-hook 'minibuffer-setup-hook 'kogiku-install-key) |
| 388 |
|
|
Parent Directory
Revision Log
Revision Graph
Patch