\r
; Recognizes pitch & octave\r
(setq pitch-regex "\\([a-z]+[,']*\\|<[^>]*>\\)\\(=[,']*\\)?")\r
\r
; Recognizes pitch & octave\r
(setq pitch-regex "\\([a-z]+[,']*\\|<[^>]*>\\)\\(=[,']*\\)?")\r
(goto-char (match-end 0))\r
(error "Improper regex match:")\r
(error "Unknown text: %s")\r
))))))\r
\r
(goto-char (match-end 0))\r
(error "Improper regex match:")\r
(error "Unknown text: %s")\r
))))))\r
\r
(last-dur (or (re-search-backward duration-regex 0 t) -1))\r
(duration (if (= -1 last-dur) 0 (parse-duration (match-string 0))))\r
(result '(0 1))) ; 0 in fraction form\r
(last-dur (or (re-search-backward duration-regex 0 t) -1))\r
(duration (if (= -1 last-dur) 0 (parse-duration (match-string 0))))\r
(result '(0 1))) ; 0 in fraction form\r