Mercurial > emacs
comparison lisp/international/quail.el @ 24304:cef9cf0a46b4
(quail-show-kbd-layout): Bind blink-matching-paren to nil.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 12 Feb 1999 12:40:54 +0000 |
| parents | 20d23ea9713b |
| children | 7f6aadd2625b |
comparison
equal
deleted
inserted
replaced
| 24303:958f4aa0dceb | 24304:cef9cf0a46b4 |
|---|---|
| 1878 (insert-buffer-substring "*Help*" from to))) | 1878 (insert-buffer-substring "*Help*" from to))) |
| 1879 | 1879 |
| 1880 (defun quail-show-kbd-layout () | 1880 (defun quail-show-kbd-layout () |
| 1881 "Show keyboard layout with key tops of multilingual characters." | 1881 "Show keyboard layout with key tops of multilingual characters." |
| 1882 (insert "--- Keyboard layout ---\n") | 1882 (insert "--- Keyboard layout ---\n") |
| 1883 (let* ((i 0) ch) | 1883 (let ((blink-matching-paren nil) |
| 1884 (i 0) | |
| 1885 ch) | |
| 1884 (while (< i quail-keyboard-layout-len) | 1886 (while (< i quail-keyboard-layout-len) |
| 1885 (if (= (% i 30) 0) | 1887 (if (= (% i 30) 0) |
| 1886 (progn | 1888 (progn |
| 1887 (newline) | 1889 (newline) |
| 1888 (indent-to (/ i 30))) | 1890 (indent-to (/ i 30))) |