Re: Wrap around and comment function

[Harry Putnam <reader@newsguy.com>]

Chong Yidong <cyd@stupidchicken.com> writes:


[...]

> Probably something like this:
>
> (defun foo (beg end string)
>   (interactive "*r\nsEnter a few words: ")
>   (let ((fin (copy-marker end)))
>     (goto-char beg)
>     (insert "[HP DATE - NOTE: " string "\n")
>     (goto-char (marker-position fin))
>     (set-marker fin nil)
>     (insert "\n==*  END HP NOTE *== ]\n")
>     (comment-region beg (point))))

Yup, that is pretty slick.  Looks like I just need to save a
formatted date in a var and use it at:
  [HP MYVAR - NOTE:

Thank you.  Nice function and surprisingly brief.