[Emacs-diffs] Changes to emacs/lisp/international/codepage.el

[Eli Zaretskii]

Index: emacs/lisp/international/codepage.el
diff -c emacs/lisp/international/codepage.el:1.24 
emacs/lisp/international/codepage.el:1.25
*** emacs/lisp/international/codepage.el:1.24   Wed Dec 12 15:01:35 2001
--- emacs/lisp/international/codepage.el        Sat Mar 16 11:42:05 2002
***************
*** 659,667 ****
         (candidates (cp-supported-codepages)))
       (list (completing-read "Setup DOS Codepage: (default 437) " candidates
                            nil t nil nil "437"))))
!   (let ((cp (format "cp%s" codepage)))
!     (cp-make-coding-systems-for-codepage
!      cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))
  
  (provide 'codepage)
  
--- 659,670 ----
         (candidates (cp-supported-codepages)))
       (list (completing-read "Setup DOS Codepage: (default 437) " candidates
                            nil t nil nil "437"))))
!   (let* ((cp (format "cp%s" codepage))
!        (cp-defined (intern-soft cp)))
!     (or (and cp-defined  ;; avoid defining if already defined
!            (coding-system-p cp-defined))
!       (cp-make-coding-systems-for-codepage
!        cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp)))))
  
  (provide 'codepage)