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 <jul...@danjou.info> > X-Patchwork-Id: 350 > Message-Id: <1288340911-6825-1-git-send-email-jul...@danjou.info> > To: emacs-orgmode@gnu.org > Cc: Julien Danjou <jul...@danjou.info> > > Signed-off-by: Julien Danjou <jul...@danjou.info> > > --- > 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) > _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
