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

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.223 
emacs/lisp/international/mule.el:1.224
*** emacs/lisp/international/mule.el:1.223      Mon Jul  4 17:22:27 2005
--- emacs/lisp/international/mule.el    Thu Jul  7 06:21:30 2005
***************
*** 839,844 ****
--- 839,850 ----
    If the value is non-nil, the coding system preserves composition
    information.
  
+   o ascii-incompatible
+ 
+   If the value is non-nil, the coding system is not compatible
+   with ASCII, which means it encodes or decodes ASCII character
+   string to the different byte sequence.
+ 
  These properties are set in PLIST, a property list.  This function
  also sets properties `coding-category' and `alias-coding-systems'
  automatically.
***************
*** 1191,1196 ****
--- 1197,1205 ----
  see) to CODING-SYSTEM."
    (interactive "zCoding system for file names (default, nil): ")
    (check-coding-system coding-system)
+   (if (and coding-system
+          (coding-system-get coding-system 'ascii-incompatible))
+       (error "%s is not ASCII-compatible" coding-system))
    (setq file-name-coding-system coding-system))
  
  (defvar default-terminal-coding-system nil
***************
*** 1247,1252 ****
--- 1256,1264 ----
        (setq coding-system default-keyboard-coding-system))
    (if coding-system
        (setq default-keyboard-coding-system coding-system))
+   (if (and coding-system
+          (coding-system-get coding-system 'ascii-incompatible))
+       (error "%s is not ASCII-compatible" coding-system))
    (set-keyboard-coding-system-internal coding-system)
    (setq keyboard-coding-system coding-system)
    (encoded-kbd-mode (if coding-system 1 0)))