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

[Dan Davison <davison@stats.ox.ac.uk>]

"Drew Adams" <drew.adams@oracle.com> writes:

>> How would I generate a new buffer containing an active region 
>> such that the next command issued in the new buffer will act
>> on the region? (And so that the region is highlighted)
>> 
>> For example, this function doesn't do what it wants to do:
>> 
>> (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)))
>> 
>> 
>> With that function, the following doesn't do what is intended:
>> 
>> M-x new-buffer-w-active-region
>> M-;
>
> Yes, this is a common gotcha that you just have to learn once if you do this
> kind of thing: Add this sexp at the end of your command:
>
> (setq deactivate-mark  nil)

Thanks for that Drew.

Dan