diff options
| author | Miles Bader <miles@gnu.org> | 2005-02-24 01:36:41 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-02-24 01:36:41 +0000 |
| commit | d8d9feaf6cd5a609e36f7e72c1de9490dcbeede7 (patch) | |
| tree | 24f189ece3aeb8f9cfeb1a0422854927a1650204 /lisp/international | |
| parent | 1ff56495788f79262ed64540eebb81083e571369 (diff) | |
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-17
Replace embedded control characters with octal escapes
2005-02-24 Miles Bader <miles@gnu.org>
* lisp/international/mule.el (auto-coding-regexp-alist)
(ctext-pre-write-conversion): Replace embedded control characters
with octal escapes; this prevents diff from thinking the file is
binary.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 93e64e447c0..13e3539c3f0 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1482,7 +1482,7 @@ text, and convert it in the temporary buffer. Otherwise, convert in-place." (save-excursion (goto-char last-pos) (insert (string-to-multibyte - (format "\e%%/%d%c%c%s" + (format "\e%%/%d%c%c%s\002" noctets (+ (/ len 128) 128) (+ (% len 128) 128) @@ -1526,7 +1526,7 @@ and the contents of `file-coding-system-alist'." (defcustom auto-coding-regexp-alist '(("^BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion) - ("\\`;ELC + ("\\`;ELC\024\0\0\0" . emacs-mule)) ; Emacs 20-compiled "Alist of patterns vs corresponding coding systems. Each element looks like (REGEXP . CODING-SYSTEM). A file whose first bytes match REGEXP is decoded by CODING-SYSTEM on reading. |