Mercurial > emacs
comparison lisp/international/quail.el @ 20160:b8234ea503cd
(quail-require-guidance-buf): Adjusted
for the change of input-method-verbose-flag.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 23 Oct 1997 12:05:45 +0000 |
| parents | 470e157b3e8a |
| children | d938bdf82445 |
comparison
equal
deleted
inserted
replaced
| 20159:dce0d588d203 | 20160:b8234ea503cd |
|---|---|
| 1429 | 1429 |
| 1430 ;; Return t iff the current Quail package requires showing guidance | 1430 ;; Return t iff the current Quail package requires showing guidance |
| 1431 ;; buffer. | 1431 ;; buffer. |
| 1432 (defun quail-require-guidance-buf () | 1432 (defun quail-require-guidance-buf () |
| 1433 (and input-method-verbose-flag | 1433 (and input-method-verbose-flag |
| 1434 (not (and (eq (selected-window) (minibuffer-window)) | 1434 (if (eq input-method-verbose-flag 'default) |
| 1435 (quail-simple))))) | 1435 (not (and (eq (selected-window) (minibuffer-window)) |
| 1436 (quail-simple))) | |
| 1437 (if (eq input-method-verbose-flag 'complex-only) | |
| 1438 (not (quail-simple)) | |
| 1439 t)))) | |
| 1436 | 1440 |
| 1437 (defun quail-show-guidance-buf () | 1441 (defun quail-show-guidance-buf () |
| 1438 "Display a guidance buffer for Quail input method in some window. | 1442 "Display a guidance buffer for Quail input method in some window. |
| 1439 Create the buffer if it does not exist yet. | 1443 Create the buffer if it does not exist yet. |
| 1440 The buffer is normally displayed at the echo area, | 1444 The buffer is normally displayed at the echo area, |