simple patch for `align.el'

[Paul Pogonyshev <pogonyshev@gmx.net>]

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

Try typing

  a = 0;
  counter = 0;

then select this region and `M-x align' it.  The first line will have a
space followed by a tab, which is not good and is frowned upon by the
`whitespace' module.  The simple patch below fixes this.

I have to admit I didn't care to understand all the code in `align.el',
but I'm absolutely sure the patch is safe and works.


2004-10-24  Paul Pogonyshev  <pogonyshev@gmx.net>

        * align.el (align-areas): Delete whitespace before reindenting, so
        that tabs are never placed after spaces.


My mailer currently mangles tabs, so I attach the patch instead of inlining
it.

Paul



[-- Attachment #2: patch --]
[-- Type: text/x-diff, Size: 775 bytes --]

--- align.el	01 Sep 2003 18:45:04 +0300	1.13
+++ align.el	24 Oct 2004 00:36:41 +0300	
@@ -1212,6 +1212,14 @@ have been aligned.  No changes will be m
 	      (cond ((< gocol 0) t)     ; don't do anything
 		    ((= cur gocol) t)   ; don't need to
 		    ((< cur gocol)      ; just add space
+		     ;; FIXME: It is stated above that "...the
+		     ;;	       whitespace to be modified was already
+		     ;;	       deleted by `align-region', all we have
+		     ;;	       to do here is indent."  However, this
+		     ;;	       doesn't seem to be true, so we first
+		     ;;	       delete the whitespace to avoid tabs
+		     ;;	       after spaces.
+		     (delete-horizontal-space t)
 		     (indent-to gocol))
 		    (t
 		     ;; This code works around an oddity in the

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

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