[elpa] externals/org-real 8550ace 004/160: Added alias "on" for "in"

[ELPA Syncer]

branch: externals/org-real
commit 8550acee7d12ad61924bfd9e8db7bd287dcc4e9a
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@gmail.com>

    Added alias "on" for "in"
---
 org-real.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/org-real.el b/org-real.el
index 13b08de..17fc2d2 100644
--- a/org-real.el
+++ b/org-real.el
@@ -32,7 +32,7 @@
             :type boolean)))
 
 (defvar org-real-prepositions
-  '("in" "behind" "in front of" "above" "below" "to the left of" "to the right 
of"))
+  '("in" "on" "behind" "in front of" "above" "below" "to the left of" "to the 
right of"))
 
 (defun org-real--create-box (containers &optional parent prev)
   (if (not parent)
@@ -45,7 +45,7 @@
       (when prev
         (oset box :rel (plist-get container :rel))
         (oset box :rel-box prev)
-        (cond ((string= rel "in")
+        (cond ((or (string= rel "in") (string= rel "on"))
                (oset box :x-order (oref prev :x-order))
                (oset box :y-order (oref prev :y-order))
                (oset box :behind (oref prev :behind)))
@@ -79,7 +79,7 @@
                (oset box :in-front (oref prev :in-front)))))
 
       (if (and prev (member (oref box :rel)
-                            '("in" "behind" "in front of")))
+                            '("in" "on" "behind" "in front of")))
           (progn
             (oset box :parent prev)
             (object-add-to-list prev :children box)