Dan
*** /mnt/connolly/foo Wed Nov 18 22:51:50 1992
--- html-mode.el Wed Nov 18 22:50:32 1992
***************
*** 517,522 ****
--- 517,543 ----
(setq html-link-counter (1+ html-link-counter))
(replace-string-in-buffer start (1- end)
(format "%d" html-link-counter))))))))
+
+ (defun html-quote-hrefs ()
+ "Insert quotes around all HREF attribute value literals.
+
+ This remedies the problem with old html files that can't be
+ processed by SGML parsers. That is, changes
+ <A HREF=foo> to <A HREF="foo">.
+
+ By Dan Connolly, so don't yell at Mark if it breaks."
+ (interactive)
+ (save-excursion
+ (goto-char (point-min))
+ (setq html-link-counter 0)
+ (while (re-search-forward "<[aA][ \t\n]+\\([nN][aA][mM][eE]=[a-zA-Z0-9]+[ \t\n]+\\)?[hH][rR][eE][fF]=" (point-max) t)
+ (cond ((null (looking-at "\""))
+ (insert "\"")
+ (re-search-forward "[ \t\n>]" (point-max) t)
+ (forward-char -1)
+ (insert "\"")
+ ))
+ ) ) )
;;; ------------------------------- html-mode --------------------------------