From 90b28afdf178676159bf8386a358f14084408984 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Feb 2022 23:11:57 -0600
Subject: Coupla typos

---
 lisp/+org.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lisp/+org.el')

diff --git a/lisp/+org.el b/lisp/+org.el
index 6413a73..d5b5c10 100644
--- a/lisp/+org.el
+++ b/lisp/+org.el
@@ -363,7 +363,7 @@ the deletion might narrow the column."
 ;; `org-pretty-entities-include-sub-superscripts', which really does exactly
 ;; what I wanted.
 
-(defface +org-script-markers '((t :inherit shadow))
+(defface +org-script-markers '((t (:inherit shadow)))
   "Face to be used for sub/superscripts markers i.e., ^, _, {, }.")
 
 ;; Hiding the super and subscript markers is extremely annoying
@@ -403,7 +403,7 @@ the deletion might narrow the column."
                              ;; (nth (if table-p 2 0) org-script-display)
                              (nth 2 org-script-display)))
         (put-text-property (match-beginning 2) (match-end 2)
-                           'face 'vz/org-script-markers)
+                           'face '+org-script-markers)
         (when (and (eq (char-after (match-beginning 3)) ?{)
                    (eq (char-before (match-end 3)) ?}))
           (put-text-property (match-beginning 3) (1+ (match-beginning 3))
@@ -457,7 +457,8 @@ the deletion might narrow the column."
       ;; I really just want to open the list of URLs /most of the time/, I'm
       ;; fixing it like this instead.
       (unless (and (memq type types)
-                   (ignore-errors (org-open-at-point arg)))
+                   (ignore-errors (org-open-at-point arg)
+                                  t))
         (while (not
                 (progn
                   (org-back-to-heading)
-- 
cgit 1.4.1-21-gabe81