1606 |
(when (string= language-name (nth 1 (car l))) |
(when (string= language-name (nth 1 (car l))) |
1607 |
(insert " " (car (car l))) |
(insert " " (car (car l))) |
1608 |
(search-backward (car (car l))) |
(search-backward (car (car l))) |
1609 |
(help-xref-button 0 #'describe-input-method (car (car l)) |
(help-xref-button 0 'help-input-method (car (car l))) |
|
"mouse-2, RET: describe this input method") |
|
1610 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1611 |
(insert " (\"" |
(insert " (\"" |
1612 |
(if (stringp (nth 3 (car l))) |
(if (stringp (nth 3 (car l))) |
1622 |
(while l |
(while l |
1623 |
(insert " " (symbol-name (car l))) |
(insert " " (symbol-name (car l))) |
1624 |
(search-backward (symbol-name (car l))) |
(search-backward (symbol-name (car l))) |
1625 |
(help-xref-button 0 #'describe-character-set (car l) |
(help-xref-button 0 'help-character-set (car l)) |
|
"mouse-2, RET: describe this character set") |
|
1626 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1627 |
(insert ": " (charset-description (car l)) "\n") |
(insert ": " (charset-description (car l)) "\n") |
1628 |
(setq l (cdr l))))) |
(setq l (cdr l))))) |
1634 |
(while l |
(while l |
1635 |
(insert " " (symbol-name (car l))) |
(insert " " (symbol-name (car l))) |
1636 |
(search-backward (symbol-name (car l))) |
(search-backward (symbol-name (car l))) |
1637 |
(help-xref-button 0 #'describe-coding-system (car l) |
(help-xref-button 0 'help-coding-system (car l)) |
|
"mouse-2, RET: describe this coding system") |
|
1638 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1639 |
(insert " (`" |
(insert " (`" |
1640 |
(coding-system-mnemonic (car l)) |
(coding-system-mnemonic (car l)) |