From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Emacs 22 support Date: Thu, 3 Jun 2010 10:32:22 +0200 Message-ID: <2D080812-ECAE-404D-A832-94F6770E8386@gmail.com> References: <87mxvem905.fsf@gollum.intra.norang.ca> <1275479264-19089-1-git-send-email-bernt@norang.ca> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=51453 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OK5qm-0006iK-3M for emacs-orgmode@gnu.org; Thu, 03 Jun 2010 04:32:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OK5qk-0006V0-QV for emacs-orgmode@gnu.org; Thu, 03 Jun 2010 04:32:28 -0400 Received: from mail-wy0-f169.google.com ([74.125.82.169]:40275) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OK5qk-0006Ul-Ij for emacs-orgmode@gnu.org; Thu, 03 Jun 2010 04:32:26 -0400 Received: by wyb39 with SMTP id 39so3695647wyb.0 for ; Thu, 03 Jun 2010 01:32:25 -0700 (PDT) In-Reply-To: <1275479264-19089-1-git-send-email-bernt@norang.ca> 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: Bernt Hansen Cc: emacs-orgmode@gnu.org Hi Bernt, can you pease rewrite the patch one more time, using the new org- string-match-p function? Thanks. - Carsten On Jun 2, 2010, at 1:47 PM, Bernt Hansen wrote: > * contrib/lisp/org-special-blocks.el (org-special-blocks-make- > special-cookies): > Emacs 22 doesn't have string-match-p > --- > Updated patch available at git://git.norang.ca/org-mode.git emacs22 > > contrib/lisp/org-special-blocks.el | 3 ++- > 1 files changed, 2 insertions(+), 1 deletions(-) > > diff --git a/contrib/lisp/org-special-blocks.el b/contrib/lisp/org- > special-blocks.el > index af50b30..a381920 100644 > --- a/contrib/lisp/org-special-blocks.el > +++ b/contrib/lisp/org-special-blocks.el > @@ -51,7 +51,8 @@ seen. This is run after a few special cases are > taken care of." > (when (or htmlp latexp) > (goto-char (point-min)) > (while (re-search-forward "^#\\+\\(begin\\|end\\)_\\(.*\\)$" nil > t) > - (unless (string-match-p org-special-blocks-ignore-regexp > (match-string 2)) > + (unless (save-match-data > + (string-match org-special-blocks-ignore-regexp (match-string 2))) > (replace-match > (if (equal (downcase (match-string 1)) "begin") > (concat "ORG-" (match-string 2) "-START") > -- > 1.7.1.240.g225c > > > _______________________________________________ > 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 - Carsten