Function: vc-hg-log-view-mode

vc-hg-log-view-mode is an interactive and byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg-log-view-mode)

Documentation

Major mode derived from log-view-mode by define-derived-mode.

It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table:

  vc-hg-log-view-mode-map, vc-hg-log-view-mode-abbrev-table and
vc-hg-log-view-mode-syntax-table

which more-or-less shadow log-view-mode's corresponding tables.

In addition to any hooks its parent mode might have run, this mode runs the hook vc-hg-log-view-mode-hook, as the final or penultimate step during initialization.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(define-derived-mode vc-hg-log-view-mode log-view-mode "Hg-Log-View"
  (require 'add-log) ;; we need the add-log faces
  (let ((shortp (if (eq vc-log-view-type 'log-unintegrated)
                    vc--shortlog
                  (memq vc-log-view-type '(short log-incoming log-outgoing)))))
   (setq-local log-view-file-re regexp-unmatchable)
   (setq-local log-view-per-file-logs nil)
   (setq-local log-view-message-re
               (if shortp
                   (cadr vc-hg-root-log-format)
                 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)"))
   (setq-local tab-width 2)
   ;; Allow expanding short log entries.
   (when shortp
     (setq truncate-lines t)
     (setq-local log-view-expanded-log-entry-function
                 'vc-hg-expanded-log-entry))
   (setq-local log-view-font-lock-keywords
               (if shortp
                   (list (cons (nth 1 vc-hg-root-log-format)
                               (nth 2 vc-hg-root-log-format)))
                 (append
                  log-view-font-lock-keywords
                  '(
                    ;; Handle the case:
                    ;; user: FirstName LastName <foo@bar>
                    ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]"
                     (1 'change-log-name)
                     (2 'change-log-email))
                    ;; Handle the cases:
                    ;; user: foo@bar
                    ;; and
                    ;; user: foo
                    ("^user:[ \t]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)"
                     (1 'change-log-email))
                    ("^date: \\(.+\\)" (1 'change-log-date))
                    ("^tag: +\\([^ ]+\\)$" (1 'highlight))
                    ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message))))))))