could mark-paragraph scroll the window?

could mark-paragraph scroll the window?

[Eric Abrahamsen]

Is there any chance that mark-paragraph (which marks consecutive
paragraphs when used repeatedly) could scroll the window once the
marking extends below the visible area? I find this command very useful,
but not being able to see where it's going is very limiting.

Could I make a local version that does what I want?

Thanks
Eric

Re: could mark-paragraph scroll the window?

[Kevin Rodgers]

On 12/29/10 3:03 PM, Eric Abrahamsen wrote:
> Is there any chance that mark-paragraph (which marks consecutive
> paragraphs when used repeatedly) could scroll the window once the
> marking extends below the visible area? I find this command very useful,
> but not being able to see where it's going is very limiting.
>
> Could I make a local version that does what I want?

Perhaps something like this:

(defadvice mark-paragraph (after region-end-visible activate)
   "When called interactively, temporarily display the end of the marked region
if it is not visible in the selected window."
   (when (and (called-interactively-p 'any)
	     ;; (eq this-command last-command)
	     (not (pos-visible-in-window-p (region-end))))
     (exchange-point-and-mark)
     (sit-for 1)
     (exchange-point-and-mark)))

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: could mark-paragraph scroll the window?

[Deniz Dogan]

2011/1/4 Kevin Rodgers <kevin.d.rodgers@gmail.com>:
> On 12/29/10 3:03 PM, Eric Abrahamsen wrote:
>>
>> Is there any chance that mark-paragraph (which marks consecutive
>> paragraphs when used repeatedly) could scroll the window once the
>> marking extends below the visible area? I find this command very useful,
>> but not being able to see where it's going is very limiting.
>>
>> Could I make a local version that does what I want?
>
> Perhaps something like this:
>
> (defadvice mark-paragraph (after region-end-visible activate)
>  "When called interactively, temporarily display the end of the marked
> region
> if it is not visible in the selected window."
>  (when (and (called-interactively-p 'any)
>             ;; (eq this-command last-command)
>             (not (pos-visible-in-window-p (region-end))))
>    (exchange-point-and-mark)
>    (sit-for 1)
>    (exchange-point-and-mark)))
>

This code works very strangely when I try it.

-- 
Deniz Dogan

Re: could mark-paragraph scroll the window?

[Kevin Rodgers]

On 1/4/11 6:35 AM, Deniz Dogan wrote:
> 2011/1/4 Kevin Rodgers<kevin.d.rodgers@gmail.com>:
>> On 12/29/10 3:03 PM, Eric Abrahamsen wrote:
>>>
>>> Is there any chance that mark-paragraph (which marks consecutive
>>> paragraphs when used repeatedly) could scroll the window once the
>>> marking extends below the visible area? I find this command very useful,
>>> but not being able to see where it's going is very limiting.
>>>
>>> Could I make a local version that does what I want?
>>
>> Perhaps something like this:
>>
>> (defadvice mark-paragraph (after region-end-visible activate)
>>   "When called interactively, temporarily display the end of the marked
>> region
>> if it is not visible in the selected window."
>>   (when (and (called-interactively-p 'any)
>>              ;; (eq this-command last-command)
>>              (not (pos-visible-in-window-p (region-end))))
>>     (exchange-point-and-mark)
>>     (sit-for 1)
>>     (exchange-point-and-mark)))
>>
>
> This code works very strangely when I try it.

Glad to hear that it works.  :-)

-- 
Kevin Rodgers
Denver, Colorado, USA