Re: inserting comment headings

[Kevin Rodgers]

Patrick Drechsler wrote:

> Tim X. wrote on 19 Jan 2004 09:35:45 MET:
>
>
> > > > > > > "leo" == leo  <halloleo@noospaam.myrealbox.com> writes:
>
> [...M-;, M-j...]
>
> Thanks for the answers, I already use these commands
> frequently. But this is not quit what I was looking for.
>
> I wanted to include the `-----------------' stuff after the
> comment automatically:
>
> ;;* comment -----------------------------------------------
>             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> Any ideas?


(defun insert-comment-heading (comment)
 "Insert COMMENT, preceded by \";;* \" and followed by \" ---...\"."
 (interactive "sComment: ")
 (insert ";;* " comment " " (make-string (- (window-width)
                                            (+ (length comment) 5)
                                            1)
                                         ?-))
 (newline))

--
Kevin Rodgers