Function: mpc-tagbrowser-all-select

mpc-tagbrowser-all-select is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc-tagbrowser-all-select)

Documentation

Select the special *ALL* entry if no other is selected.

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc-tagbrowser-all-select ()
  "Select the special *ALL* entry if no other is selected."
  (if mpc-select
      (delete-overlay mpc-tagbrowser-all-ol)
    (save-excursion
      (goto-char (point-min))
      (if mpc-tagbrowser-all-ol
          (move-overlay mpc-tagbrowser-all-ol
                        (point) (line-beginning-position 2))
        (let ((ol (make-overlay (point) (line-beginning-position 2))))
          (overlay-put ol 'face 'highlight)
          (overlay-put ol 'evaporate t)
          (setq-local mpc-tagbrowser-all-ol ol))))))