From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Marcin Borkowski Newsgroups: gmane.emacs.help Subject: Re: hijack C function, use it transparently with in-between layer Date: Mon, 06 Jun 2016 05:46:37 +0200 Message-ID: <87vb1ngesi.fsf@mbork.pl> References: <868tyjnghn.fsf@student.uu.se> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1465184863 11983 80.91.229.3 (6 Jun 2016 03:47:43 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 6 Jun 2016 03:47:43 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: Emanuel Berg Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Jun 06 05:47:33 2016 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1b9lVk-00068R-Mg for geh-help-gnu-emacs@m.gmane.org; Mon, 06 Jun 2016 05:47:32 +0200 Original-Received: from localhost ([::1]:39591 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b9lVj-0000BE-Oi for geh-help-gnu-emacs@m.gmane.org; Sun, 05 Jun 2016 23:47:31 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48528) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b9lVL-0000B2-NG for help-gnu-emacs@gnu.org; Sun, 05 Jun 2016 23:47:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1b9lVG-000869-QA for help-gnu-emacs@gnu.org; Sun, 05 Jun 2016 23:47:07 -0400 Original-Received: from mail.mojserwer.eu ([195.110.48.8]:38782) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b9lVG-000864-JF for help-gnu-emacs@gnu.org; Sun, 05 Jun 2016 23:47:02 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by mail.mojserwer.eu (Postfix) with ESMTP id A6DF7BE27DD; Mon, 6 Jun 2016 05:46:40 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at mail.mojserwer.eu Original-Received: from mail.mojserwer.eu ([127.0.0.1]) by localhost (mail.mojserwer.eu [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id pcRjWICUMpPC; Mon, 6 Jun 2016 05:46:34 +0200 (CEST) Original-Received: from localhost (98-171.echostar.pl [213.156.98.171]) by mail.mojserwer.eu (Postfix) with ESMTPSA id A1F74BE27DB; Mon, 6 Jun 2016 05:46:34 +0200 (CEST) User-agent: mu4e 0.9.16; emacs 25.1.50.3 In-reply-to: <868tyjnghn.fsf@student.uu.se> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 195.110.48.8 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:110325 Archived-At: On 2016-06-06, at 05:28, Emanuel Berg wrote: > The truth is down there! > > (defvar old-message) > (fset 'old-message (symbol-function #'message)) > > (defun message (format-string &rest args) > (unless (member format-string > '( > "It was just another system of control." > "Mark set" > )) > (apply `(old-message ,format-string ,@args) ))) Smart! Tho not what I'd call "good style". ;-) Best, -- Marcin Borkowski http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski Faculty of Mathematics and Computer Science Adam Mickiewicz University