changeset 19454:5a08bc0f02d3

(make-coding-system): Doc-string fixed.

--- a/lisp/international/mule.el	Fri Aug 22 01:22:49 1997 +0000
+++ b/lisp/international/mule.el	Fri Aug 22 01:22:49 1997 +0000
@@ -388,7 +388,7 @@
       code of the coding system.
 
   If TYPE is 4 (private), FLAGS should be a cons of CCL programs,
-    for encoding and decoding.  See the documentation of CCL for more detail."
+    for decoding and encoding.  See the documentation of CCL for more detail."
 
   ;; At first, set a value of `coding-system' property.
   (let ((coding-spec (make-vector 5 nil))
@@ -610,6 +610,35 @@
 
 ;;; FILE I/O
 
+(defun auto-file-coding-system (head-lines)
+  "Return coding system for a file which has HEAD-LINES at the head.
+HEAD-LINES is a string of the first two lines of the file.
+This checks for a -*- coding tag in the buffers's text,
+and return the specified coding system.
+
+The variable `auto-file-coding-system' (which see) is set to this
+function by default."
+  (let ((limit (string-match "\n" head-lines))
+	(coding-system nil))
+    (if limit
+	(when (string-match "^#!" head-lines)
+	  ;; If the file begins with "#!" (exec interpreter magic),
+	  ;; look for coding frobs in the first two lines.  You cannot
+	  ;; necessarily put them in the first line of such a file
+	  ;; without screwing up the interpreter invocation.
+	  (setq limit (string-match "\n" head-lines limit))
+	  (or limit
+	      (setq limit (length head-lines))))
+      (setq limit (length head-lines)))
+    (when (and (string-match "-\\*-[ \t]*coding:[ \t]*\\([^ ;]+\\)" head-lines)
+	       (< (match-beginning 1) limit))
+      (setq coding-system
+	    (intern (substring head-lines (match-beginning 1) (match-end 1))))
+      (if (coding-system-p coding-system)
+	  coding-system))))
+
+(setq auto-file-coding-system-function 'auto-file-coding-system)
+
 ;; Set buffer-file-coding-system of the current buffer after some text
 ;; is inserted.
 (defun after-insert-file-set-buffer-file-coding-system (inserted)