diff options
| author | Kenichi Handa | 2007-02-02 11:44:14 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-02-02 11:44:14 +0000 |
| commit | 06d5f4096306a10806f90a079e01c1338149ea2a (patch) | |
| tree | 6cbf11fa781de6210bca0e126e0a432ff71b4514 | |
| parent | 72827a91e8af0e34144b7f5a3ddda20d190fc7ef (diff) | |
| download | emacs-06d5f4096306a10806f90a079e01c1338149ea2a.tar.gz emacs-06d5f4096306a10806f90a079e01c1338149ea2a.zip | |
(quail-show-key): Fix an error message.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/international/quail.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8feee8cbe27..69a187bcadd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2007-02-02 Kenichi Handa <handa@m17n.org> | ||
| 2 | |||
| 3 | * international/quail.el (quail-show-key): Fix an error message. | ||
| 4 | |||
| 1 | 2007-02-01 Juanma Barranquero <lekktu@gmail.com> | 5 | 2007-02-01 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 6 | ||
| 3 | * faces.el (set-face-underline-p, modify-face): Rename arg | 7 | * faces.el (set-face-underline-p, modify-face): Rename arg |
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index a14d358c8ad..340c035ca42 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -2773,7 +2773,7 @@ If CHAR is an ASCII character and can be input by typing itself, return t." | |||
| 2773 | (or current-input-method | 2773 | (or current-input-method |
| 2774 | (error "No input method is activated")) | 2774 | (error "No input method is activated")) |
| 2775 | (or (assoc current-input-method quail-package-alist) | 2775 | (or (assoc current-input-method quail-package-alist) |
| 2776 | (error "The current input method is not using Quail")) | 2776 | (error "The current input method does not use Quail")) |
| 2777 | (let* ((char (following-char)) | 2777 | (let* ((char (following-char)) |
| 2778 | (key-list (quail-find-key char))) | 2778 | (key-list (quail-find-key char))) |
| 2779 | (cond ((consp key-list) | 2779 | (cond ((consp key-list) |