Re: C-u prefix behavior of TAB broken

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 1002 bytes --]

 >>    This said, IMNSHO the feature we're talking about shouldn't be implement
 >>    in lisp-mode and c-mode but directly generically in
 >>    indent-for-tab-command.
 >>
 >>If that works, by all means do it.

FWIW all indent-line-functions with the exception of `lisp-indent-line'
either don't have arguments or, like `c-indent-line', `f90-indent-line',
and `(c)perl-indent-line' expect completely different arguments here.
Hence a generic solution seems hardly practicable.

For the case a prefix argument is given and the region is not active, we
could try to set the region around the smallest containing form and call
`indent-region' on that.  But that would be a different feature.

 > I'd certainly be grateful!
 >
 > [I didn't realize I used it so much (on the face of it, it seems like a
 > rather obscure bit of functionality), but I find my fingers keep trying
 > to invoke it, and I keep being surprised when it doesn't work...  ]

For `lisp-indent-line' I can offer the attached patch.

[-- Attachment #2: lisp-mode.patch --]
[-- Type: text/plain, Size: 803 bytes --]

*** lisp-mode.el.~1.209.~	Tue Oct  9 11:52:54 2007
--- lisp-mode.el	Sat Dec 22 09:55:52 2007
***************
*** 821,827 ****
        (if (> (- (point-max) pos) (point))
  	  (goto-char (- (point-max) pos)))
        ;; If desired, shift remaining lines of expression the same amount.
!       (and whole-exp (not (zerop shift-amt))
  	   (save-excursion
  	     (goto-char beg)
  	     (forward-sexp 1)
--- 821,831 ----
        (if (> (- (point-max) pos) (point))
  	  (goto-char (- (point-max) pos)))
        ;; If desired, shift remaining lines of expression the same amount.
!       (and (or whole-exp
! 	       (and current-prefix-arg
! 		    (or (not transient-mark-mode)
! 			(not mark-active))))
! 	   (not (zerop shift-amt))
  	   (save-excursion
  	     (goto-char beg)
  	     (forward-sexp 1)

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel