From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Andrii Kolomoiets Newsgroups: gmane.emacs.bugs Subject: bug#38387: 27.0.50; [PATCH] vc-hg: use 'hg summary' to populate vc-dir headers Date: Tue, 26 Nov 2019 17:16:07 +0200 Message-ID: Mime-Version: 1.0 (Mac OS X Mail 13.0 \(3601.0.10\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_FCE283B0-5612-4ABD-A2A6-84CA04F7E833" Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="268654"; mail-complaints-to="usenet@blaine.gmane.org" To: 38387@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Nov 26 16:17:25 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1iZcaj-0017j0-5N for geb-bug-gnu-emacs@m.gmane.org; Tue, 26 Nov 2019 16:17:25 +0100 Original-Received: from localhost ([::1]:56246 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iZcah-0001EC-ST for geb-bug-gnu-emacs@m.gmane.org; Tue, 26 Nov 2019 10:17:23 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:56132) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iZcaN-0001E2-LQ for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:17:04 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iZcaM-0005rt-PJ for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:17:03 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:46747) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1iZcaM-0005rp-LU for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:17:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1iZcaM-0002a6-He for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:17:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Andrii Kolomoiets Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 26 Nov 2019 15:17:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 38387 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15747813759863 (code B ref -1); Tue, 26 Nov 2019 15:17:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 26 Nov 2019 15:16:15 +0000 Original-Received: from localhost ([127.0.0.1]:52720 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iZcZa-0002Z1-RN for submit@debbugs.gnu.org; Tue, 26 Nov 2019 10:16:15 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:48655) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iZcZa-0002Yu-0g for submit@debbugs.gnu.org; Tue, 26 Nov 2019 10:16:14 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:55910) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iZcZY-0000tI-V9 for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:16:13 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iZcZY-0005DU-2B for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:16:12 -0500 Original-Received: from mail-lj1-x22c.google.com ([2a00:1450:4864:20::22c]:33829) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1iZcZX-0005C6-PA for bug-gnu-emacs@gnu.org; Tue, 26 Nov 2019 10:16:12 -0500 Original-Received: by mail-lj1-x22c.google.com with SMTP id m6so13293476ljc.1 for ; Tue, 26 Nov 2019 07:16:11 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:mime-version:subject:message-id:date:to; bh=2PiovLKOCo+BmOFBd8WQPfv38RNe59rGvgnfGHtdHsg=; b=C+WR9RIKgCSaJs6Su9aL8tXXUx0b4M9RBfFVSY5DaFrG69nhtkoux8VrcqBdIg8dq/ 1aHntJncaZem0WLPsg/aSZPv4FDMIx9LoJPASGEpzXSssOm4wAYUeYxWeULwOzTT46Wd boGQ0gmZAikr6jfr5zcF6xwy2Y3bQOo9GB7jn5NTnl1gjbd23iopmagPUJzsYL92cZck vzvfedjh+pRQUiN/hsQurN6yFR94tqcfUSJ2kB0Adkhb4MVcp2/XqktXyxLeWqYeYV3z mHq+St6tVkK63fiNBgRnKQ5miMX7kL1xO+VsemChFv/Gth5YVJL/NcwZyg+ACyGePRMc iu0g== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:mime-version:subject:message-id:date:to; bh=2PiovLKOCo+BmOFBd8WQPfv38RNe59rGvgnfGHtdHsg=; b=ADfnZ58X9KDYegE2zkFclPE/VWWYVkKYnfYPcTWkhlpcwyHag5ILlPI8tWOLmzk/Z4 tMQFq6Se7WbqnrmYKFQe88Bknfzu+ITDoF5ffKSxrsexTh8pKjjWLxF1Z9OZS+lNmjVT cSapJ/2dsb2yHj7fV5GQIT03tspDOPoYXFjQ04uoil9GgFIeOh70VUjXq82w9vmB68nM ineQV/9B/hLxojcFSo+T6LQvKMC5oXH5SZg7Y4iF9rcawGKcUuVCWirobfRF9eshGptR 06oD1IgDIGBL2jTiCtVxt/QvJ5a02jmGpTtNgXLxgMngB6PtR+PotaoDNY4x5gFIcSpd I26w== X-Gm-Message-State: APjAAAVT8nTJArKdkLDzZ8QhlXqe9ejLwSXM75T2pgqQIwwZeT/iPnAU bUaPT0LjrHrJyGUpD4889NxA37PKEog= X-Google-Smtp-Source: APXvYqzovDXg9wH2jTg557/fR4IKNYSKlZJvR7r+1VRxYfb/a21TUsWWBlDcThOSEfIdj5Nt/eRf6A== X-Received: by 2002:a2e:8518:: with SMTP id j24mr25130655lji.13.1574781369532; Tue, 26 Nov 2019 07:16:09 -0800 (PST) Original-Received: from [10.1.1.147] (188-42-207-82.ip.ukrtel.net. [82.207.42.188]) by smtp.gmail.com with ESMTPSA id v28sm856824lfd.93.2019.11.26.07.16.08 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Tue, 26 Nov 2019 07:16:08 -0800 (PST) X-Mailer: Apple Mail (2.3601.0.10) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:172438 Archived-At: --Apple-Mail=_FCE283B0-5612-4ABD-A2A6-84CA04F7E833 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=us-ascii Hi, By invoking single 'summary' command we can get more info about repository state: parent revisions, current branch, tags, bookmarks, commit status, available updates and phase. --Apple-Mail=_FCE283B0-5612-4ABD-A2A6-84CA04F7E833 Content-Disposition: attachment; filename=0001-vc-hg-use-hg-summary-to-populate-extra-vc-dir-header.patch Content-Type: application/octet-stream; x-unix-mode=0644; name="0001-vc-hg-use-hg-summary-to-populate-extra-vc-dir-header.patch" Content-Transfer-Encoding: quoted-printable =46rom=2077350d57f718efbf96d4c8deb59b80e22c2ebea7=20Mon=20Sep=2017=20= 00:00:00=202001=0AFrom:=20Andrii=20Kolomoiets=20=0A= Date:=20Tue,=2026=20Nov=202019=2017:10:29=20+0200=0ASubject:=20[PATCH]=20= vc-hg:=20use=20'hg=20summary'=20to=20populate=20vc-dir=20headers=0A=0ABy=20= invoking=20single=20'summary'=20command=20we=20can=20get=20more=20info=20= about=0Arepository=20state:=20parent=20revisions,=20current=20branch,=20= tags,=20bookmarks,=0Acommit=20status,=20available=20updates=20and=20= phase.=0A=0A*=20lisp/vc/vc-hg.el=20(vc-hg-dir-extra-headers):=20Use=20= 'hg=20summary'=20command.=0A(vc-hg-dir-extra-header):=20Remove=20unused=20= function.=0A*=20etc/NEWS:=20Mention=20changes=20to=20vc-hg.el=0A=0Adiff=20= --git=20a/etc/NEWS=20b/etc/NEWS=0Aindex=20d3331daf17..f7abfb1680=20= 100644=0A---=20a/etc/NEWS=0A+++=20b/etc/NEWS=0A@@=20-956,6=20+956,10=20= @@=20with=20conflicts=20existed=20in=20earlier=20versions=20of=20Emacs,=20= but=20incorrectly=0A=20never=20detected=20a=20conflict=20due=20to=20= invalid=20assumptions=20about=20cached=0A=20values.=0A=20=0A+---=0A+***=20= 'vc-hg'=20now=20uses=20'hg=20summary'=20command=20to=20populate=20extra=20= 'vc-dir'=0A+headers.=0A+=0A=20+++=0A=20***=20The=20Hg=20(Mercurial)=20= back-end=20now=20supports=20'vc-region-history'.=0A=20The=20'C-x=20v=20= h'=20command=20now=20works=20in=20buffers=20that=20visit=20files=20= controlled=0Adiff=20--git=20a/lisp/vc/vc-hg.el=20b/lisp/vc/vc-hg.el=0A= index=2017d38fa400..6ff4923a14=20100644=0A---=20a/lisp/vc/vc-hg.el=0A+++=20= b/lisp/vc/vc-hg.el=0A@@=20-1357,25=20+1357,28=20@@=20= vc-hg-dir-status-files=0A=20=20=20(vc-run-delayed=0A=20=20=20=20=20= (vc-hg-after-dir-status=20update-function)))=0A=20=0A-(defun=20= vc-hg-dir-extra-header=20(name=20&rest=20commands)=0A-=20=20(concat=20= (propertize=20name=20'face=20'font-lock-type-face)=0A-=20=20=20=20=20=20=20= =20=20=20(propertize=0A-=20=20=20=20=20=20=20=20=20=20=20= (with-temp-buffer=0A-=20=20=20=20=20=20=20=20=20=20=20=20=20(apply=20= 'vc-hg-command=20(current-buffer)=200=20nil=20commands)=0A-=20=20=20=20=20= =20=20=20=20=20=20=20=20(buffer-substring-no-properties=20(point-min)=20= (1-=20(point-max))))=0A-=20=20=20=20=20=20=20=20=20=20=20'face=20= 'font-lock-variable-name-face)))=0A-=0A=20(defun=20= vc-hg-dir-extra-headers=20(dir)=0A-=20=20"Generate=20extra=20status=20= headers=20for=20a=20Mercurial=20tree."=0A+=20=20"Generate=20extra=20= status=20headers=20for=20a=20repository=20in=20DIR.=0A+This=20runs=20the=20= command=20\"hg=20summary\"."=0A=20=20=20(let=20((default-directory=20= dir))=0A-=20=20=20=20(concat=0A-=20=20=20=20=20(vc-hg-dir-extra-header=20= "Root=20=20=20=20=20=20=20:=20"=20"root")=20"\n"=0A-=20=20=20=20=20= (vc-hg-dir-extra-header=20"Branch=20=20=20=20=20:=20"=20"id"=20"-b")=20= "\n"=0A-=20=20=20=20=20(vc-hg-dir-extra-header=20"Tags=20=20=20=20=20=20=20= :=20"=20"id"=20"-t")=20;=20"\n"=0A-=20=20=20=20=20;;=20these=20change=20= after=20each=20commit=0A-=20=20=20=20=20;;=20(vc-hg-dir-extra-header=20= "Local=20num=20=20:=20"=20"id"=20"-n")=20"\n"=0A-=20=20=20=20=20;;=20= (vc-hg-dir-extra-header=20"Global=20id=20=20:=20"=20"id"=20"-i")=0A-=20=20= =20=20=20)))=0A+=20=20=20=20(with-temp-buffer=0A+=20=20=20=20=20=20= (vc-hg-command=20t=200=20nil=20"summary")=0A+=20=20=20=20=20=20= (goto-char=20(point-min))=0A+=20=20=20=20=20=20(mapconcat=0A+=20=20=20=20= =20=20=20#'identity=0A+=20=20=20=20=20=20=20(let=20(result)=0A+=20=20=20=20= =20=20=20=20=20(while=20(not=20(eobp))=0A+=20=20=20=20=20=20=20=20=20=20=20= (push=0A+=20=20=20=20=20=20=20=20=20=20=20=20(let=20((entry=20(if=20= (looking-at=20"\\([^=20].*\\):=20\\(.*\\)")=0A+=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20(cons=20= (capitalize=20(match-string=201))=20(match-string=202))=0A+=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20(cons=20= ""=20(buffer-substring=20(point)=20(line-end-position))))))=0A+=20=20=20=20= =20=20=20=20=20=20=20=20=20=20(concat=0A+=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20(propertize=20(format=20"%-11s:=20"=20(car=20entry))=20'face=20= 'font-lock-type-face)=0A+=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= (propertize=20(cdr=20entry)=20'face=20'font-lock-variable-name-face)))=0A= +=20=20=20=20=20=20=20=20=20=20=20=20result)=0A+=20=20=20=20=20=20=20=20=20= =20=20(forward-line))=0A+=20=20=20=20=20=20=20=20=20(nreverse=20result))=0A= +=20=20=20=20=20=20=20"\n"))))=0A=20=0A=20(defun=20vc-hg-log-incoming=20= (buffer=20remote-location)=0A=20=20=20(vc-hg-command=20buffer=201=20nil=20= "incoming"=20"-n"=20(unless=20(string=3D=20remote-location=20"")=0A--=20=0A= 2.15.1=0A=0A= --Apple-Mail=_FCE283B0-5612-4ABD-A2A6-84CA04F7E833--