Mercurial > emacs

changeset 99524:b8e68a14e5c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove some charset code not needed since Emacs 22.
author Glenn Morris <rgm@gnu.org>
date Thu, 13 Nov 2008 05:03:10 +0000
parents 31a3d851902c
children 108f909f2676
files lisp/nxml/nxml-enc.el
diffstat 1 files changed, 1 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/nxml/nxml-enc.el	Thu Nov 13 04:38:10 2008 +0000
+++ b/lisp/nxml/nxml-enc.el	Thu Nov 13 05:03:10 2008 +0000
@@ -139,32 +139,11 @@
       (setq set-auto-coding-function nxml-non-xml-set-auto-coding-function)
       (setq nxml-non-xml-set-auto-coding-function nil))))
 
-(unless (coding-system-p 'us-ascii)
-  (make-coding-system
-   ;; Unicode Emacs uses ?- last time I looked
-   'us-ascii 2 ?-
-   "ISO 2022 based 7-bit encoding for ASCII (MIME:US-ASCII)"
-   '(ascii)
-   '((safe-charsets ascii)
-     (mime-charset . us-ascii))))
-
-;; Emacs 21.3.50 makes us-ascii an alias for iso-safe without
+;; Emacs 22 makes us-ascii an alias for iso-safe without
 ;; giving it a mime-charset property.
 (unless (coding-system-get 'us-ascii 'mime-charset)
   (coding-system-put 'us-ascii 'mime-charset 'us-ascii))
 
-;; Work around bug in Emacs 21.3
-
-(when (and (coding-system-p 'utf-16-le)
-	   (eq (coding-system-get 'utf-16-le 'pre-write-conversion)
-	       'utf-16-le-pre-write-conversion))
-  (coding-system-put 'utf-16-le 'pre-write-conversion nil))
-
-(when (and (coding-system-p 'utf-16-le)
-	   (eq (coding-system-get 'utf-16-be 'pre-write-conversion)
-	       'utf-16-be-pre-write-conversion))
-  (coding-system-put 'utf-16-be 'pre-write-conversion nil))
-
 (provide 'nxml-enc)
 
 ;; arch-tag: c2436247-78f3-418c-8069-85dc5335d083