From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Schulte Subject: Re: [patch] fix 22.x compatibility test issue Date: Sun, 11 Sep 2011 14:45:55 -0600 Message-ID: <87lituokqs.fsf@gmail.com> References: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:33699) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R2rB6-0004FS-4i for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 17:03:01 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R2rB4-0004i0-Ms for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 17:03:00 -0400 Received: from mail-pz0-f44.google.com ([209.85.210.44]:50336) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R2rB4-0004hq-HI for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 17:02:58 -0400 Received: by pzk36 with SMTP id 36so6495347pzk.17 for ; Sun, 11 Sep 2011 14:02:57 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Martyn Jago Cc: emacs-orgmode@gnu.org I've applied this same change. Thanks -- Eric Martyn Jago writes: > Replace left-char with backward-char for backward compatibility in > =test-org-babel/org-babel-get-inline-src-block-matches= > > From 08bfac66d69ed6ce739d58710f06444b6f43fb94 Mon Sep 17 00:00:00 2001 > From: Martyn Jago > Date: Sun, 11 Sep 2011 21:17:40 +0100 > Subject: [PATCH] Replace left-char with backward-char for backward compatibility > * testing/lisp/test-ob.el (test-org-babel/org-babel-get-inline-src-block-matches): > > --- > testing/lisp/test-ob.el | 4 ++-- > 1 files changed, 2 insertions(+), 2 deletions(-) > > diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el > index a78bf1e..3a68328 100644 > --- a/testing/lisp/test-ob.el > +++ b/testing/lisp/test-ob.el > @@ -226,9 +226,9 @@ > (should (re-search-forward "echo" nil t)) ;; 2 > (should (org-babel-get-inline-src-block-matches)) > (should (re-search-forward "blocks" nil t)) ;; 3 > - (left-char 8) ;; 3 > + (backward-char 8) ;; 3 > (should (org-babel-get-inline-src-block-matches)) > - (right-char 1) ;;3 > + (forward-char 1) ;;3 > (should-not (org-babel-get-inline-src-block-matches)) > (should (re-search-forward ":results" nil t)) ;; 4 > (should (org-babel-get-inline-src-block-matches)) -- Eric Schulte http://cs.unm.edu/~eschulte/