Simon Wright <[email protected]> writes:
> Given this …
>
> procedure Register (E : Engine;
> With_Command : Command'Class;
> Named : String);
>
> and C-c C-a,
>
> If point is between ) and ;, all is well.
>
> If point is before the ( [which is clearly wrong), the first line only
> is adjusted to have a single space between E and :
This is a bug in ada-align-region-separate, but I don't think it's worth
fixing.
> If point is between ( and ), the alignment is correct but an extra
> space is inserted between ) and ;.
This is fixed by the following patch:
============================================================
--- ada-mode.el 3656169ff84c2d42086171d893b3f440cb8edefe
+++ ada-mode.el 7f084af755b3a9dede32131a5fb44da124df3156
@@ -689,7 +689,7 @@ Each parameter declaration is represente
)
(let ((space-before-p (save-excursion (skip-chars-backward " \t") (not
(bolp))))
- (space-after-p (save-excursion (skip-chars-forward " \t") (not
(eolp)))))
+ (space-after-p (save-excursion (skip-chars-forward " \t") (not (or (=
(char-after) ?\;) (eolp))))))
(when space-before-p
;; paramlist starts on same line as subprogram identifier; clean
;; up whitespace. Allow for code on same line as closing paren
--
-- Stephe
_______________________________________________
Emacs-ada-mode mailing list
[email protected]
http://host114.hostmonster.com/mailman/listinfo/emacs-ada-mode_stephe-leake.org
