Re: [C-u M-q] -> unfill-paragraph

[Tom Roche <Tom_Roche@pobox.com>]

[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).