From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.bugs,gmane.emacs.pretest.bugs Subject: bug#1771: 23.0.60; suggest "both" option for copyright-at-end-flag Date: Sat, 03 Jan 2009 09:18:15 +1100 Message-ID: <874p0hjqs8.fsf@blah.blah> Reply-To: Kevin Ryde , 1771@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1230936229 32159 80.91.229.12 (2 Jan 2009 22:43:49 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 2 Jan 2009 22:43:49 +0000 (UTC) To: emacs-pretest-bug@gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jan 02 23:44:57 2009 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1LIsl8-0004Dy-QH for geb-bug-gnu-emacs@m.gmane.org; Fri, 02 Jan 2009 23:44:51 +0100 Original-Received: from localhost ([127.0.0.1]:40282 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LIsjt-0002I7-Nb for geb-bug-gnu-emacs@m.gmane.org; Fri, 02 Jan 2009 17:43:33 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LIsjo-0002Et-K6 for bug-gnu-emacs@gnu.org; Fri, 02 Jan 2009 17:43:28 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LIsjm-0002BN-BG for bug-gnu-emacs@gnu.org; Fri, 02 Jan 2009 17:43:27 -0500 Original-Received: from [199.232.76.173] (port=60787 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LIsjm-0002B7-3R for bug-gnu-emacs@gnu.org; Fri, 02 Jan 2009 17:43:26 -0500 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:44439) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LIsjl-0002sb-E6 for bug-gnu-emacs@gnu.org; Fri, 02 Jan 2009 17:43:25 -0500 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id n02MhNX8029746; Fri, 2 Jan 2009 14:43:23 -0800 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id n02MP4iH025138; Fri, 2 Jan 2009 14:25:04 -0800 X-Loop: owner@emacsbugs.donarmstrong.com Resent-From: Kevin Ryde Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Fri, 02 Jan 2009 22:25:03 +0000 Resent-Message-ID: Resent-Sender: owner@emacsbugs.donarmstrong.com X-Emacs-PR-Message: report 1771 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.123093471423769 (code B ref -1); Fri, 02 Jan 2009 22:25:03 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 2 Jan 2009 22:18:34 +0000 X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. Original-Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id n02MIRhd023762 for ; Fri, 2 Jan 2009 14:18:28 -0800 Original-Received: from mail.gnu.org ([199.232.76.166]:54320 helo=mx10.gnu.org) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1LIsKX-0005ev-8N for emacs-pretest-bug@gnu.org; Fri, 02 Jan 2009 17:17:21 -0500 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1LIsLX-0000m1-0X for emacs-pretest-bug@gnu.org; Fri, 02 Jan 2009 17:18:24 -0500 Original-Received: from mailout1-3.pacific.net.au ([61.8.2.210]:50835 helo=mailout1.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LIsLW-0000lX-Hp for emacs-pretest-bug@gnu.org; Fri, 02 Jan 2009 17:18:22 -0500 Original-Received: from mailproxy1.pacific.net.au (mailproxy1.pacific.net.au [61.8.2.162]) by mailout1.pacific.net.au (Postfix) with ESMTP id 24EEA3F2FCE for ; Sat, 3 Jan 2009 09:18:17 +1100 (EST) Original-Received: from blah.blah (ppp2AC2.dyn.pacific.net.au [61.8.42.194]) by mailproxy1.pacific.net.au (Postfix) with ESMTP id 8E1C28C02 for ; Sat, 3 Jan 2009 09:18:16 +1100 (EST) Original-Received: from gg by blah.blah with local (Exim 4.69) (envelope-from ) id 1LIsLP-00019K-MF for emacs-pretest-bug@gnu.org; Sat, 03 Jan 2009 09:18:15 +1100 User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.2 (gnu/linux) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Fri, 02 Jan 2009 17:43:27 -0500 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:23707 gmane.emacs.pretest.bugs:23600 Archived-At: Some perl files have a copyright statement at the start in comments and then again at the end in the embedded documentation. A couple of examples picked at random, http://search.cpan.org/src/GUIDO/libintl-perl-1.16/lib/Locale/TextDomain.pm http://search.cpan.org/src/ECOCODE/Finance-Quote-1.15/lib/Finance/Quote.pm It's a little redundant of course, but the start puts it in front of the programmer and the end in the POD goes through to the man/html/whatever docs, so it's not completely outrageous. It'd be great if copyright-update could update both places. Maybe a "both" mode for copyright-at-end-flag, or maybe even an "all" mode to look for all matches, though I don't suppose three occurances would be likely. If the scan is pretty fast it'd be tempting to just look for all matches, with no options. I got the "both" effect I wanted from a bit of a hack (defun my-copyright-update-both () (interactive) (when (or (not (boundp 'copyright-update)) ;; if not yet loaded copyright-update) (copyright-update) (let ((copyright-at-end-flag (not copyright-at-end-flag))) (setq copyright-update t) (copyright-update)))) ------- In GNU Emacs 23.0.60.10 (i586-pc-linux-gnu, GTK+ Version 2.12.11) of 2008-12-19 on blah.blah configured using `configure 'CFLAGS=-O -g' '--prefix=/down/emacs/b/inst' '--with-x-toolkit=gtk''