2395 |
(insert ?\n)) |
(insert ?\n)) |
2396 |
(insert ?\n)))) |
(insert ?\n)))) |
2397 |
|
|
2398 |
|
(define-button-type 'quail-keyboard-layout-button |
2399 |
|
:supertype 'help-xref |
2400 |
|
'help-function '(lambda (layout) |
2401 |
|
(help-setup-xref `(quail-keyboard-layout-button ,layout) nil) |
2402 |
|
(quail-show-keyboard-layout layout)) |
2403 |
|
'help-echo (purecopy "mouse-2, RET: show keyboard layout")) |
2404 |
|
|
2405 |
|
(define-button-type 'quail-keyboard-customize-button |
2406 |
|
:supertype 'help-customize-variable |
2407 |
|
'help-echo (purecopy "mouse-2, RET: customize keyboard layout")) |
2408 |
|
|
2409 |
(defun quail-help (&optional package) |
(defun quail-help (&optional package) |
2410 |
"Show brief description of the current Quail package. |
"Show brief description of the current Quail package. |
2411 |
Optional arg PACKAGE specifies the name of alternative Quail |
Optional arg PACKAGE specifies the name of alternative Quail |
2412 |
package to describe." |
package to describe." |
2413 |
(interactive) |
(interactive) |
2414 |
(if package |
(require 'help-mode) |
|
(setq package (assoc package quail-package-alist)) |
|
|
(setq package quail-current-package)) |
|
2415 |
(let ((help-xref-mule-regexp help-xref-mule-regexp-template) |
(let ((help-xref-mule-regexp help-xref-mule-regexp-template) |
2416 |
(default-enable-multibyte-characters enable-multibyte-characters)) |
(default-enable-multibyte-characters enable-multibyte-characters) |
2417 |
|
(package-def |
2418 |
|
(if package |
2419 |
|
(assoc package quail-package-alist) |
2420 |
|
quail-current-package))) |
2421 |
;; At first, make sure that the help buffer has window. |
;; At first, make sure that the help buffer has window. |
2422 |
(help-setup-xref (list #'quail-help package) (interactive-p)) |
(help-setup-xref (list #'quail-help package) (interactive-p)) |
2423 |
(with-output-to-temp-buffer (help-buffer) |
(with-output-to-temp-buffer (help-buffer) |
2424 |
(with-current-buffer standard-output |
(with-current-buffer standard-output |
2425 |
(setq quail-current-package package))) |
(setq quail-current-package package-def))) |
2426 |
;; Then, insert text in the help buffer while paying attention to |
;; Then, insert text in the help buffer while paying attention to |
2427 |
;; the width of the frame in which the buffer displayed. |
;; the width of the frame in which the buffer displayed. |
2428 |
(with-current-buffer (help-buffer) |
(with-current-buffer (help-buffer) |
2458 |
Assuming that your actual keyboard has the `") |
Assuming that your actual keyboard has the `") |
2459 |
(help-insert-xref-button |
(help-insert-xref-button |
2460 |
quail-keyboard-layout-type |
quail-keyboard-layout-type |
2461 |
#'quail-show-keyboard-layout quail-keyboard-layout-type |
'quail-keyboard-layout-button |
2462 |
"mouse-2, RET: show this layout") |
quail-keyboard-layout-type) |
2463 |
(insert "' layout, |
(insert "' layout, |
2464 |
translation results in the following \"virtual\" keyboard layout: |
translation results in the following \"virtual\" keyboard layout: |
2465 |
") |
") |
2469 |
`") |
`") |
2470 |
(help-insert-xref-button |
(help-insert-xref-button |
2471 |
"standard" |
"standard" |
2472 |
#'quail-show-keyboard-layout "standard" |
'quail-keyboard-layout-button "standard") |
|
"mouse-2, RET: show this layout") |
|
2473 |
(insert "', the \"virtual\" keyboard you get with this input method |
(insert "', the \"virtual\" keyboard you get with this input method |
2474 |
will be rearranged in the same way. |
will be rearranged in the same way. |
2475 |
|
|
2480 |
") |
") |
2481 |
(help-insert-xref-button |
(help-insert-xref-button |
2482 |
"[customize keyboard layout]" |
"[customize keyboard layout]" |
2483 |
#'customize-variable 'quail-keyboard-layout-type |
'quail-keyboard-customize-button 'quail-keyboard-layout-type) |
|
"mouse-2, RET: set keyboard layout type") |
|
2484 |
(insert "\n")) |
(insert "\n")) |
2485 |
|
|
2486 |
;; Show key sequences. |
;; Show key sequences. |