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)))) |