Mercurial > emacs
comparison lisp/international/mule-diag.el @ 30765:1e5a486b8b25
punctuation fixes in doc strings
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Fri, 11 Aug 2000 17:05:44 +0000 |
| parents | f5fd9fcdaeb2 |
| children | d8ce7bce2aab |
comparison
equal
deleted
inserted
replaced
| 30764:9459d3b62846 | 30765:1e5a486b8b25 |
|---|---|
| 224 ") | 224 ") |
| 225 (let ((l charset-list) | 225 (let ((l charset-list) |
| 226 charset) | 226 charset) |
| 227 (while l | 227 (while l |
| 228 (setq charset (car l) l (cdr l)) | 228 (setq charset (car l) l (cdr l)) |
| 229 (princ (format "%03d:%s:%d:%d:%d:%d:%d:%d:%d:%s\n" | 229 (princ (format "%03d:%s:%d:%d:%d:%d:%d:%d:%d:%s\n" |
| 230 (charset-id charset) | 230 (charset-id charset) |
| 231 charset | 231 charset |
| 232 (charset-dimension charset) | 232 (charset-dimension charset) |
| 233 (charset-chars charset) | 233 (charset-chars charset) |
| 234 (charset-bytes charset) | 234 (charset-bytes charset) |
| 345 (charset (completing-read prompt table | 345 (charset (completing-read prompt table |
| 346 nil t initial-input 'charset-history | 346 nil t initial-input 'charset-history |
| 347 default-value))) | 347 default-value))) |
| 348 (if (> (length charset) 0) | 348 (if (> (length charset) 0) |
| 349 (intern charset)))) | 349 (intern charset)))) |
| 350 | 350 |
| 351 | 351 |
| 352 ;; List characters of the range MIN and MAX of CHARSET. If dimension | 352 ;; List characters of the range MIN and MAX of CHARSET. If dimension |
| 353 ;; of CHARSET is two (i.e. 2-byte charset), ROW is the first byte | 353 ;; of CHARSET is two (i.e. 2-byte charset), ROW is the first byte |
| 354 ;; (block index) of the characters, and MIN and MAX are the second | 354 ;; (block index) of the characters, and MIN and MAX are the second |
| 355 ;; bytes of the characters. If the dimension is one, ROW should be 0. | 355 ;; bytes of the characters. If the dimension is one, ROW should be 0. |
| 606 ((charsetp (car charset)) | 606 ((charsetp (car charset)) |
| 607 (princ (format "\t%s:%s\n" | 607 (princ (format "\t%s:%s\n" |
| 608 (car charset) | 608 (car charset) |
| 609 (charset-description (car charset))))) | 609 (charset-description (car charset))))) |
| 610 (t | 610 (t |
| 611 "invalid designation information")) | 611 "invalid designation information")) |
| 612 (setq charset (cdr charset)))) | 612 (setq charset (cdr charset)))) |
| 613 (setq graphic-register (1+ graphic-register))))) | 613 (setq graphic-register (1+ graphic-register))))) |
| 614 | 614 |
| 615 ;;;###autoload | 615 ;;;###autoload |
| 616 (defun describe-coding-system (coding-system) | 616 (defun describe-coding-system (coding-system) |
| 702 "Display coding systems currently used in a brief format in echo area. | 702 "Display coding systems currently used in a brief format in echo area. |
| 703 | 703 |
| 704 The format is \"F[..],K[..],T[..],P>[..],P<[..], default F[..],P<[..],P<[..]\", | 704 The format is \"F[..],K[..],T[..],P>[..],P<[..], default F[..],P<[..],P<[..]\", |
| 705 where mnemonics of the following coding systems come in this order | 705 where mnemonics of the following coding systems come in this order |
| 706 at the place of `..': | 706 at the place of `..': |
| 707 `buffer-file-coding-system` (of the current buffer) | 707 `buffer-file-coding-system' (of the current buffer) |
| 708 eol-type of buffer-file-coding-system (of the current buffer) | 708 eol-type of `buffer-file-coding-system' (of the current buffer) |
| 709 Value returned by `keyboard-coding-system' | 709 Value returned by `keyboard-coding-system' |
| 710 eol-type of (keyboard-coding-system) | 710 eol-type of `keyboard-coding-system' |
| 711 Value returned by `terminal-coding-system. | 711 Value returned by `terminal-coding-system'. |
| 712 eol-type of (terminal-coding-system) | 712 eol-type of `terminal-coding-system' |
| 713 `process-coding-system' for read (of the current buffer, if any) | 713 `process-coding-system' for read (of the current buffer, if any) |
| 714 eol-type of process-coding-system for read (of the current buffer, if any) | 714 eol-type of `process-coding-system' for read (of the current buffer, if any) |
| 715 `process-coding-system' for write (of the current buffer, if any) | 715 `process-coding-system' for write (of the current buffer, if any) |
| 716 eol-type of process-coding-system for write (of the current buffer, if any) | 716 eol-type of `process-coding-system' for write (of the current buffer, if any) |
| 717 `default-buffer-file-coding-system' | 717 `default-buffer-file-coding-system' |
| 718 eol-type of default-buffer-file-coding-system | 718 eol-type of `default-buffer-file-coding-system' |
| 719 `default-process-coding-system' for read | 719 `default-process-coding-system' for read |
| 720 eol-type of default-process-coding-system for read | 720 eol-type of `default-process-coding-system' for read |
| 721 `default-process-coding-system' for write | 721 `default-process-coding-system' for write |
| 722 eol-type of default-process-coding-system" | 722 eol-type of `default-process-coding-system'" |
| 723 (interactive) | 723 (interactive) |
| 724 (let* ((proc (get-buffer-process (current-buffer))) | 724 (let* ((proc (get-buffer-process (current-buffer))) |
| 725 (process-coding-systems (if proc (process-coding-system proc)))) | 725 (process-coding-systems (if proc (process-coding-system proc)))) |
| 726 (message | 726 (message |
| 727 "F[%c%s],K[%c%s],T[%c%s],P>[%c%s],P<[%c%s], default F[%c%s],P>[%c%s],P<[%c%s]" | 727 "F[%c%s],K[%c%s],T[%c%s],P>[%c%s],P<[%c%s], default F[%c%s],P>[%c%s],P<[%c%s]" |