# HG changeset patch
# User ben
# Date 1102819629 0
# Node ID ba1cb56059fbc58e830d81b6c7afb23b0af0b767
# Parent  c8ef2b86baa517577c3fd09ec1915dd7d3eec0b3
[xemacs-hg @ 2004-12-12 02:47:06 by ben]
"Son of a bitch."

files.el: File positions are 0 based not 1 based.

diff -r c8ef2b86baa5 -r ba1cb56059fb lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 11 22:51:33 2004 +0000
+++ b/lisp/ChangeLog	Sun Dec 12 02:47:09 2004 +0000
@@ -1,3 +1,8 @@
+2004-12-11  Ben Wing  <ben@xemacs.org>
+
+	* files.el (find-coding-system-magic-cookie-in-file):
+	File positions are 0 based not 1 based.
+
 2004-12-05  Ben Wing  <ben@xemacs.org>
 
 	* info.el (Info-additional-search-directory-list):
diff -r c8ef2b86baa5 -r ba1cb56059fb lisp/files.el
--- a/lisp/files.el	Sat Dec 11 22:51:33 2004 +0000
+++ b/lisp/files.el	Sun Dec 12 02:47:09 2004 +0000
@@ -2107,7 +2107,7 @@
   (save-excursion
     (with-temp-buffer
       (let ((coding-system-for-read 'raw-text))
-	(insert-file-contents file nil 1 3001))
+	(insert-file-contents file nil 0 3000))
       (goto-char (point-min))
       (or (and (looking-at
 		"^[^\n]*-\\*-[^\n]*coding: \\([^ \t\n;]+\\)[^\n]*-\\*-")