From mboxrd@z Thu Jan 1 00:00:00 1970 From: Martyn Jago Subject: [patch] fix 22.x compatibility test issue Date: Sun, 11 Sep 2011 21:25:15 +0100 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([140.186.70.92]:44476) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R2qan-0003UU-Qt for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 16:25:31 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R2qam-0005VA-NE for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 16:25:29 -0400 Received: from lo.gmane.org ([80.91.229.12]:48148) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R2qam-0005V4-I1 for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 16:25:28 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1R2qal-0000ll-OT for emacs-orgmode@gnu.org; Sun, 11 Sep 2011 22:25:27 +0200 Received: from 88-96-171-142.dsl.zen.co.uk ([88.96.171.142]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 11 Sep 2011 22:25:27 +0200 Received: from martyn.jago by 88-96-171-142.dsl.zen.co.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 11 Sep 2011 22:25:27 +0200 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: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Replace left-char with backward-char for backward compatibility in =test-org-babel/org-babel-get-inline-src-block-matches= --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-Replace-left-char-with-backward-char-for-backward-co.patch Content-Description: Replace left-char with backward-char for backward compatibility >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)) -- 1.7.3.4 --=-=-= Content-Type: text/plain Best, Martyn --=-=-=--