(iso-safe): New coding system.

1 files changed, 10 insertions, 0 deletions

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 87b792a3de1..c5fb7aa32f3 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -278,6 +278,16 @@
  '((ascii t) nil t nil
    nil ascii-eol ascii-cntl nil nil single-shift))
 
+(make-coding-system
+ 'iso-safe 2 ?-
+ "Convert all characters but ASCII to `?'."
+ '(ascii nil nil nil
+   nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t))
+
+;; Use iso-safe for terminal output if some other coding system is
+;; specified explicitely.
+(set-safe-terminal-coding-system-internal 'iso-safe)
+
 ;; The other coding-systems are defined in each language specific
 ;; section of languages.el.