Re: TAB when the region is active

[Lennart Borgman (gmail)]

Richard Stallman wrote:
>       > The idea is logical, but we need to ask users if they find the change
>       > annoying.
>
>     Given that we are not close to a release, this would be a good time to
>     experiment.  Can you please OK such a change?
>
> I will ok trying it, if you agree to follow up in a few weeks
> by reminding people to try it and say if they don't like it.


The code below is what I currently use. There are some problems I know 
about:

- I do not remember what Drew wanted to add (in another message).

- indent-according-to-mode is not supported everywhere.

BTW, there is another problem with the indentation functions. I believe 
it would be useful (at least in mumamo.el) if the function that indents 
a line where split into one that gives the indentation amount and one 
that does the indentation (for every major mode).


(defun indent-line-or-region ()
  "Indent line or region.
Only do this if indentation seems bound to \\t.

Call `indent-region' if region is active, otherwise
`indent-according-to-mode'."
  (interactive)
  ;; Do a wild guess if we should indent or not ...
  (let* ((indent-region-mode)
         (t-bound (key-binding [?\t])))
    (if (not
         (save-match-data
           (string-match "indent" (symbol-name t-bound))))
        (call-interactively t-bound t)
      (if (and mark-active ;; there is a visible region selected
               transient-mark-mode)
          (indent-region (region-beginning) (region-end))
        (indent-according-to-mode))))) ;; indent line