#(define (Bar_check_warning_egraver context)
   (make-engraver
    (acknowledgers
     ((rhythmic-head-interface engraver grob source-engraver)
      (let* ((evt (ly:grob-property grob 'cause))
             (loc (ly:event-property evt 'origin))
             (loc (format #f "~a" loc))
             (loc (string-copy loc 11 (1- (string-length loc))))
             (dur (ly:event-property evt 'duration))
             (dur-as-mom (ly:duration-length dur))
             (current-mlen (ly:context-property context 'measureLength))
             (current-mpos (ly:context-property context 'measurePosition))
             (rest-len (ly:moment-sub current-mlen current-mpos))
             (timing (ly:context-property context 'timing #t)))
        (if (and (= 0 (ly:moment-grace current-mpos)) timing) ; We do not care about grace notes or cadenzas
            (if (ly:moment<? rest-len dur-as-mom)
                (ly:warning-located loc "Duration (~a) exceeds remaining measure length (~a)" dur-as-mom rest-len))))))))

\layout {
  \context {
    \Voice
    \consists #Bar_check_warning_egraver
  }
}

{
  c' e' \grace { a'\breve %{ should not issue a warning %} } g'4 e'1 <e e''' e''>2 }

{ \cadenzaOn c'\breve %{ should not issue a warning %} }