Mercurial > emacs

comparison lisp/international/mule.el @ 91802:3a35316b344f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sgml-html-meta-auto-coding-function): Make sure the search limit is ahead.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 12 Feb 2008 21:21:02 +0000
parents 606f2d163a64
children 89b7a215ead9
comparison
equal deleted inserted replaced
91801:8e06d480f634 91802:3a35316b344f
2295 This function is intended to be added to `auto-coding-functions'." 2295 This function is intended to be added to `auto-coding-functions'."
2296 (let ((case-fold-search t)) 2296 (let ((case-fold-search t))
2297 (setq size (min (+ (point) size) 2297 (setq size (min (+ (point) size)
2298 (save-excursion 2298 (save-excursion
2299 ;; Limit the search by the end of the HTML header. 2299 ;; Limit the search by the end of the HTML header.
2300 (or (search-forward "</head>" size t) 2300 (or (search-forward "</head>" (+ (point) size) t)
2301 ;; In case of no header, search only 10 lines. 2301 ;; In case of no header, search only 10 lines.
2302 (forward-line 10)) 2302 (forward-line 10))
2303 (point)))) 2303 (point))))
2304 ;; Make sure that the buffer really contains an HTML document, by 2304 ;; Make sure that the buffer really contains an HTML document, by
2305 ;; checking that it starts with a doctype or a <HTML> start tag 2305 ;; checking that it starts with a doctype or a <HTML> start tag