Re: How to create new buffer with t-m-m active region?

[Stefan Monnier]

> (defun new-buffer-w-active-region ()
>   (interactive)
>   (let ((transient-mark-mode t))
>     (switch-to-buffer (get-buffer-create "region-test"))
>     (delete-region (point-min) (point-max))
>     (insert "I want these lines\n")
>     (insert "to be in an active region with t-m-m on\n")
>     (insert "such that comment-region comments them out\n")
>     (emacs-lisp-mode)
>     (push-mark (point-min) nil 'activate)))

You need to wrap the delete-region and the inserts with (let
((deactivate-mark)) ...) so that they don't cause the mark to be
deactivated as soon as the command ends.


        Stefan