/[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.24 by pj, Wed Dec 12 20:01:35 2001 UTC revision 1.25 by eliz, Sat Mar 16 16:42:05 2002 UTC
# Line 659  read/written by MS-DOS software, or for Line 659  read/written by MS-DOS software, or for
659           (candidates (cp-supported-codepages)))           (candidates (cp-supported-codepages)))
660       (list (completing-read "Setup DOS Codepage: (default 437) " candidates       (list (completing-read "Setup DOS Codepage: (default 437) " candidates
661                              nil t nil nil "437"))))                              nil t nil nil "437"))))
662    (let ((cp (format "cp%s" codepage)))    (let* ((cp (format "cp%s" codepage))
663      (cp-make-coding-systems-for-codepage           (cp-defined (intern-soft cp)))
664       cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))      (or (and cp-defined  ;; avoid defining if already defined
665                 (coding-system-p cp-defined))
666            (cp-make-coding-systems-for-codepage
667             cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp)))))
668    
669  (provide 'codepage)  (provide 'codepage)
670    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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