emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/international/mule.el


From: Stefan Monnier
Subject: [Emacs-diffs] Changes to emacs/lisp/international/mule.el
Date: Sun, 18 May 2003 17:07:01 -0400

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.184 
emacs/lisp/international/mule.el:1.185
*** emacs/lisp/international/mule.el:1.184      Mon Apr 14 06:06:55 2003
--- emacs/lisp/international/mule.el    Sun May 18 17:07:01 2003
***************
*** 2044,2050 ****
  (defun sgml-xml-auto-coding-function (size)
    "Determine whether the buffer is XML, and if so, its encoding.
  This function is intended to be added to `auto-coding-functions'."
!   (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" nil t)
      (let ((end (save-excursion
                 ;; This is a hack.
                 (re-search-forward "\"\\s-*\\?>" size t))))
--- 2044,2051 ----
  (defun sgml-xml-auto-coding-function (size)
    "Determine whether the buffer is XML, and if so, its encoding.
  This function is intended to be added to `auto-coding-functions'."
!   (setq size (+ (point) size))
!   (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t)
      (let ((end (save-excursion
                 ;; This is a hack.
                 (re-search-forward "\"\\s-*\\?>" size t))))
***************
*** 2061,2067 ****
  (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 size
                  ;; Only search forward 10 lines
                  (save-excursion
                    (forward-line 10)
--- 2062,2068 ----
  (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)
                  ;; Only search forward 10 lines
                  (save-excursion
                    (forward-line 10)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]