From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Politz Newsgroups: gmane.emacs.help Subject: Re: Redefining functions and variables Date: Wed, 28 Jul 2010 02:35:03 +0200 Organization: FH-Trier Message-ID: <876300fnpk.fsf@fh-trier.de> References: <68e690c9-aece-461d-afe9-ca9115ceaee5@m1g2000vbh.googlegroups.com> <76fd4dc4-a964-4629-90e2-329e1b83fd8d@h25g2000vba.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1291858626 6320 80.91.229.12 (9 Dec 2010 01:37:06 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 9 Dec 2010 01:37:06 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Dec 09 02:37:03 2010 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PQVRL-0007Rv-TM for geh-help-gnu-emacs@m.gmane.org; Thu, 09 Dec 2010 02:37:00 +0100 Original-Received: from localhost ([127.0.0.1]:60893 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PQVRL-0007FD-6N for geh-help-gnu-emacs@m.gmane.org; Wed, 08 Dec 2010 20:36:59 -0500 Original-Path: usenet.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!kanaga.switch.ch!switch.ch!news.belwue.de!news.uni-kl.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 60 Original-NNTP-Posting-Host: 143-93-54-11.arno.fh-trier.de Original-X-Trace: news.uni-kl.de 1280277304 17381 143.93.54.11 (28 Jul 2010 00:35:04 GMT) Original-X-Complaints-To: usenet@news.uni-kl.de Original-NNTP-Posting-Date: Wed, 28 Jul 2010 00:35:04 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:it7pYelMxj6+E+uQSBEVWv9/1B8= Cache-Post-Path: arno.fh-trier.de!unknown@dslb-084-059-215-138.pools.arcor-ip.net X-Cache: nntpcache 3.0.1 (see http://www.nntpcache.org/) Original-Xref: usenet.stanford.edu gnu.emacs.help:180129 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:76398 Archived-At: Elena writes: > On 27 Lug, 22:21, Stefan Monnier wrote: >> > I wonder whether there is a way to catch such redefinitions whenever >> > they happen (which also would help when accidentally redefining >> > something) >> >> Not sure what you mean by that. > > Let's assume we have two definitions for the same function: > > ;; File A (loaded first) > (defun foo () > ... > > ;; File B (loaded later) > (defun foo () ;; This is a redefinition: I'd like to get a warning. > ... > > Since redefining functions is the heart of interactive programming, > such a warning should be issued only while loading files. That way, > you could consider whether to rename the second function or to rewrite > it as an advice (as you suggested). > I think `defun' does not take no advice. > If such a goal can only be achieved by rewriting "defun" and checking > by means of "fboundp" whether the function has already been defined, > here is my (failed, as noted) attempt: > > (defmacro defun (name args &rest body) > `(progn > ;; `load-file-name' is not null only if we are loading a file. > (when (and load-file-name > ;; FAIL: I don't know how to quote the value of `name'. > (fboundp ,name)) (fboundp ',name)) Why not use `quote'. > (message "Warning: %s is being redefined in %s." > ;; FAIL: I don't know how to quote the value of `name'. > (symbol-name ,name) > load-file-name) > (defun ,name ,args Of course this leads to an endless recursive loop, expanding your macro again and again ... (funcall (symbol-function 'defun) 'foo nil) does not seem to work either, which would mean that you can't save `defun's definition. > > ,@body)))) > > Any suggestions? Thanks. -ap