From 43b557d50704df1dc45cc201a5596c05b62a6178 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 7 Jul 2005 06:23:10 +0000 Subject: [PATCH] (make-coding-system): Describe `ascii-incompatible' property in the docstring. (set-file-name-coding-system): Signal an error if coding-system is ascii-incompatible. (set-keyboard-coding-system): Likewise. --- lisp/ChangeLog | 16 ++++++++++++++++ lisp/international/mule.el | 12 ++++++++++++ 2 files changed, 28 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4a3ce31d8cd..a40afc7733a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,19 @@ +2005-07-07 Kenichi Handa + + * international/mule.el (make-coding-system): Describe + `ascii-incompatible' property in the docstring. + (set-file-name-coding-system): Signal an error if coding-system is + ascii-incompatible. + (set-keyboard-coding-system): Likewise. + + * international/mule-cmds.el (set-default-coding-systems): Don't + set default-file-name-coding-system and + default-keyboard-coding-system if coding-system is + ASCII-incompatible. + + * international/utf-16.el: Declare that all UTF-16-based coding + systems ASCII-incompatible. + 2005-07-07 Nick Roberts * progmodes/gud.el: Require font-lock for displaying errors. diff --git a/lisp/international/mule.el b/lisp/international/mule.el index cf5c2c75a6a..741a6c7eff5 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -839,6 +839,12 @@ following properties are recognized: 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,6 +1197,9 @@ It actually just set the variable `file-name-coding-system' (which 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,6 +1256,9 @@ or by the previous use of this command." (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))) -- 2.39.2