Re: [O] [patch] fix 22.x compatibility test issue

[Eric Schulte]

I've applied this same change.  Thanks -- Eric

Martyn Jago <address@hidden> 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 <address@hidden>
> 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/