From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: =?UTF-8?Q?=C4=B0._?= =?UTF-8?Q?G=C3=B6ktu=C4=9F?= Kayaalp Newsgroups: gmane.emacs.bugs Subject: bug#28570: [PATCH] Implement =?UTF-8?Q?=E2=80=98vc-default-dir-extra-headers=E2=80=99?= for vc-rcs Date: Tue, 10 Oct 2017 01:43:30 +0300 Message-ID: References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1507591824 12304 195.159.176.226 (9 Oct 2017 23:30:24 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 9 Oct 2017 23:30:24 +0000 (UTC) Cc: 28570@debbugs.gnu.org To: dgutov@yandex.ru Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Oct 10 01:30:17 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e1hUu-00018L-9h for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Oct 2017 01:30:08 +0200 Original-Received: from localhost ([::1]:60287 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e1hV0-0006Kb-2o for geb-bug-gnu-emacs@m.gmane.org; Mon, 09 Oct 2017 19:30:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:37092) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e1hUt-0006I2-Dj for bug-gnu-emacs@gnu.org; Mon, 09 Oct 2017 19:30:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1e1hUp-0005mN-Fd for bug-gnu-emacs@gnu.org; Mon, 09 Oct 2017 19:30:07 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:50161) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1e1hUp-0005mC-CY for bug-gnu-emacs@gnu.org; Mon, 09 Oct 2017 19:30:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1e1hUo-0001NH-RS for bug-gnu-emacs@gnu.org; Mon, 09 Oct 2017 19:30:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: =?UTF-8?Q?=C4=B0._?= =?UTF-8?Q?G=C3=B6ktu=C4=9F?= Kayaalp Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 09 Oct 2017 23:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 28570 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 28570-submit@debbugs.gnu.org id=B28570.15075917715217 (code B ref 28570); Mon, 09 Oct 2017 23:30:02 +0000 Original-Received: (at 28570) by debbugs.gnu.org; 9 Oct 2017 23:29:31 +0000 Original-Received: from localhost ([127.0.0.1]:58842 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e1hUI-0001M5-O1 for submit@debbugs.gnu.org; Mon, 09 Oct 2017 19:29:30 -0400 Original-Received: from relay6-d.mail.gandi.net ([217.70.183.198]:51684) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e1hUG-0001Lw-Dl for 28570@debbugs.gnu.org; Mon, 09 Oct 2017 19:29:29 -0400 X-Originating-IP: 188.3.108.78 Original-Received: from alpha.alpha (unknown [188.3.108.78]) (Authenticated sender: self@gkayaalp.com) by relay6-d.mail.gandi.net (Postfix) with ESMTPSA id 8D284FB886; Tue, 10 Oct 2017 01:29:25 +0200 (CEST) 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: 208.118.235.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:138143 Archived-At: Add an implementation of this for vc-rcs that does nothing to suppress the message the default function adds to the vc-dir buffer (Bug#28570). * lisp/vc/vc-rcs.el (vc-rcs-dir-extra-headers): New function. --- lisp/vc/vc-rcs.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el index db1addbecd..6e639f8d13 100644 --- a/lisp/vc/vc-rcs.el +++ b/lisp/vc/vc-rcs.el @@ -177,6 +177,8 @@ vc-rcs-dir-status-files (push (list frel state) result)))) (funcall update-function result))) +(defun vc-rcs-dir-extra-headers (&rest ignore)) + (defun vc-rcs-working-revision (file) "RCS-specific version of `vc-working-revision'." (or (and vc-consult-headers -- 2.11.0