[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [C-u M-q] -> unfill-paragraph
From: |
Tom Roche |
Subject: |
Re: [C-u M-q] -> unfill-paragraph |
Date: |
Mon, 14 Nov 2011 12:27:38 -0500 |
User-agent: |
GNU Emacs 23.3.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.4) |
[Text-mode tables enclosed--best viewed in monospace font--
and there's also some utf-8]
Tom Roche Thu, 10 Nov 2011 12:29:33 -0500
>>>> [How] to write one's own `fill-paragraph' façade such that
>>>> * [my-fill-paragraph hides] the emacs-provided `fill-paragraph'
>>>> * [my-fill-paragraph delegates] to the emacs-provided
>>>> `fill-paragraph' except when called with [C-u]
Scott Frazer Thu, 10 Nov 2011 14:00:14 -0500
>>> (defun my-fill-paragraph (&optional arg)
>>> (interactive "P")
>>> (let ((fill-column (if arg (point-max) fill-column)))
>>> (fill-paragraph)))
>>> (global-set-key (kbd "M-q") 'my-fill-paragraph)
Tom Roche Sun, 13 Nov 2011 10:52:44 -0500
>> That works, except for region handling[, i.e.,]
>> +--------------------------------------------------------------+
>> | | M-q | C-u M-q |
>> +--------------------------------------------------------------+
>> | no region selected | fill paragraph | unfill paragraph |
>> | | surrounding or | surrounding or |
>> | | following point | following point |
>> +--------------------------------------------------------------+
>> | region selected | nothing | unfills (only) |
>> | | | first paragraph |
>> | | | in the region |
>> +--------------------------------------------------------------+
>> What I want is
>> +-----------------------------------------------------------+
>> | | M-q | C-u M-q |
>> +-----------------------------------------------------------+
>> | no region selected | fill paragraph | unfill paragraph |
>> | | surrounding or | surrounding or |
>> | | following point | following point |
>> +-----------------------------------------------------------+
>> | region selected | fill all | unfill all |
>> | | paragraphs in | paragraphs in |
>> | | the region | the region |
>> +-----------------------------------------------------------+
>> Note that the wanted region-handling behaviors are those which one
>> gets using M-x, i.e., with region selected
>> * `M-x fill-paragraph' fills all paragraphs in the selected region
>> * `M-x unfill-paragraph' unfills all paragraphs in the selected region
Eric Abrahamsen Mon, 14 Nov 2011 11:44:11 +0800
> Scott's basic approach is still correct: bind M-q to what you want,
Yes, that I understand.
> `call-interactively' ensures that whatever prefix arguments
> `fill-paragraph' and `unfill-paragraph' might take (the region being
> the important one here) are passed to those commands properly.
Thanks! This indeed seems to work as desired:
(defun my-fill-paragraph (&optional arg)
(interactive "P")
(if arg
(call-interactively 'unfill-paragraph)
(call-interactively 'fill-paragraph)))
(global-set-key (kbd "M-q") 'my-fill-paragraph)
I'll "field-test" today then post gnu-emacs-sources (with attribution).