Re: problems with save-excursion

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <1141857397.880352.44860@u72g2000cwu.googlegroups.com>
>>>>>	filcab@gmail.com wrote:

> 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)

You can modify it to work as follows:

(defun copy-line ()
   (interactive)
   (save-excursion
      (beginning-of-line)
      (call-interactively 'set-mark-command)
      (end-of-line)
      (call-interactively 'copy-region-as-kill)))

If you wish only to copy a line, it can be simplified as follows:

(defun copy-line ()
  (interactive)
  (kill-new
   (buffer-substring (line-beginning-position)
		     (line-end-position))))