/[emacs]/emacs/lisp/international/codepage.el
ViewVC logotype

Diff of /emacs/lisp/international/codepage.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by lektu, Tue Sep 13 08:46:17 2005 UTC revision 1.33 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC
# Line 662  read/written by MS-DOS software, or for Line 662  read/written by MS-DOS software, or for
662    (interactive    (interactive
663     (let ((completion-ignore-case t)     (let ((completion-ignore-case t)
664           (candidates (cp-supported-codepages)))           (candidates (cp-supported-codepages)))
665       (list (completing-read "Setup DOS Codepage: (default 437) " candidates       (list (completing-read "Setup DOS Codepage (default 437): " candidates
666                              nil t nil nil "437"))))                              nil t nil nil "437"))))
667    (let* ((cp (format "cp%s" codepage))    (let* ((cp (format "cp%s" codepage))
668           (cp-defined (intern-soft cp)))           (cp-defined (intern-soft cp)))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26