From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: Option to customize the -m message flag of cvs? Date: Tue, 06 Jan 2009 11:57:24 +0100 Message-ID: <49633914.7060604@gmx.at> References: <49590470.4080306@gmx.at> <49593E94.4030501@gmx.at> <4959CD22.7090306@gmx.at> <495B381F.3010101@gmx.at> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------000803000509040509010500" X-Trace: ger.gmane.org 1231249130 13093 80.91.229.12 (6 Jan 2009 13:38:50 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 6 Jan 2009 13:38:50 +0000 (UTC) Cc: emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Jan 06 14:40:00 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1LKC9z-0005tO-Ex for ged-emacs-devel@m.gmane.org; Tue, 06 Jan 2009 14:39:55 +0100 Original-Received: from localhost ([127.0.0.1]:41151 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LKC8j-0006hY-PE for ged-emacs-devel@m.gmane.org; Tue, 06 Jan 2009 08:38:37 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LKC8g-0006hT-0k for emacs-devel@gnu.org; Tue, 06 Jan 2009 08:38:34 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LKC8e-0006hH-Is for emacs-devel@gnu.org; Tue, 06 Jan 2009 08:38:32 -0500 Original-Received: from [199.232.76.173] (port=32937 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LKC8e-0006hE-EB for emacs-devel@gnu.org; Tue, 06 Jan 2009 08:38:32 -0500 Original-Received: from mail.gmx.net ([213.165.64.20]:55828) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1LKC8d-0002A5-Ns for emacs-devel@gnu.org; Tue, 06 Jan 2009 08:38:32 -0500 Original-Received: (qmail invoked by alias); 06 Jan 2009 13:38:29 -0000 Original-Received: from 88-117-46-106.adsl.highway.telekom.at (EHLO [88.117.46.106]) [88.117.46.106] by mail.gmx.net (mp007) with SMTP; 06 Jan 2009 14:38:29 +0100 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1/r0SU/eKDrUYv7N4KKQ2l7YciujrR71daTS5GXTy qrv40GR1j2dApd User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) In-Reply-To: X-Y-GMX-Trusted: 0 X-FuHaFi: 0.8,0.5600000000000001 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:107636 Archived-At: This is a multi-part message in MIME format. --------------000803000509040509010500 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit >> Does `vc-dir' work for you? > > I don't use it. Apparently only Juanma and me are presently using `vc-dir' on Windows. So if there are no objections I'd like to apply the attached patch. martin --------------000803000509040509010500 Content-Type: text/plain; name="vc-cvs.el.diff" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="vc-cvs.el.diff" *** vc-cvs.el.~1.163.~ 2009-01-05 10:00:27.031250000 +0100 --- vc-cvs.el 2009-01-05 10:19:29.265625000 +0100 *************** *** 180,185 **** --- 180,194 ---- :version "22.1" :group 'vc) + (defcustom vc-cvs-message-switch "-m" + "String passed as message switch to CVS. + By default this is \"-m\". With more recent versions of CVSNT + you might want to set this to \"-M\" to avoid inserting adverts + in commit logs." + :type 'string + :version "23.1" + :group 'vc) + ;;; ;;; Internal variables ;;; *************** *** 288,294 **** (apply 'vc-cvs-command nil 0 files "add" (and comment (string-match "[^\t\n ]" comment) ! (concat "-m" comment)) (vc-switches 'CVS 'register))) (defun vc-cvs-responsible-p (file) --- 297,303 ---- (apply 'vc-cvs-command nil 0 files "add" (and comment (string-match "[^\t\n ]" comment) ! (concat vc-cvs-message-switch comment)) (vc-switches 'CVS 'register))) (defun vc-cvs-responsible-p (file) *************** *** 325,331 **** files))) (let ((status (apply 'vc-cvs-command nil 1 files "ci" (if rev (concat "-r" rev)) ! (concat "-m" comment) (vc-switches 'CVS 'checkin)))) (set-buffer "*vc*") (goto-char (point-min)) --- 334,340 ---- files))) (let ((status (apply 'vc-cvs-command nil 1 files "ci" (if rev (concat "-r" rev)) ! (concat vc-cvs-message-switch comment) (vc-switches 'CVS 'checkin)))) (set-buffer "*vc*") (goto-char (point-min)) *************** *** 485,491 **** (defun vc-cvs-modify-change-comment (files rev comment) "Modify the change comments for FILES on a specified REV. Will fail unless you have administrative privileges on the repo." ! (vc-cvs-command nil 0 files "admin" (concat "-m" rev ":" comment))) ;;; ;;; History functions --- 494,501 ---- (defun vc-cvs-modify-change-comment (files rev comment) "Modify the change comments for FILES on a specified REV. Will fail unless you have administrative privileges on the repo." ! (vc-cvs-command ! nil 0 files "admin" (concat vc-cvs-message-switch rev ":" comment))) ;;; ;;; History functions --------------000803000509040509010500--