Function: vc-hg--symbolic-revision

vc-hg--symbolic-revision is a byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg--symbolic-revision REV &optional PATH)

Documentation

Make a Mercurial revision human-readable.

REV is a Mercurial revision. default-directory is assumed to be in the repository root of interest. PATH, if set, is a specific file to query.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(defun vc-hg--symbolic-revision (rev &optional path)
  "Make a Mercurial revision human-readable.
REV is a Mercurial revision.  `default-directory' is assumed to
be in the repository root of interest.  PATH, if set, is a
specific file to query."
  (let ((symbolic-revision nil)
        (styles vc-hg-symbolic-revision-styles))
    (while (and (not symbolic-revision) styles)
      (let ((style (pop styles)))
        (setf symbolic-revision
              (cond ((and (null path) (eq style 'builtin-active-bookmark))
                     (vc-hg--active-bookmark-internal rev))
                    ((stringp style)
                     (vc-hg--run-log style rev path))
                    ((functionp style)
                     (funcall style rev path))))))
    symbolic-revision))