From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 28 Oct 2015 00:42:51 +0000 (+0200)
Subject: Pipe Hg commit descriptions through 'tabindent'
X-Git-Tag: emacs-25.0.90~1003^2^2~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1d39288e5845be744dcf8ac3c26631c1009dba1;p=emacs.git

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)
---

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 8d9493ec210..1550c564b7e 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)