🚀 go-pugleaf

In GNU Emacs 19.25.1 of Thu Jun  2 1994 on norval.clark.net (i386-gateway-bsd386)


Given the following function defined in the file pr.el:

--cut here--
;;; Prefix region (for mail, in particular) -- robust.
;;; Christoph. North-Keys, 1989
;;; Thanks to John Robinson <jr@bbn.com> for rewriting for markers.
;;;
(defvar prefix-string-default "> "
  "*Default string for prefix-region function.")

(defun prefix-region (start end string)
  "Insert STRING, default prefix-string-default, at the start of each line
in or intersecting region while preserving indentation.
Called from a program, takes three arguments,START, END and STRING."
  (interactive "r\nsString:  ")
  (if (equal 0 (length string)) (setq string prefix-string-default))
  (let ((end-marker (make-marker)))
    (set-marker end-marker end)
	(goto-char start)
	(beginning-of-line)
	(insert-before-markers string)
	(while (search-forward "\n" (marker-position end-marker) 1)
	  (insert-before-markers string)
	  )))
--cut here--


and the following text file, called xxx

--cut here--
% aaa
% bbb
% ccc
--cut here--

running "emacs -q -l pr.el xxx" then typing the following sequence of
commands:

 C-@ C-n C-n M-x prefix-region RET %% RET

results in the proper prefix being applied to all three lines, except
the first line's display is not updated until the cursor is moved up
to the point position zero (M-<).