Mercurial > emacs
comparison lisp/international/codepage.el @ 43956:858065a2176d
(codepage-setup): Don't define a codepage if it is already defined.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 16 Mar 2002 16:42:05 +0000 |
parents | fd3c70d7a093 |
children | ddfd9a0290fb |
comparison
equal
deleted
inserted
replaced
43955:34ed592275f9 | 43956:858065a2176d |
---|---|
657 (interactive | 657 (interactive |
658 (let ((completion-ignore-case t) | 658 (let ((completion-ignore-case t) |
659 (candidates (cp-supported-codepages))) | 659 (candidates (cp-supported-codepages))) |
660 (list (completing-read "Setup DOS Codepage: (default 437) " candidates | 660 (list (completing-read "Setup DOS Codepage: (default 437) " candidates |
661 nil t nil nil "437")))) | 661 nil t nil nil "437")))) |
662 (let ((cp (format "cp%s" codepage))) | 662 (let* ((cp (format "cp%s" codepage)) |
663 (cp-make-coding-systems-for-codepage | 663 (cp-defined (intern-soft cp))) |
664 cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp)))) | 664 (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))))) | |
665 | 668 |
666 (provide 'codepage) | 669 (provide 'codepage) |
667 | 670 |
668 ;;; codepage.el ends here | 671 ;;; codepage.el ends here |