659 |
(candidates (cp-supported-codepages))) |
(candidates (cp-supported-codepages))) |
660 |
(list (completing-read "Setup DOS Codepage: (default 437) " candidates |
(list (completing-read "Setup DOS Codepage: (default 437) " candidates |
661 |
nil t nil nil "437")))) |
nil t nil nil "437")))) |
662 |
(let ((cp (format "cp%s" codepage))) |
(let* ((cp (format "cp%s" codepage)) |
663 |
(cp-make-coding-systems-for-codepage |
(cp-defined (intern-soft cp))) |
664 |
cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp)))) |
(or (and cp-defined ;; avoid defining if already defined |
665 |
|
(coding-system-p cp-defined)) |
666 |
|
(cp-make-coding-systems-for-codepage |
667 |
|
cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))) |
668 |
|
|
669 |
(provide 'codepage) |
(provide 'codepage) |
670 |
|
|