/[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.205 by handa, Fri Oct 22 13:10:23 2004 UTC revision 1.206 by jurta, Thu Nov 11 21:39:41 2004 UTC
# Line 2126  This function is intended to be added to Line 2126  This function is intended to be added to
2126                    (save-excursion                    (save-excursion
2127                      (forward-line 10)                      (forward-line 10)
2128                      (point))))                      (point))))
2129    (when (and (search-forward "<html>" size t)    (when (and (search-forward "<html" size t)
2130               (re-search-forward "<meta\\s-+http-equiv=\"content-type\"\\s-+content=\"text/\\sw+;\\s-*charset=\\(.+?\\)\"" size t))               (re-search-forward "<meta\\s-+http-equiv=\"content-type\"\\s-+content=\"text/\\sw+;\\s-*charset=\\(.+?\\)\"" size t))
2131        (let* ((match (match-string 1))        (let* ((match (match-string 1))
2132               (sym (intern (downcase match))))               (sym (intern (downcase match))))

Legend:
Removed from v.1.205  
changed lines
  Added in v.1.206

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