diff options
| author | Kenichi Handa | 2009-01-16 12:36:20 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2009-01-16 12:36:20 +0000 |
| commit | 76472dc27000f6e6f8722359cc3c43d6faaf0acd (patch) | |
| tree | 892ef2a538e9f9025f76c44a795c8a5406e2d3cb | |
| parent | 64bd06a8189423d05123bc3a88a3aae24c27114f (diff) | |
| download | emacs-76472dc27000f6e6f8722359cc3c43d6faaf0acd.tar.gz emacs-76472dc27000f6e6f8722359cc3c43d6faaf0acd.zip | |
(quail-insert-kbd-layout): Delete superfluous handling of 8-bit code.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/quail.el | 4 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6409eac3242..3b5aeefc7ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2009-01-16 Ulrich Mueller <ulm@kph.uni-mainz.de> | ||
| 2 | |||
| 3 | * international/quail.el (quail-insert-kbd-layout): Delete | ||
| 4 | superfluous handling of 8-bit code. (Bug#1418) | ||
| 5 | |||
| 1 | 2009-01-16 Glenn Morris <rgm@gnu.org> | 6 | 2009-01-16 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * emacs-lisp/eldoc.el: Remove leading `*' from defcustoms. | 8 | * emacs-lisp/eldoc.el: Remove leading `*' from defcustoms. |
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index db2e09c7340..494c3301ed0 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -830,10 +830,6 @@ The format of KBD-LAYOUT is the same as `quail-keyboard-layout'." | |||
| 830 | (insert-char 32 (+ row (/ (- row 2) 2))))) | 830 | (insert-char 32 (+ row (/ (- row 2) 2))))) |
| 831 | (setq lower (aref layout i) | 831 | (setq lower (aref layout i) |
| 832 | upper (aref layout (1+ i))) | 832 | upper (aref layout (1+ i))) |
| 833 | (if (and (integerp lower) (>= lower 128) (< lower 256)) | ||
| 834 | (setq lower (unibyte-char-to-multibyte lower))) | ||
| 835 | (if (and (integerp upper) (>= upper 128) (< upper 256)) | ||
| 836 | (setq upper (unibyte-char-to-multibyte upper))) | ||
| 837 | (insert bar) | 833 | (insert bar) |
| 838 | (if (= (if (stringp lower) (string-width lower) (char-width lower)) 1) | 834 | (if (= (if (stringp lower) (string-width lower) (char-width lower)) 1) |
| 839 | (insert " ")) | 835 | (insert " ")) |