1212 |
(cond ((< gocol 0) t) ; don't do anything |
(cond ((< gocol 0) t) ; don't do anything |
1213 |
((= cur gocol) t) ; don't need to |
((= cur gocol) t) ; don't need to |
1214 |
((< cur gocol) ; just add space |
((< cur gocol) ; just add space |
1215 |
|
;; FIXME: It is stated above that "...the |
1216 |
|
;; whitespace to be modified was already |
1217 |
|
;; deleted by `align-region', all we have |
1218 |
|
;; to do here is indent." However, this |
1219 |
|
;; doesn't seem to be true, so we first |
1220 |
|
;; delete the whitespace to avoid tabs |
1221 |
|
;; after spaces. |
1222 |
|
(delete-horizontal-space t) |
1223 |
(indent-to gocol)) |
(indent-to gocol)) |
1224 |
(t |
(t |
1225 |
;; This code works around an oddity in the |
;; This code works around an oddity in the |