Default for message-tab-body-function

Default for message-tab-body-function

[Kai Großjohann]

I think the default behavior for TAB in the body of a message should
be whatever TAB in text-mode does.  (Even if the user has changed
what TAB in text-mode does.)

Is there a way to achieve this, or to come close?

kai
-- 
Simplification good!  Oversimplification bad!  (Larry Wall)

Re: Default for message-tab-body-function

[Simon Josefsson]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> I think the default behavior for TAB in the body of a message should
> be whatever TAB in text-mode does.  (Even if the user has changed
> what TAB in text-mode does.)
>
> Is there a way to achieve this, or to come close?

Like this?  Message even runs text-mode-hook, so frobing text-mode-map
from that hook should work using Message as well.

--- message.el.~6.170.~	Thu Nov 29 16:21:44 2001
+++ message.el	Thu Nov 29 16:47:14 2001
@@ -5183,7 +5183,7 @@
   :group 'message
   :type '(alist :key-type regexp :value-type function))
 
-(defcustom message-tab-body-function 'indent-relative
+(defcustom message-tab-body-function (lookup-key text-mode-map "\t")
   "*Function to execute when `message-tab' (TAB) is executed in the body."
   :group 'message
   :type 'function)

Re: Default for message-tab-body-function

[Kai Großjohann]

Simon Josefsson <jas@extundo.com> writes:

> Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
>
>> I think the default behavior for TAB in the body of a message should
>> be whatever TAB in text-mode does.  (Even if the user has changed
>> what TAB in text-mode does.)
>>
>> Is there a way to achieve this, or to come close?
>
> Like this?  Message even runs text-mode-hook, so frobing text-mode-map
> from that hook should work using Message as well.

This of course looks up the key at the time when message.el* is
loaded.  So it does not work to do

    (require 'message)
    (define-key text-mode-map (kbd "TAB") ...)

But then, maybe that's not necessary.  Maybe your suggestion is good
enough.

kai
-- 
Simplification good!  Oversimplification bad!  (Larry Wall)

Re: Default for message-tab-body-function

[ShengHuo ZHU]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> Simon Josefsson <jas@extundo.com> writes:
>
>> Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
>>
>>> I think the default behavior for TAB in the body of a message should
>>> be whatever TAB in text-mode does.  (Even if the user has changed
>>> what TAB in text-mode does.)
>>>
>>> Is there a way to achieve this, or to come close?
>>
>> Like this?  Message even runs text-mode-hook, so frobing text-mode-map
>> from that hook should work using Message as well.
>
> This of course looks up the key at the time when message.el* is
> loaded.  So it does not work to do
>
>     (require 'message)
>     (define-key text-mode-map (kbd "TAB") ...)
>
> But then, maybe that's not necessary.  Maybe your suggestion is good
> enough.

How about the following code?

(defcustom message-tab-body-function nil
           ...)

(defun message-tab ()
      ...
    (funcall (or (cdar alist) message-tab-body-function 
                 (lookup-key text-mode-map "\t")))
   )

ShengHuo

Re: Default for message-tab-body-function

[Kai Großjohann]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> How about the following code?
>
> (defcustom message-tab-body-function nil
>            ...)
>
> (defun message-tab ()
>       ...
>     (funcall (or (cdar alist) message-tab-body-function 
>                  (lookup-key text-mode-map "\t")))
>    )

Great!  Yes!  Yes!

kai
-- 
Simplification good!  Oversimplification bad!  (Larry Wall)