Parent Directory | Revision Log | Patch
revision 1.23 by pj, Tue Dec 11 06:56:10 2001 UTC | revision 1.24 by pj, Wed Dec 12 20:01:35 2001 UTC | |
---|---|---|
# | Line 588 decoder and encoder created by this func | Line 588 decoder and encoder created by this func |
588 | )) | )) |
589 | ||
590 | (defun cp-codepage-decoder (codepage) | (defun cp-codepage-decoder (codepage) |
591 | "If CODEPAGE is the name of a supported codepage, return its decode table; | "If CODEPAGE is the name of a supported codepage, return its decode table. |
592 | otherwise return nil." | Otherwise return nil." |
593 | (let ((cp (if (symbolp codepage) (symbol-name codepage) codepage))) | (let ((cp (if (symbolp codepage) (symbol-name codepage) codepage))) |
594 | (cond | (cond |
595 | ((stringp cp) | ((stringp cp) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |