Re: narrow-to-region for a rectangle

[C K Kashyap]

This is what I've come up with. I'd really appreciate some feedback.

(defun k-quotes (beg end st en)
  (interactive "r*\nsStart Pattern: \nsEnd Pattern: \n")
  (save-excursion
    (save-restriction
      (string-rectangle beg end st)
      (move-end-of-line nil)
      (setq newEnd (point))
      (goto-char beg)
      (replace-regexp "$" en  nil beg newEnd)
      (replace-regexp (concat en "$") "")
      )))

Regards,
Kashyap


On Tue, Jun 4, 2013 at 6:23 PM, C K Kashyap <ckkashyap@gmail.com> wrote:

> The function below takes in a region and surrounds each line with input
> strings -
>
> (defun k-quotes (beg end st en)
>   (interactive "r*\nsStart Pattern: \nsEnd Pattern: \n")
>   (save-excursion
>     (save-restriction
>       (narrow-to-region beg end)
>       (goto-char beg)
>       (replace-regexp "\\(.*\\)" (concat st "\\1" en))
>        )))
>
> I'd like this function to be able to restrict to a rectangle instead of a
> region. While on the first line it restricts "^" to match whereever I
> started the mark from - on the rest of the lines, its the beginning of the
> line.
>
> Regards,
> Kashyap
>
>
> On Tue, Jun 4, 2013 at 6:10 PM, Jambunathan K <kjambunathan@gmail.com>wrote:
>
>> C K Kashyap <ckkashyap@gmail.com> writes:
>>
>> > Hi,
>> > Is there a function that restricts the modifiable area to the rectangle
>> > rather than  the region?
>>
>> If such a thing is available, what will you do with it?  Give an
>> example.
>>
>> > Regards,
>> > Kashyap
>>
>
>