(defun narrow-then-widen (p m)
   (interactive)
   (setq p (point))
   (setq m (mark))
   (narrow-to-region (point) (mark))
   (search-forward "xxx")   (widen)
)


(defun insert-template
    (interactive)
    (set-mark-command)
    (insert-file "if-template")




--**-Emacs: test.el                (Emacs-Lisp)----All--------------------------
if <expr>
then <stmts>
else <stmts>
end if

Connection closed.
iris[7]: rlogin shaggy -l s160
shaggy.ucdavis.edu: Connection timed out
iris[8]: unse



if <expr>
then <stmts>
else <stmts>
end if