|
Lines 18-20
Link Here
|
| 18 |
(if anthy-xemacs |
18 |
(if anthy-xemacs |
| 19 |
(if (coding-system-p (find-coding-system 'euc-japan)) |
19 |
(if (coding-system-p (find-coding-system 'euc-japan)) |
| 20 |
(set-process-coding-system proc 'euc-japan 'euc-japan)) |
20 |
(set-process-coding-system proc 'euc-japan 'euc-japan)) |
|
|
21 |
@@ -864,7 +864,7 @@ |
| 22 |
;; leim $B$N(B activate |
| 23 |
;; |
| 24 |
(defun anthy-leim-activate (&optional name) |
| 25 |
- (setq inactivate-current-input-method-function 'anthy-leim-inactivate) |
| 26 |
+ (setq deactivate-current-input-method-function 'anthy-leim-inactivate) |
| 27 |
(setq anthy-leim-active-p t) |
| 28 |
(anthy-update-mode) |
| 29 |
(when (eq (selected-window) (minibuffer-window)) |
| 30 |
@@ -874,7 +874,7 @@ |
| 31 |
;; emacs$B$N%P%0Hr$1$i$7$$$G$9(B |
| 32 |
;; |
| 33 |
(defun anthy-leim-exit-from-minibuffer () |
| 34 |
- (inactivate-input-method) |
| 35 |
+ (deactivate-input-method) |
| 36 |
(when (<= (minibuffer-depth) 1) |
| 37 |
(remove-hook 'minibuffer-exit-hook 'anthy-leim-exit-from-minibuffer))) |
| 38 |
|