# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1016296925 0
# Node ID 858065a2176d64305ab07ac541e31845a33f1e3f
# Parent  34ed592275f9e57cf4ce9022a498ca427e0b04f6
(codepage-setup): Don't define a codepage if it is already defined.

diff -r 34ed592275f9 -r 858065a2176d lisp/international/codepage.el
--- a/lisp/international/codepage.el	Sat Mar 16 16:28:01 2002 +0000
+++ b/lisp/international/codepage.el	Sat Mar 16 16:42:05 2002 +0000
@@ -659,9 +659,12 @@
 	 (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))))
+  (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)