From mboxrd@z Thu Jan 1 00:00:00 1970 From: Julien Danjou Subject: [PATCH] org-compat: defalias string-match-p rather than defun Date: Fri, 29 Oct 2010 10:28:31 +0200 Message-ID: <1288340911-6825-1-git-send-email-julien@danjou.info> Return-path: Received: from [140.186.70.92] (port=39488 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PBkKF-0006og-Td for emacs-orgmode@gnu.org; Fri, 29 Oct 2010 04:28:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PBkKE-0006IY-7N for emacs-orgmode@gnu.org; Fri, 29 Oct 2010 04:28:39 -0400 Received: from coquelicot-s.easter-eggs.com ([213.215.37.94]:40852) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PBkKE-0006HD-1W for emacs-orgmode@gnu.org; Fri, 29 Oct 2010 04:28:38 -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 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) -- 1.7.2.3