Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 22854:dd7dcda2d47b
(activate-input-method): Update mode line.
(inactivate-input-method): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 Jul 1998 06:50:59 +0000 |
| parents | 6af93eeeca10 |
| children | e24b79da83d6 |
comparison
equal
deleted
inserted
replaced
| 22853:62d2fb895f5f | 22854:dd7dcda2d47b |
|---|---|
| 759 (require (cdr func)) | 759 (require (cdr func)) |
| 760 (apply (car func) input-method (nthcdr 5 slot))) | 760 (apply (car func) input-method (nthcdr 5 slot))) |
| 761 (error "Can't activate input method `%s'" input-method)))) | 761 (error "Can't activate input method `%s'" input-method)))) |
| 762 (setq current-input-method input-method) | 762 (setq current-input-method input-method) |
| 763 (setq current-input-method-title (nth 3 slot)) | 763 (setq current-input-method-title (nth 3 slot)) |
| 764 (run-hooks 'input-method-activate-hook)))) | 764 (unwind-protect |
| 765 (run-hooks 'input-method-activate-hook) | |
| 766 (force-mode-line-update))))) | |
| 765 | 767 |
| 766 (defun inactivate-input-method () | 768 (defun inactivate-input-method () |
| 767 "Turn off the current input method." | 769 "Turn off the current input method." |
| 768 (when current-input-method | 770 (when current-input-method |
| 769 (if input-method-history | 771 (if input-method-history |
| 775 (unwind-protect | 777 (unwind-protect |
| 776 (funcall inactivate-current-input-method-function) | 778 (funcall inactivate-current-input-method-function) |
| 777 (unwind-protect | 779 (unwind-protect |
| 778 (run-hooks 'input-method-inactivate-hook) | 780 (run-hooks 'input-method-inactivate-hook) |
| 779 (setq current-input-method nil | 781 (setq current-input-method nil |
| 780 current-input-method-title nil))))) | 782 current-input-method-title nil) |
| 783 (force-mode-line-update))))) | |
| 781 | 784 |
| 782 (defun set-input-method (input-method) | 785 (defun set-input-method (input-method) |
| 783 "Select and activate input method INPUT-METHOD for the current buffer. | 786 "Select and activate input method INPUT-METHOD for the current buffer. |
| 784 This also sets the default input method to the one you specify." | 787 This also sets the default input method to the one you specify." |
| 785 (interactive | 788 (interactive |