[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master b1d3928 1/2: Pipe Hg commit descriptions through 't
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master b1d3928 1/2: Pipe Hg commit descriptions through 'tabindent' |
Date: |
Wed, 28 Oct 2015 00:46:56 +0000 |
branch: master
commit b1d39288e5845be744dcf8ac3c26631c1009dba1
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Pipe Hg commit descriptions through 'tabindent'
* lisp/vc/vc-hg.el (vc-hg-log-format): Pipe commit description
through 'tabindent'.
(vc-hg-log-view-mode): Set tab-width to 2 locally.
(http://lists.gnu.org/archive/html/emacs-devel/2015-10/msg02259.html)
---
lisp/vc/vc-hg.el | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 8d9493e..1550c56 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -264,7 +264,7 @@ highlighting the Log View buffer."
"{if(parents, 'parents: {parents}\n')}"
"user: {author}\n"
"Date: {date|date}\n"
- "summary: {desc}\n\n")
+ "summary: {desc|tabindent}\n\n")
"Mercurial log template for `vc-hg-print-log' long format.")
(defun vc-hg-print-log (files buffer &optional shortlog start-revision limit)
@@ -305,6 +305,7 @@ If LIMIT is non-nil, show no more than this many entries."
(if (eq vc-log-view-type 'short)
(cadr vc-hg-root-log-format)
"^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)"))
+ (set (make-local-variable 'tab-width) 2)
;; Allow expanding short log entries
(when (eq vc-log-view-type 'short)
(setq truncate-lines t)