From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: [Accepted] org-compat: defalias string-match-p rather than defun Date: Thu, 4 Nov 2010 12:31:36 +0100 (CET) Message-ID: <20101104113136.A3492845BF3@u016822.science.uva.nl> References: <1288340911-6825-1-git-send-email-julien@danjou.info> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=59123 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PDy2f-000584-3V for emacs-orgmode@gnu.org; Thu, 04 Nov 2010 07:31:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PDy2d-00057E-97 for emacs-orgmode@gnu.org; Thu, 04 Nov 2010 07:31:40 -0400 Received: from u016822.science.uva.nl ([146.50.39.34]:57200) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PDy2d-00056w-2I for emacs-orgmode@gnu.org; Thu, 04 Nov 2010 07:31:39 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Patch 350 (http://patchwork.newartisans.com/patch/350/) is now "Accepted". Maintainer comment: I added looking-at-p This relates to the following submission: http://mid.gmane.org/%3C1288340911-6825-1-git-send-email-julien%40danjou.info%3E Here is the original message containing the patch: > Content-Type: text/plain; charset="utf-8" > MIME-Version: 1.0 > Content-Transfer-Encoding: 7bit > Subject: [Orgmode] org-compat: defalias string-match-p rather than defun > Date: Fri, 29 Oct 2010 13:28:31 -0000 > From: Julien Danjou > X-Patchwork-Id: 350 > Message-Id: <1288340911-6825-1-git-send-email-julien@danjou.info> > To: emacs-orgmode@gnu.org > Cc: Julien Danjou > > Signed-off-by: Julien Danjou > > --- > lisp/org-compat.el | 8 ++++---- > 1 files changed, 4 insertions(+), 4 deletions(-) > > diff --git a/lisp/org-compat.el b/lisp/org-compat.el > index d55a83e..47a6599 100644 > --- a/lisp/org-compat.el > +++ b/lisp/org-compat.el > @@ -372,11 +372,11 @@ TIME defaults to the current time." > (time-to-seconds (or time (current-time))) > (float-time time))) > > -(defun org-string-match-p (&rest args) > - (if (fboundp 'string-match-p) > - (apply 'string-match-p args) > +(if (fboundp 'string-match-p) > + (defalias 'org-string-match-p 'string-match-p) > + (defun org-string-match-p (regexp string &optional start) > (save-match-data > - (apply 'string-match args)))) > + (funcall 'string-match regexp string start)))) > > (defun org-looking-at-p (&rest args) > (if (fboundp 'looking-at-p) >