Function: vc-hg-working-branch

vc-hg-working-branch is a byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg-working-branch)

Documentation

Return currently active bookmark if one exists, else current branch.

The return value is always a string.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(defun vc-hg-working-branch ()
  "Return currently active bookmark if one exists, else current branch.
The return value is always a string."
  (let ((alist (vc-hg--working-branch)))
    (cdr (or (assq 'bookmark alist) (assq 'branch alist)))))