🚀 go-pugleaf

+--In article <13714@fs2.NISC.SRI.COM> cwilson@NISC.SRI.COM (Chan Wilson) writes:
|   I want to be able to insert a character in the first column of a given
|   region, whether it be a tab, a >, or whatnot.  How is this done?

     ( This assumes that you are using GNU-emacs. )

	I use the following function to insert characters in the same place
     on a line over an entire region.  It uses the goal-column if one is
     set, otherwise the column in which the mark was set is used.

(defun insert-on-each-line (str beg end)
  "Insert STR at the current column on each line of the current region.
Args BEG and END specify the region if called from a program."
  (interactive "sString to insert: \nr")
  (let ((len (length str)))
    (save-excursion
      (goto-char beg)
      (if goal-column (move-to-column goal-column))
      (while (< (point) end)
	(save-excursion (insert str))
	(setq end (+ end len))
	(line-move 1)))))

(global-set-key "\ei"    'insert-on-each-line)

--
      /-------------------------------------------------------------\
      | Mike Williams, Victoria University of Wellington, Aotearoa. |
      \-------------------------------------------------------------/