Function: org-babel-lilypond-mark-error-line

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

Signature

(org-babel-lilypond-mark-error-line FILE-NAME LINE)

Documentation

Mark the erroneous lines in the lilypond org buffer.

FILE-NAME is full path to lilypond file. LINE is the erroneous line.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-lilypond.el.gz
(defun org-babel-lilypond-mark-error-line (file-name line)
  "Mark the erroneous lines in the lilypond org buffer.
FILE-NAME is full path to lilypond file.
LINE is the erroneous line."
  (org-switch-to-buffer-other-window
   (concat (file-name-nondirectory
            (org-babel-lilypond-switch-extension file-name ".org"))))
  (let ((temp (point)))
    (goto-char (point-min))
    (setq case-fold-search nil)
    (if (search-forward line nil t)
        (progn
          (org-fold-show-all)
          (set-mark (point))
          (goto-char (- (point) (length line))))
      (goto-char temp))))