662 |
(interactive |
(interactive |
663 |
(let ((completion-ignore-case t) |
(let ((completion-ignore-case t) |
664 |
(candidates (cp-supported-codepages))) |
(candidates (cp-supported-codepages))) |
665 |
(list (completing-read "Setup DOS Codepage: (default 437) " candidates |
(list (completing-read "Setup DOS Codepage (default 437): " candidates |
666 |
nil t nil nil "437")))) |
nil t nil nil "437")))) |
667 |
(let* ((cp (format "cp%s" codepage)) |
(let* ((cp (format "cp%s" codepage)) |
668 |
(cp-defined (intern-soft cp))) |
(cp-defined (intern-soft cp))) |