/[emacs]/emacs/lisp/international/code-pages.el
ViewVC logotype

Diff of /emacs/lisp/international/code-pages.el

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

revision 1.30 by handa, Fri Aug 5 01:14:08 2005 UTC revision 1.31 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC
# Line 130  read/written by MS-DOS software, or for Line 130  read/written by MS-DOS software, or for
130    (interactive    (interactive
131     (let ((completion-ignore-case t)     (let ((completion-ignore-case t)
132           (candidates (cp-supported-codepages)))           (candidates (cp-supported-codepages)))
133       (list (completing-read "Setup DOS Codepage: (default 437) " candidates       (list (completing-read "Setup DOS Codepage (default 437): " candidates
134                              nil t nil nil "437"))))                              nil t nil nil "437"))))
135    (let ((cp (format "cp%s" codepage)))    (let ((cp (format "cp%s" codepage)))
136      (unless (coding-system-p (intern cp))      (unless (coding-system-p (intern cp))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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