Mercurial > hg > xemacs-beta
changeset 2434:ba1cb56059fb
[xemacs-hg @ 2004-12-12 02:47:06 by ben]
"Son of a bitch."
files.el: File positions are 0 based not 1 based.
| author | ben |
|---|---|
| date | Sun, 12 Dec 2004 02:47:09 +0000 |
| parents | c8ef2b86baa5 |
| children | f632bbaaabc6 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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]*-\\*-")