From: Romain Francoise Date: Fri, 5 Jan 2007 17:58:02 +0000 (+0000) Subject: (sgml-html-meta-auto-coding-function): Ensure that the buffer contains a X-Git-Tag: emacs-pretest-22.0.93~238 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=129f19896b1b328a510a999a3511f3ab547ec759;p=emacs.git (sgml-html-meta-auto-coding-function): Ensure that the buffer contains a HTML document. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 378e5388ecb..68aee396f48 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,11 @@ +2007-01-05 Romain Francoise + + * international/mule.el (sgml-html-meta-auto-coding-function): + Ensure that the buffer contains a HTML document. + 2007-01-05 Dan Nicolaescu - * faces.el (momentary): Move here ... + * faces.el (momentary): Move here ... * subr.el (momentary): ... from here. 2007-01-05 Nick Roberts @@ -11,9 +16,9 @@ 2007-01-04 Juanma Barranquero - * files.el (find-file-noselect-1, set-visited-file-name): + * files.el (find-file-noselect-1, set-visited-file-name): Allow backup-enable-predicate to be nil. - + 2007-01-04 Kevin Rodgers * subr.el (momentary): New face. diff --git a/lisp/international/mule.el b/lisp/international/mule.el index ddaacfe7216..954146453ed 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -2292,7 +2292,12 @@ This function is intended to be added to `auto-coding-functions'." ;; In case of no header, search only 10 lines. (forward-line 10)) (point)))) - (when (re-search-forward " start tag + ;; (allowing for whitespace at bob). Note: 'DOCTYPE NETSCAPE' is + ;; useful for Mozilla bookmark files. + (when (and (re-search-forward "\\`[[:space:]\n]*\\(