Mercurial > emacs
comparison lisp/international/mule-diag.el @ 42163:126eaf6fdbcf
(describe-character-set): Fix the arg to help-xref-button.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Dec 2001 21:14:28 +0000 |
| parents | f41a14872734 |
| children | 2c4fb0cccd48 |
comparison
equal
deleted
inserted
replaced
| 42162:478d5ff60075 | 42163:126eaf6fdbcf |
|---|---|
| 510 (charset-multibyte-form-string charset))) | 510 (charset-multibyte-form-string charset))) |
| 511 (let ((coding (plist-get (aref info 14) 'preferred-coding-system))) | 511 (let ((coding (plist-get (aref info 14) 'preferred-coding-system))) |
| 512 (when coding | 512 (when coding |
| 513 (insert (format "preferred coding system: %s\n" coding)) | 513 (insert (format "preferred coding system: %s\n" coding)) |
| 514 (search-backward (symbol-name coding)) | 514 (search-backward (symbol-name coding)) |
| 515 (help-xref-button 0 'describe-coding-system coding))))))) | 515 (help-xref-button 0 'help-coding-system coding))))))) |
| 516 | 516 |
| 517 ;;;###autoload | 517 ;;;###autoload |
| 518 (defun describe-char-after (&optional pos) | 518 (defun describe-char-after (&optional pos) |
| 519 "Display information about the character at POS in the current buffer. | 519 "Display information about the character at POS in the current buffer. |
| 520 POS defaults to point. | 520 POS defaults to point. |