🚀 go-pugleaf

In article <FWP1.91Mar22004323@Jester.CC.MsState.Edu> fwp1@CC.MsState.Edu (Frank Peters) writes:

Note, I am assuming you always want to operate on whole lines in the stuff
below:

Frank> run this command on lines 5 through 37

M-x goto-line RET 5 RET C-SPC M-x goto-line RET 37 RET C-e C-x n C-x C-x
C-x ( C-a [... operate on line ...] C-e C-f C-x ) M-0 C-x e C-x w

Frank> run this command on lines from the beginning of the file to here

C-e M-< C-x n C-x ( C-a [... operate on line ...] C-e C-f C-x ) M-0 C-x e
C-x w

Frank> run this command on lines from here to 47

Assuming 47 is after this line:

C-a C-SPC M-x goto-line RET 47 RET C-x n C-x C-x C-x ( C-a
[... operate on line ...] C-e C-f C-x ) M-0 C-x e C-x w

Frank> run this command from mark a to mark b

I assume you mean register a and b?

Assuming a before b:

C-x j a C-a C-SPC C-x j b C-e C-x n C-x C-x C-x ( C-a
[... operate on line ...] C-e C-f C-x ) M-0 C-x e C-x w

Frank> What I'm hoping to find is a function that automates the process
Frank> somewhat.

If you want to do it in Lisp, the key function is narrow-to-region:

(defun operate-on-lines-in-region (beg end func)
  (save-excursion
    (save-restriction
      (narrow-to-region (progn (goto-char beg)
			       (beginning-of-line)
			       (point))
			(progn (goto-char end)
			       (end-of-line)
			       (point)))
      (goto-char beg)
      (while (not (eobp))
	(funcall func)
	(forward-line 1)))))

   This probably isn't a capability in much demand by emacs users but 6
   years of editing with line editors and vi have gotten me extremely
   used to having this.

On the contrary, Emacs users use this feature all the time, both
interactively and in Lisp.

-- 
Enjoy,

Joe Wells <jbw@bu.edu>