Mercurial > emacs
comparison lisp/international/quail.el @ 29145:79b2b42f9a7b
(quail-start-translation): Don't change
modified-p of the current buffer.
(quail-start-conversion): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 24 May 2000 06:41:32 +0000 |
| parents | 1fad86b8adfc |
| children | 44c929164604 |
comparison
equal
deleted
inserted
replaced
| 29144:26417bd6a99c | 29145:79b2b42f9a7b |
|---|---|
| 946 ;; OK, we can start translation. | 946 ;; OK, we can start translation. |
| 947 (let* ((echo-keystrokes 0) | 947 (let* ((echo-keystrokes 0) |
| 948 (help-char nil) | 948 (help-char nil) |
| 949 (overriding-terminal-local-map (quail-translation-keymap)) | 949 (overriding-terminal-local-map (quail-translation-keymap)) |
| 950 (generated-events nil) | 950 (generated-events nil) |
| 951 (input-method-function nil)) | 951 (input-method-function nil) |
| 952 (modified-p (buffer-modified-p))) | |
| 952 (setq quail-current-key "" | 953 (setq quail-current-key "" |
| 953 quail-current-str "" | 954 quail-current-str "" |
| 954 quail-translating t) | 955 quail-translating t) |
| 955 (if key | 956 (if key |
| 956 (setq unread-command-events (cons key unread-command-events))) | 957 (setq unread-command-events (cons key unread-command-events))) |
| 957 (while quail-translating | 958 (while quail-translating |
| 959 (set-buffer-modified-p modified-p) | |
| 958 (let* ((keyseq (read-key-sequence | 960 (let* ((keyseq (read-key-sequence |
| 959 (and input-method-use-echo-area | 961 (and input-method-use-echo-area |
| 960 (concat input-method-previous-message | 962 (concat input-method-previous-message |
| 961 quail-current-str)) | 963 quail-current-str)) |
| 962 nil nil t)) | 964 nil nil t)) |
| 1020 ;; Ok, we can start translation and conversion. | 1022 ;; Ok, we can start translation and conversion. |
| 1021 (let* ((echo-keystrokes 0) | 1023 (let* ((echo-keystrokes 0) |
| 1022 (help-char nil) | 1024 (help-char nil) |
| 1023 (overriding-terminal-local-map (quail-conversion-keymap)) | 1025 (overriding-terminal-local-map (quail-conversion-keymap)) |
| 1024 (generated-events nil) | 1026 (generated-events nil) |
| 1025 (input-method-function nil)) | 1027 (input-method-function nil) |
| 1028 (modified-p (buffer-modified-p))) | |
| 1026 (setq quail-current-key "" | 1029 (setq quail-current-key "" |
| 1027 quail-current-str "" | 1030 quail-current-str "" |
| 1028 quail-translating t | 1031 quail-translating t |
| 1029 quail-converting t | 1032 quail-converting t |
| 1030 quail-conversion-str "") | 1033 quail-conversion-str "") |
| 1031 (if key | 1034 (if key |
| 1032 (setq unread-command-events (cons key unread-command-events))) | 1035 (setq unread-command-events (cons key unread-command-events))) |
| 1033 (while quail-converting | 1036 (while quail-converting |
| 1037 (set-buffer-modified-p modified-p) | |
| 1034 (or quail-translating | 1038 (or quail-translating |
| 1035 (progn | 1039 (progn |
| 1036 (setq quail-current-key "" | 1040 (setq quail-current-key "" |
| 1037 quail-current-str "" | 1041 quail-current-str "" |
| 1038 quail-translating t) | 1042 quail-translating t) |