branch: externals/vc-hgcmd
commit c57cd1f50bbeaa8c94d353796444946666966666
Author: muffinmad <[email protected]>
Commit: muffinmad <[email protected]>
Expand shortlog entry
---
vc-hgcmd.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index 053a18d..a3d48e6 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -1125,6 +1125,7 @@ With prefix argument, ask for 'log' command arguments."
(defvar log-view-font-lock-keywords)
(defvar log-view-vc-backend)
(defvar log-view-vc-fileset)
+(defvar log-view-expanded-log-entry-function)
(defvar vc-hgcmd-log-view-mode-map
(let ((map (make-sparse-keymap)))
@@ -1145,6 +1146,9 @@ With prefix argument, ask for 'log' command arguments."
(cadr vc-hgcmd-short-log-format)
vc-hgcmd--message-re)
"[[:digit:]]+"))
+ (when (eq vc-log-view-type 'short)
+ (set (make-local-variable 'log-view-expanded-log-entry-function)
+ #'vc-hgcmd-expanded-log-entry))
(set (make-local-variable 'log-view-font-lock-keywords)
(if (eq vc-log-view-type 'short)
(list (cons (format (nth 1 vc-hgcmd-short-log-format)
"[[:digit:]]+")
@@ -1177,6 +1181,10 @@ With prefix argument, ask for 'log' command arguments."
(goto-char (match-beginning 0))
nil))))
+(defun vc-hgcmd-expanded-log-entry (revision)
+ "Show log entry for REVISION."
+ (concat (vc-hgcmd-command "log" "-v" "-r" revision) "\n"))
+
(declare-function log-view-current-tag "log-view" (&optional pos))
(defun vc-hgcmd--diff-revision (pos files)
