Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 2434:ba1cb56059fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 ce294639d321
children 5402bf7d11a5
comparison
equal deleted inserted replaced
2433:c8ef2b86baa5 2434:ba1cb56059fb
2105 even less likely since the space character is not a valid octet in any 2105 even less likely since the space character is not a valid octet in any
2106 ISO 2022 encoding of most non-ASCII charsets." 2106 ISO 2022 encoding of most non-ASCII charsets."
2107 (save-excursion 2107 (save-excursion
2108 (with-temp-buffer 2108 (with-temp-buffer
2109 (let ((coding-system-for-read 'raw-text)) 2109 (let ((coding-system-for-read 'raw-text))
2110 (insert-file-contents file nil 1 3001)) 2110 (insert-file-contents file nil 0 3000))
2111 (goto-char (point-min)) 2111 (goto-char (point-min))
2112 (or (and (looking-at 2112 (or (and (looking-at
2113 "^[^\n]*-\\*-[^\n]*coding: \\([^ \t\n;]+\\)[^\n]*-\\*-") 2113 "^[^\n]*-\\*-[^\n]*coding: \\([^ \t\n;]+\\)[^\n]*-\\*-")
2114 (buffer-substring (match-beginning 1) (match-end 1))) 2114 (buffer-substring (match-beginning 1) (match-end 1)))
2115 ;; (save-excursion 2115 ;; (save-excursion