Re: New to elisp, learning by doing

[Kevin Rodgers <kevin.rodgers@ihs.com>]

John Rabkin wrote:

>  (defun html-yank-header ()
>   "Copies and yanks HTML headers"
>   (interactive)
>   (save-excursion
>     (setq start_p (- (re-search-forward "\<h[12345]*\>") 4)) 
>     (setq end_p (re-search-forward "\<\/h[12345]\>")) 
>     (copy-region-as-kill start_p end_p)
>     )
>   (yank)
>   )


I would avoid using the kill ring, and instead use `buffer-substring' to
get the header text and insert to `insert' in the buffer.

I would also be a little more careful with the regexps used to match the start
and end tags:

(let ((case-fold-search t)
       beg end level)
   (while (re-search-forward "<h\\([1-5]\\)[^>]*>" nil t)
     (setq beg (match-beginning 0)
	  level (string-to-int (match-string 1))
	  end (re-search-forward (format "</h%d>" level) nil t))a
     (save-excursion
       (goto-char ...);; where the header should be inserted
       (insert (buffer-substring beg end) "\n"))))


-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>