emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Martyn Jago
Subject: [O] [patch] fix 22.x compatibility test issue
Date: Sun, 11 Sep 2011 21:25:15 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (darwin)

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))
-- 
1.7.3.4

Best, Martyn

reply via email to

[Prev in Thread] Current Thread [Next in Thread]