/[emacs]/emacs/lisp/international/ucs-tables.el
ViewVC logotype

Diff of /emacs/lisp/international/ucs-tables.el

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

revision 1.12.4.1 by fx, Tue Jul 9 19:32:50 2002 UTC revision 1.12.4.2 by rms, Thu Sep 5 22:49:23 2002 UTC
# Line 2443  Interactively, prompts for a hex string Line 2443  Interactively, prompts for a hex string
2443                 (coding-system-put cs 'translation-table-for-input cs)))))                 (coding-system-put cs 'translation-table-for-input cs)))))
2444      (optimize-char-table ucs-mule-to-mule-unicode)      (optimize-char-table ucs-mule-to-mule-unicode)
2445      (dolist (c safe-charsets)      (dolist (c safe-charsets)
2446        (aset table (make-char c) t))        (aset table (make-char c) t))))
     (coding-system-put 'mule-utf-8 'safe-charsets  
                        (append (coding-system-get 'mule-utf-8 'safe-charsets)  
                                safe-charsets))  
     (register-char-codings 'mule-utf-8 table)))  
2447    
2448  (defvar translation-table-for-input (make-translation-table))  (defvar translation-table-for-input (make-translation-table))
2449    

Legend:
Removed from v.1.12.4.1  
changed lines
  Added in v.1.12.4.2

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