Using comment-region in function

Using comment-region in function

[Berthold Höllmann]

Hello,

I'm trying to write a skeleton to insert some blurb into newly
generated source files. The text should be the same and inserted as
comment regardles the programming language. I need a hint to achiev
this.

Regards
Berthold
-- 
Dipl.-Ing. Berthold Höllmann   __   Address:
hoel@GL-Group.com           G /  \ L Germanischer Lloyd
phone: +49-40-36149-7374    -+----+- Vorsetzen 32/35    P.O.Box 111606
fax  : +49-40-36149-7320      \__/   D-20459 Hamburg    D-20416 Hamburg

Re: Using comment-region in function

[Jesper Harder]

hoel@gl-group.com (Berthold Höllmann) writes:

> The text should be the same and inserted as comment regardles the
> programming language. I need a hint to achiev this.

Use `comment-region'?

(comment-region 
 (point)
 (progn
   (insert "This is a comment")
   (point)))

-- 
Jesper Harder                                <http://purl.org/harder/>

Re: Using comment-region in function

[Berthold Höllmann]

Jesper Harder <harder@myrealbox.com> writes:

> hoel@gl-group.com (Berthold Höllmann) writes:
>
>> The text should be the same and inserted as comment regardles the
>> programming language. I need a hint to achiev this.
>
> Use `comment-region'?
>
> (comment-region 
>  (point)
>  (progn
>    (insert "This is a comment")
>    (point)))

This does not work for skeletons:

(define-skeleton blurb-head
  "aa"
  "test: "
  "test " str > n)

(define-skeleton head
  "Insert a standard header for C files"
  ""
  (comment-region 
   (point)
   blurb-head
   (point)))

M-x head 

gives

eval: Symbol's value as variable is void: blurb-head

Changing "head" to

(define-skeleton head
  "Insert a standard header for C files"
  ""
  (comment-region 
   (point)
   (blurb-head)
   (point)))

gives

eval: Wrong type argument: number-or-marker-p, nil

Regards
Berthold
-- 
Dipl.-Ing. Berthold Höllmann   __   Address:
hoel@GL-Group.com           G /  \ L Germanischer Lloyd
phone: +49-40-36149-7374    -+----+- Vorsetzen 32/35    P.O.Box 111606
fax  : +49-40-36149-7320      \__/   D-20459 Hamburg    D-20416 Hamburg

Re: Using comment-region in function

[Jesper Harder]

hoel@gl-group.com (Berthold Höllmann) writes:

> Jesper Harder <harder@myrealbox.com> writes:
>
>> Use `comment-region'?
>>
>> (comment-region 
>>  (point)
>>  (progn
>>    (insert "This is a comment")
>>    (point)))
>
> This does not work for skeletons:

I don't know anything about skeletons, but ...

> (define-skeleton head
>   "Insert a standard header for C files"
>   ""
>   (comment-region 
>    (point)
>    (blurb-head)
>    (point)))

is obviously wrong.  You can't leave out the `progn' from my example.

-- 
Jesper Harder                                <http://purl.org/harder/>

Re: Using comment-region in function

[Kevin Rodgers]

Berthold Höllmann wrote:

> I'm trying to write a skeleton to insert some blurb into newly
> generated source files.


C-h v find-file-not-found-hooks

-- 
Kevin Rodgers

Re: Using comment-region in function

[Berthold Höllmann]

Jesper Harder <harder@myrealbox.com> writes:

> hoel@gl-group.com (Berthold Höllmann) writes:
>
>> Jesper Harder <harder@myrealbox.com> writes:
>>
>>> Use `comment-region'?
>>>
...
>>
>> This does not work for skeletons:
>
> I don't know anything about skeletons, but ...
>
...
>
> is obviously wrong.  You can't leave out the `progn' from my example.

Sorry,

(define-skeleton head
  "Insert a standard header for C files"
  ""
  (comment-region 
   (point)
   (progn
     (blurb-head)
   (point))))

does work for this simple example. Still fighting with elisp.

Thanks
Berthold
-- 
bhoel@web.de / http://starship.python.net/crew/bhoel/

Re: Using comment-region in function

[Stefan Monnier]

> (define-skeleton head
>   "Insert a standard header for C files"
>   ""
>   (comment-region 
>    (point)
>    (progn
>      (blurb-head)
>    (point))))

You need a quote around the call to comment, otherwise skeleton will try to
insert whatever value is returned by comment-region.


        Stefan