From f56f8b9803727cb14b4c1ee17d8cda56c4203616 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Wed, 6 Jun 2001 10:23:58 +0000
Subject: [PATCH] (file-coding-system-alist): Add pattern for utf-8.

---
 lisp/international/mule-conf.el | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 7665c22a1d3..cf9ae4ea774 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -283,7 +283,11 @@
 ;; `make-coding-system'.
 
 (put 'no-conversion 'coding-system
-     (vector nil ?= "Do no conversion"
+     (vector nil ?= "Do no conversion.
+
+When you visit a file with this coding, the file is read into a
+unibyte buffer as is, thus each byte of a file is treated as a
+character."
 	     (list 'coding-category 'coding-category-binary
 		   'alias-coding-systems '(no-conversion))
 	     nil))
@@ -313,13 +317,26 @@
 
 (make-coding-system
  'emacs-mule 0 ?=
- "Emacs internal format used in buffer and string"
+ "Emacs internal format used in buffer and string.
+
+Encoding text with this coding system produces the actual byte
+sequence of the text in buffers and strings.  An exception is made for
+eight-bit-control characters.  Each of them is encoded into a single
+byte."
  nil
  '((safe-charsets . t)))
 
 (make-coding-system
  'raw-text 5 ?t
- "Raw text, which means text contains random 8-bit codes."
+ "Raw text, which means text contains random 8-bit codes.
+Encoding text with this coding system produces the actual byte
+sequence of the text in buffers and strings.  An exception is made for
+eight-bit-control characters.  Each of them is encoded into a single
+byte.
+
+When you visit a file with this coding, the file is read into a
+unibyte buffer as is (except for EOL format), thus each byte of a file
+is treated as a character."
  nil
  '((safe-charsets . t)))
 
@@ -408,14 +425,15 @@
 ;; Tar files are not decoded at all, but we treat them as raw bytes.
 
 (setq file-coding-system-alist
-      '(("\\.elc\\'" . (emacs-mule . emacs-mule))
+      '(("\\.elc\\'" . emacs-mule)
+	("\\.utf\\(-8\\)?\\'" . utf-8)
 	;; We use raw-text for reading loaddefs.el so that if it
 	;; happens to have DOS or Mac EOLs, they are converted to
 	;; newlines.  This is required to make the special treatment
 	;; of the "\ newline" combination in loaddefs.el, which marks
 	;; the beginning of a doc string, work.
 	("\\(\\`\\|/\\)loaddefs.el\\'" . (raw-text . raw-text-unix))
-	("\\.tar\\'" . (no-conversion . no-conversion))
+	("\\.tar\\'" . no-conversion)
 	("" . (undecided . nil))))
 
 
-- 
2.39.5