130 |
(interactive |
(interactive |
131 |
(let ((completion-ignore-case t) |
(let ((completion-ignore-case t) |
132 |
(candidates (cp-supported-codepages))) |
(candidates (cp-supported-codepages))) |
133 |
(list (completing-read "Setup DOS Codepage: (default 437) " candidates |
(list (completing-read "Setup DOS Codepage (default 437): " candidates |
134 |
nil t nil nil "437")))) |
nil t nil nil "437")))) |
135 |
(let ((cp (format "cp%s" codepage))) |
(let ((cp (format "cp%s" codepage))) |
136 |
(unless (coding-system-p (intern cp)) |
(unless (coding-system-p (intern cp)) |