$ifdef NOT_NOT
procedure fool_emacs()
$endif

		tl_findsig(p, dont_coerce)
		if (p.cn_hd_field . signature ~= ERR_SIG) then {
		  sig := p.cn_hd_field . sel_type . signature
		  if (sig . ts_string_max = -1) then {
		      maxlen := MAXSTRLEN
		  } else {
		      maxlen := sig . ts_string_max
		  }
		  if (/ (sig . ts_string_code) |
		      / (sig . ts_element_code) |
		       *(p.cn_hd_field . str_string) > maxlen |
		       p.cn_hd_field . sel_type . kind ~= LETTERID |
 		      (/ ( p .cn_hd_field . sel_type . sel_type))) then {
		    checksigs(p . str_expansion, dont_coerce)
		  } else {
		    checksigs(p . sel_type, FALSE)
		  }
		}

$ifdef NOT_NOT
end
$endif
