(require 'cl)
(require 'cl-19)
(setq tiedostoalku "Lu")
(setq aputiedosto "apu")
(defun teeviitteet ()
  (interactive)
  (progn 
    (set-buffer aputiedosto)
    (setq bold (search-forward "<B> "))
    (while bold
      (progn
	(setq kaksoispiste (search-forward ":"))
	(setq luku (buffer-substring bold (- kaksoispiste 1)))
	(setq kohta (search-forward "</B>"))
	(goto-char kaksoispiste)
	(if (search-forward "-" kohta t)
	    (setq jae (buffer-substring kaksoispiste (- (point) 1)))
	  (setq jae (buffer-substring kaksoispiste (- kohta 4))))
	(setq loppu (- (search-forward "<br>") 4))
	(let ((oldbuf (current-buffer)))
	  (save-excursion
	    (setq tiedosto (concat "Lu." luku ".html"))
	    (set-buffer (find-file-noselect tiedosto))
	    (goto-char (point-min))
	    (setq haettava (concat "<A NAME=" 
				   (char-to-string  ?\") 
				   jae 
				   (char-to-string  ?\") 
				   ">"))
	    (search-forward haettava)
	    (insert "<a href=")
	    (insert ?\")
	    (insert "Lu.Dipnotlar.html#" luku ":" jae )
	    (insert ?\")
	    (insert ">")
	    (search-forward jae)
	    (insert "</a>")))
	(setq bold (search-forward "<B> " nil t))))))