text-mode tab questions

text-mode tab questions

[mike hardy]

Howdy -

I use text-mode where the default binding for tab is indent-relative
(according to Info).  But I only like indent-relative once (following
<cr>) and would like to have tab key thereafter use tab-to-tab-stop to
EOL.  Can this be done such that all I have to do is hit tab key and 'it'
figures out when to go into tab-to-tab-stop mode?

Also, I think I'd like to start using untabify on a text buffer when I
save it.  How can I do this so that C-x C-s invokes that automatically so
that I don't have to remember (or maybe there's already something to do
this)?

Mike
-- 



------------------------
mhardy_mail@NO_SPAM@yahoo.com

  Help Wanted: Psychic.  You know where to apply.

Re: text-mode tab questions

[Kevin Rodgers]

mike hardy wrote:

> I use text-mode where the default binding for tab is indent-relative
> (according to Info).  But I only like indent-relative once (following
> <cr>) and would like to have tab key thereafter use tab-to-tab-stop to
> EOL.  Can this be done such that all I have to do is hit tab key and 'it'
> figures out when to go into tab-to-tab-stop mode?

(defadvice indent-relative (around last-command-tab-to-tab-stop activate)
  "If the last command was `indent-relative', run `tab-to-tab-stop' instead."
  (if (eq last-command 'indent-relative)	; this-command
      (call-interactively 'tab-to-tab-stop)
    ad-do-it))


> Also, I think I'd like to start using untabify on a text buffer when I
> save it.  How can I do this so that C-x C-s invokes that automatically so
> that I don't have to remember (or maybe there's already something to do
> this)?


Try setting write-contents-hooks (which see) within a text-mode-hook function.

-- 
Kevin Rodgers <kevinr@ihs.com>

Re: text-mode tab questions

[mike hardy]

Nostradamus foretold that on Mon Sep 09 2002, Kevin Rodgers would write:

> mike hardy wrote:
> 
> > I use text-mode where the default binding for tab is indent-relative
> > (according to Info).  But I only like indent-relative once (following
> > <cr>) and would like to have tab key thereafter use tab-to-tab-stop to
> > EOL.  Can this be done such that all I have to do is hit tab key and 'it'
> > figures out when to go into tab-to-tab-stop mode?
> 
> (defadvice indent-relative (around last-command-tab-to-tab-stop activate)
>   "If the last command was `indent-relative', run `tab-to-tab-stop' instead."
>   (if (eq last-command 'indent-relative)	; this-command
>       (call-interactively 'tab-to-tab-stop)
>     ad-do-it))
> 

Outstanding (don't know ear-to-ear grin emoticon).  Thx alot...

Mike
-- 



------------------------
mhardy_mail@NO_SPAM@yahoo.com

  Help Wanted: Psychic.  You know where to apply.

Re: text-mode tab questions

[Kevin Rodgers]

mike hardy wrote:

> Nostradamus foretold that on Mon Sep 09 2002, Kevin Rodgers would write:
>>(defadvice indent-relative (around last-command-tab-to-tab-stop activate)
>>  "If the last command was `indent-relative', run `tab-to-tab-stop' instead."
>>  (if (eq last-command 'indent-relative)	; this-command
>>      (call-interactively 'tab-to-tab-stop)
>>    ad-do-it))
> 
> Outstanding (don't know ear-to-ear grin emoticon).  Thx alot...

You're welcome.  You might want to add a few checks to avoid affecting
indent-relative in other contexts:
(if (and (interactive-p)
	 (equal last-command-char ?\t)
	 (eq last-command 'indent-relative))
    ...)


-- 
Kevin Rodgers <kevinr@ihs.com>