# HG changeset patch # User Glenn Morris # Date 1190344709 0 # Node ID 4e8fc43ecce31d154d131275e753eaaa1a2027c7 # Parent 61391ef40a012b136efe377b8315fd0d13c6806b Kevin Ryde (sgml-html-meta-auto-coding-function): Bind `case-fold-search' to t. diff -r 61391ef40a01 -r 4e8fc43ecce3 lisp/international/mule.el --- a/lisp/international/mule.el Fri Sep 21 03:11:17 2007 +0000 +++ b/lisp/international/mule.el Fri Sep 21 03:18:29 2007 +0000 @@ -2302,25 +2302,26 @@ (defun sgml-html-meta-auto-coding-function (size) "If the buffer has an HTML meta tag, use it to determine encoding. This function is intended to be added to `auto-coding-functions'." - (setq size (min (+ (point) size) - (save-excursion - ;; Limit the search by the end of the HTML header. - (or (search-forward "" size t) - ;; In case of no header, search only 10 lines. - (forward-line 10)) - (point)))) - ;; Make sure that the buffer really contains an HTML document, by - ;; checking that it starts with a doctype or a start tag - ;; (allowing for whitespace at bob). Note: 'DOCTYPE NETSCAPE' is - ;; useful for Mozilla bookmark files. - (when (and (re-search-forward "\\`[[:space:]\n]*\\(" size t) + ;; In case of no header, search only 10 lines. + (forward-line 10)) + (point)))) + ;; Make sure that the buffer really contains an HTML document, by + ;; checking that it starts with a doctype or a start tag + ;; (allowing for whitespace at bob). Note: 'DOCTYPE NETSCAPE' is + ;; useful for Mozilla bookmark files. + (when (and (re-search-forward "\\`[[:space:]\n]*\\(