- EQ (attribute, Q_same) ||
- EQ (attribute, Q_same_of) ||
- !NILP (Fstring_match (build_string ("^<-simplified[^*]*$"),
- Fsymbol_name (attribute),
- Qnil, Qnil)) )
+ !NILP (Fstring_match
+ (build_string ("^\\(<-\\|->\\)\\(simplified"
+ "\\|same\\|vulgar\\|wrong"
+ "\\|original\\|ancient"
+ "\\)[^*]*$"),
+ Fsymbol_name (attribute),
+ Qnil, Qnil)) )