Function: org-babel-lilypond-parse-line-num

org-babel-lilypond-parse-line-num is a byte-compiled function defined in ob-lilypond.el.gz.

Signature

(org-babel-lilypond-parse-line-num &optional BUFFER)

Documentation

Extract error line number in BUFFER or current-buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-lilypond.el.gz
(defun org-babel-lilypond-parse-line-num (&optional buffer)
  "Extract error line number in BUFFER or `current-buffer'."
  (when buffer (set-buffer buffer))
  (let ((start
         (and (search-backward ":" nil t)
              (search-backward ":" nil t)
              (search-backward ":" nil t)
              (search-backward ":" nil t))))
    (when start
      (forward-char)
      (let ((num (string-to-number
		  (buffer-substring
		   (+ 1 start)
		   (- (search-forward ":" nil t) 1)))))
	(and (numberp num) num)))))