diff options
| author | Kenichi Handa | 2007-02-01 01:46:58 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-02-01 01:46:58 +0000 |
| commit | fbfc1a5bd652f93b2a972af6cae155e56990be84 (patch) | |
| tree | fa47fd71da73a6aa4abb396c5a2cfc0043175d70 | |
| parent | fdb594455b1fd2c06d508ee24079ccae64cbe11b (diff) | |
| download | emacs-fbfc1a5bd652f93b2a972af6cae155e56990be84.tar.gz emacs-fbfc1a5bd652f93b2a972af6cae155e56990be84.zip | |
(quail-show-key): Fix previous change.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/quail.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56bfe69acd7..41641af1570 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2007-02-01 Kenichi Handa <handa@m17n.org> | ||
| 2 | |||
| 3 | * international/quail.el (quail-show-key): Signal an error if the | ||
| 4 | current input method is not using Quail. | ||
| 5 | |||
| 1 | 2007-02-01 J.D. Smith <jdsmith@as.arizona.edu> | 6 | 2007-02-01 J.D. Smith <jdsmith@as.arizona.edu> |
| 2 | 7 | ||
| 3 | * progmodes/idlwave.el (idlwave-xml-create-sysvar-alist): Trim | 8 | * progmodes/idlwave.el (idlwave-xml-create-sysvar-alist): Trim |
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 7cedcbf665a..a14d358c8ad 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 is not using 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) |