A variation of Michael E2's answer that uses O instead of Series and thus avoids its bug.
A = a + c (d - a b d) + e c (a + b) f + b - 1;
Normal[(A /. v : Alternatives @@ Variables[A] :> v $t) +
O[$t]^2] /. $t -> 1
-1 + a + b
A variation of Michael E2's answer that uses O instead of Series and thus avoids its bug.
A = a + c (d - a b d) + e c (a + b) f + b - 1;
Normal[(A /. v : Alternatives @@ Variables[A] :> v $t) +
O[$t]^2] /. $t -> 1
-1 + a + b