Re: A little lisp help

[chris@grierwhite.com (Christopher J. White)]

>>>>> "peter" == Peter Lee <spam@nospam.org> writes:

peter> (defun curly-brace-region (m p)
peter>   "Inserts curly braces around region and indents"
peter>   (interactive "r")
peter>   (if mark-active
peter>       (let ((transient-mark-mode nil))
peter>         (kill-region m p)
peter>         (insert-string "{")
peter>         (newline-and-indent)
peter>         (insert-string "}")
peter>         (newline-and-indent)
peter>         (forward-line -1)
peter>         (yank 1)
peter>         (forward-line 1)
peter>         (indent-region (- m 1) (point) nil))))

peter> Thanks for the help.

You have to be careful when using region end-points
and inserting text.  m and p above are numerical values
that reference offsets from the beginning of the file and
do not "move" when text is inserted before them.

Use markers if you really want to be able to move around
and insert text, but the best method was the previous
suggestion to narrow-to-region.  

...cj

-- 
------------------------------------------------------------------------------
 Christopher J. White                                    chris@grierwhite.com
------------------------------------------------------------------------------