GNU bug report logs - #1771
23.0.60; suggest "both" option for copyright-at-end-flag

Message received at submit@HIDDEN:

Received: (at submit) by emacsbugs.donarmstrong.com; 2 Jan 2009 22:18:34 +0000
From gg@HIDDEN Fri Jan  2 14:18:34 2009
X-Spam-Checker-Version: SpamAssassin 3.2.5-bugs.debian.org_2005_01_02
	(2008-06-10) on rzlab.ucr.edu
X-Spam-Level: 
X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available.
	hammytokens:Tokens not available.
X-Spam-Status: No, score=0.0 required=4.0 tests=none autolearn=ham
	version=3.2.5-bugs.debian.org_2005_01_02
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 <submit@HIDDEN>; Fri, 2 Jan 2009 14:18:28 -0800
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 <gg@HIDDEN>)
	id 1LIsKX-0005ev-8N
	for emacs-pretest-bug@HIDDEN; Fri, 02 Jan 2009 17:17:21 -0500
Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60)
	(envelope-from <gg@HIDDEN>)
	id 1LIsLX-0000m1-0X
	for emacs-pretest-bug@HIDDEN; Fri, 02 Jan 2009 17:18:24 -0500
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 <gg@HIDDEN>)
	id 1LIsLW-0000lX-Hp
	for emacs-pretest-bug@HIDDEN; Fri, 02 Jan 2009 17:18:22 -0500
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 <emacs-pretest-bug@HIDDEN>; Sat,  3 Jan 2009 09:18:17 +1100 (EST)
Received: from blah.blah (ppp2AC2.dyn.pacific.net.au [61.8.42.194])
	by mailproxy1.pacific.net.au (Postfix) with ESMTP id 8E1C28C02
	for <emacs-pretest-bug@HIDDEN>; Sat,  3 Jan 2009 09:18:16 +1100 (EST)
Received: from gg by blah.blah with local (Exim 4.69)
	(envelope-from <gg@HIDDEN>)
	id 1LIsLP-00019K-MF
	for emacs-pretest-bug@HIDDEN; Sat, 03 Jan 2009 09:18:15 +1100
From: Kevin Ryde <user42@HIDDEN>
To: emacs-pretest-bug@HIDDEN
Subject: 23.0.60; suggest "both" option for copyright-at-end-flag
Date: Sat, 03 Jan 2009 09:18:15 +1100
Message-ID: <874p0hjqs8.fsf@HIDDEN>
User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.2 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4)

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''