Function: mpc-songpointer-score

mpc-songpointer-score is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc-songpointer-score CONTEXT POS)

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc-songpointer-score (context pos)
  (let ((count 0))
    (goto-char pos)
    (dolist (song (car context))
      (and (zerop (forward-line -1))
           (eq (get-text-property (point) 'mpc-file) song)
           (cl-incf count)))
    (goto-char pos)
    (dolist (song (cdr context))
      (and (zerop (forward-line 1))
           (eq (get-text-property (point) 'mpc-file) song)
           (cl-incf count)))
    count))