Re: keybinding to duplicate the current line.

[Dirk-Jan C. Binnema <djcb.bulk@gmail.com>]

>>>>> Dirk-Jan C Binnema <djcb.bulk@gmail.com> writes:

    > Hi,
>>>>> "alin" == alin s <alinsoar@voila.fr> writes:

    alin> More than that, if I press C-u C-x C-a, I wish to duplicate the current
    alin> line, and to comment the old line.

    alin> Do you consider that such a function would be useful for many of you?
    alin> Otherwise, I have to wtite it myseld in my own .emacs...

    > Something quick and fairly dirty:

<snip>
    
That was a bit *too* quick and dirty, this works better:

(defun comment-and-dup ()
  "duplicate line at point, and comment the current one"
  (interactive)
  (save-excursion
    (beginning-of-line)
    (push-mark)
    (forward-line 1)
    (let ((str (buffer-substring (region-beginning) (region-end))))
      (comment-region (region-beginning) (region-end))
      (insert-string str)))
  (next-line))


Best wishes,
	Dirk.

-- 
Dirk-Jan C. Binnema                  Helsinki, Finland
e:djcb@djcbsoftware.nl           w:www.djcbsoftware.nl
pgp: D09C E664 897D 7D39 5047 A178 E96A C7A1 017D DA3C