Re: problems with save-excursion

[Marc Tfardy]

Marc Tfardy schrieb:
> filcab@gmail.com schrieb:
> > I have the following function:
> > (defun copy-line ()
> >    (interactive)
> >    (save-excursion
> >       (beginning-of-line)
> >       (set-mark-command)
> >       (end-of-line)
> >       (copy-region-as-kill)))
> >
> > But it's not working...
> > It says:
> > save-excursion: Wrong number of arguments: #[(arg) ... (some trash)
> >
> >
> > Any clues?
>
> You may try:
>
> (defun copy-line ()
>   (interactive)
>   (save-excursion
>     (let (beg)
>       (beginning-of-line)
>       (setq beg (point))
>       (end-of-line)
>       (copy-region-as-kill beg (point)))))

Second and shorter version:

(defun copy-line ()
  (interactive)
  (copy-region-as-kill (line-beginning-position)
                       (line-end-position)))


Marc