(defun xah-html-video-file-suffix-p (Path)
"Returns t if Path has video file suffix e.g. mp4, else nil.
Version 2018-11-14 2021-09-24"
(let ((case-fold-searcht))
(string-match"\\.mp4\\'\\|\\.mov\\'\\|\\.mkv\\'\\|\\.webm\\'\\|\\.m1v\\'\\|\\.m4v\\'"Path)))