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

[Romain Francoise]

Index: emacs/lisp/international/code-pages.el
diff -c emacs/lisp/international/code-pages.el:1.30 
emacs/lisp/international/code-pages.el:1.31
*** emacs/lisp/international/code-pages.el:1.30 Fri Aug  5 01:14:08 2005
--- emacs/lisp/international/code-pages.el      Sat Sep 24 13:43:59 2005
***************
*** 130,136 ****
    (interactive
     (let ((completion-ignore-case t)
         (candidates (cp-supported-codepages)))
!      (list (completing-read "Setup DOS Codepage: (default 437) " candidates
                            nil t nil nil "437"))))
    (let ((cp (format "cp%s" codepage)))
      (unless (coding-system-p (intern cp))
--- 130,136 ----
    (interactive
     (let ((completion-ignore-case t)
         (candidates (cp-supported-codepages)))
!      (list (completing-read "Setup DOS Codepage (default 437): " candidates
                            nil t nil nil "437"))))
    (let ((cp (format "cp%s" codepage)))
      (unless (coding-system-p (intern cp))