procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(make-coding-system): Describe

Browse source 
`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.
This commit is contained in:
Kenichi Handa 2005-07-07 06:23:10 +00:00
parent 4a6cbbc416
commit 43b557d507
2 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ChangeLog
View file

@ -1,3 +1,19 @@
2005-07-07 Kenichi Handa <handa@m17n.org>
* 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 <nickrob@snap.net.nz>
* progmodes/gud.el: Require font-lock for displaying errors.

12
lisp/international/mule.el
View file

@ -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)))