/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.220 by nickrob, Sun May 1 22:17:25 2005 UTC revision 1.221 by eliz, Sat May 7 15:53:56 2005 UTC
# Line 2180  This function is intended to be added to Line 2180  This function is intended to be added to
2180    (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t)    (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t)
2181      (let ((end (save-excursion      (let ((end (save-excursion
2182                   ;; This is a hack.                   ;; This is a hack.
2183                   (re-search-forward "\"\\s-*\\?>" size t))))                   (re-search-forward "[\"']\\s-*\\?>" size t))))
2184        (when end        (when end
2185          (if (re-search-forward "encoding=\"\\(.+?\\)\"" end t)          (if (re-search-forward "encoding=[\"']\\(.+?\\)[\"']" end t)
2186              (let* ((match (match-string 1))              (let* ((match (match-string 1))
2187                     (sym (intern (downcase match))))                     (sym (intern (downcase match))))
2188                (if (coding-system-p sym)                (if (coding-system-p sym)

Legend:
Removed from v.1.220  
changed lines
  Added in v.1.221

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26