Article View: comp.emacs
Article #9643Re: insert char. in first column.
From: Bard Bloom
Date: Thu, 01 Mar 1990 03:54
Date: Thu, 01 Mar 1990 03:54
25 lines
1203 bytes
1203 bytes
My own "Insert stuff in left margin". The stuff it inserts is sticky.
-- Bard the emacs gargoyle
(defvar inleft-string "> " "Default string for inleft.")
(defun inleft (p m s)
"In the region BEG to END, inserts STRING at the beginning of each line."
(interactive
(list
(if (< (point) (mark)) (point-marker) (mark-marker))
(if (< (point) (mark)) (mark-marker) (point-marker))
(progn
(setq inleft-string (read-string "Inleft String:" inleft-string))
inleft-string)
))
(goto-char p)
(beginning-of-line 1)
(while (and (<= (point-marker) m) (not (eobp)))
(insert-before-markers s)
(next-line 1)
(beginning-of-line 1)))
Technical Details
Message-ID:
<37936@cornell.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!aplcen!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!rpi!batcomputer!cornell!bardReferences:
<13714@fs2.NISC.SRI.COM>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!aplcen!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!rpi!batcomputer!cornell!bard From: bard@brigid.cs.cornell.edu (Bard Bloom) Newsgroups: comp.emacs Subject: Re: insert char. in first column. Message-ID: <37936@cornell.UUCP> Date: 1 Mar 90 03:54:08 GMT References: <13714@fs2.NISC.SRI.COM> Sender: nobody@cornell.UUCP Reply-To: bard@cs.cornell.edu (Bard Bloom) Organization: Cornell Univ. CS Dept, Ithaca NY Lines: 25