Re: Checking parameters

[Cecil Westerhof]

Lennart Borgman (gmail) wrote:
> (defunregulars(time)
>    (interactive "sHH:MM: ")
>    (let ((timelist (split-string time ":"))
>          (errmsg "Time format error"))
>      (save-match-data
>        (unless (string-match "\\`[0-9]+:[0-9]\\{2\\}\\'" time)
>          (error errmsg)))
>      (+
>       (string-to-number (nth 0 timelist))
>       (/
>        (string-to-number (nth 1 timelist))
>        60.0))))

Works like a charm. I only changed the regular expression to
        "\\`[0-9]\\{1,2\\}:[0-9]\\{2\\}\\'"