From 2936e254c12820cdfaa2683e1bd831a561ff1d15 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C4=B0=2E=20G=C3=B6ktu=C4=9F=20Kayaalp?= Date: Tue, 10 Oct 2017 01:43:30 +0300 Subject: [PATCH] =?UTF-8?q?Implement=20=E2=80=98vc-default-dir-extra-heade?= =?UTF-8?q?rs=E2=80=99=20for=20vc-rcs?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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