From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Nick Roberts Newsgroups: gmane.emacs.devel Subject: log-edit.el Date: Wed, 25 May 2005 23:02:13 +1200 Message-ID: <17044.23349.76511.530320@farnswood.snap.net.nz> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1117019176 26467 80.91.229.2 (25 May 2005 11:06:16 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 25 May 2005 11:06:16 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed May 25 13:06:13 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DathE-0001kA-UR for ged-emacs-devel@m.gmane.org; Wed, 25 May 2005 13:05:09 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Datl5-0006i0-Dh for ged-emacs-devel@m.gmane.org; Wed, 25 May 2005 07:09:07 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DathA-0002lM-6y for emacs-devel@gnu.org; Wed, 25 May 2005 07:05:04 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Dath5-0002hN-MT for emacs-devel@gnu.org; Wed, 25 May 2005 07:05:01 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Dath3-0002dn-M2 for emacs-devel@gnu.org; Wed, 25 May 2005 07:04:57 -0400 Original-Received: from [202.37.101.8] (helo=viper.snap.net.nz) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Datef-0001SS-TH for emacs-devel@gnu.org; Wed, 25 May 2005 07:02:30 -0400 Original-Received: from farnswood.snap.net.nz (p170-tnt2.snap.net.nz [202.124.108.170]) by viper.snap.net.nz (Postfix) with ESMTP id E7C9253718B for ; Wed, 25 May 2005 23:01:40 +1200 (NZST) Original-Received: by farnswood.snap.net.nz (Postfix, from userid 501) id E4E8562A99; Wed, 25 May 2005 12:02:13 +0100 (BST) Original-To: emacs-devel@gnu.org X-Mailer: VM 7.19 under Emacs 22.0.50.61 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:37606 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:37606 log-edit-insert-changelog (C-c C-a) picks up files with similar names e.g 2005-05-24 Nick Roberts * xmenu.c (Fx_popup_dialog): Add a third boolean argument to select frame title ("Question"/"Information"). (xdialog_show): Use it. * macmenu.c (Fx_popup_dialog, mac_dialog_show): As for xmenu.c. * w32menu.c (Fx_popup_dialog, w32_dialog_show): As for xmenu.c. * fns.c (Fyes_or_no_p, Fy_or_n_p): Call Fx_popup_dialog with a third argument (Qnil). * lisp.h: x-popup-dialog can have three arguments. * editfns.c (Fmessage_box): Use "Information" for frame title. vc-nect-action in fns.c (C-v v v) followed by C-c C-a picks up: * fns.c (Fyes_or_no_p, Fy_or_n_p): Call Fx_popup_dialog with a third argument (Qnil). * editfns.c (Fmessage_box): Use "Information" for frame title. How about the patch below to stop this? Also, I use log-edit-insert-changelog all the time but never use pcl-cvs. How about moving the node about log-edit from the pcl-cvs manual into the Emacs manual? Nick *** /home/nick/emacs/lisp/log-edit.el.~1.28.~ 2005-02-10 08:22:49.000000000 +1300 --- /home/nick/emacs/lisp/log-edit.el 2005-05-25 22:52:52.000000000 +1200 *************** *** 632,638 **** ;; Add each buffer to buffer-entries, and associate it with the list ;; of entries we want from that file. (dolist (file files) ! (let* ((entries (log-edit-changelog-entries file)) (pair (assq (car entries) buffer-entries))) (if pair (setcdr pair (cvs-union (cdr pair) (cdr entries))) --- 632,639 ---- ;; Add each buffer to buffer-entries, and associate it with the list ;; of entries we want from that file. (dolist (file files) ! ;; Prefix filename with a space to distinguish e.g fns.c xfns.c. ! (let* ((entries (log-edit-changelog-entries (concat " " file))) (pair (assq (car entries) buffer-entries))) (if pair (setcdr pair (cvs-union (cdr pair) (cdr entries)))