Summary: Update URL to github location
< * http://asf.void.at/emacs/map-lines.el *Note:* 2010-12-04 The URL no longer exists. Possible new location https://alioth.debian.org/scm/viewvc.php/emacs-goodies-el/elisp/emacs-goodies-el/map-lines.el?view=markup&revision=HEAD&root=pkg-goodies-el
< The map-lines.el is included in Debian package "emacs-goodies-el" and the code is maintained by Paul Hobbs <Paul_Hobbs@hmc.edu> (2010).
> * The code is here: https://github.com/PaulHobbs/Map-lines and is included in the Debian package "emacs-goodies-el".
> It is maintained by Paul Hobbs <paul . mcdill . hobbs atsign gmail> (2010).
(defun tsp-run-command-over-lines (command &optional n) "Run COMMAND over the following N lines. We use the previous N lines if N is negative." (interactive "CCommand: \np\n") (let ((a (if (< n 0) (line-end-position) (line-beginning-position))) (b (if (< n 0) (line-beginning-position n) (line-end-position n)))) (save-restriction (narrow-to-region a b) (call-interactively command))))
Also, try map-lines – it does what your code does, with regexps, and you get the lines collected on top of the kill ring:
It is maintained by Paul Hobbs <paul . mcdill . hobbs atsign gmail> (2010).