Function: vc-hg--active-bookmark-internal

vc-hg--active-bookmark-internal is a byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg--active-bookmark-internal REV)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(defun vc-hg--active-bookmark-internal (rev)
  (when (equal rev ".")
    (let* ((current-bookmarks-file
            (expand-file-name ".hg/bookmarks.current"
                              (vc-hg-root default-directory))))
      (and (file-exists-p current-bookmarks-file)
           (ignore-errors
             (with-temp-buffer
               (insert-file-contents current-bookmarks-file)
               (buffer-substring-no-properties (point-min) (point-max))))))))