147 |
title |
title |
148 |
(condition-case nil |
(condition-case nil |
149 |
(mapconcat |
(mapconcat |
150 |
(lambda (x) |
(lambda (x) |
151 |
(cond ((stringp x) x) |
(cond ((stringp x) x) |
152 |
((and (listp x) (symbolp (car x)) (= (length x) 3)) |
((and (listp x) (symbolp (car x)) (= (length x) 3)) |
153 |
(if (symbol-value (car x)) |
(if (symbol-value (car x)) |
2404 |
|
|
2405 |
(define-button-type 'quail-keyboard-layout-button |
(define-button-type 'quail-keyboard-layout-button |
2406 |
:supertype 'help-xref |
:supertype 'help-xref |
2407 |
'help-function '(lambda (layout) |
'help-function '(lambda (layout) |
2408 |
(help-setup-xref `(quail-keyboard-layout-button ,layout) nil) |
(help-setup-xref `(quail-keyboard-layout-button ,layout) nil) |
2409 |
(quail-show-keyboard-layout layout)) |
(quail-show-keyboard-layout layout)) |
2410 |
'help-echo (purecopy "mouse-2, RET: show keyboard layout")) |
'help-echo (purecopy "mouse-2, RET: show keyboard layout")) |