diff options
-rw-r--r-- | lisp/+org.el | 7 |
1 files changed, 4 insertions, 3 deletions
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." | |||
363 | ;; `org-pretty-entities-include-sub-superscripts', which really does exactly | 363 | ;; `org-pretty-entities-include-sub-superscripts', which really does exactly |
364 | ;; what I wanted. | 364 | ;; what I wanted. |
365 | 365 | ||
366 | (defface +org-script-markers '((t :inherit shadow)) | 366 | (defface +org-script-markers '((t (:inherit shadow))) |
367 | "Face to be used for sub/superscripts markers i.e., ^, _, {, }.") | 367 | "Face to be used for sub/superscripts markers i.e., ^, _, {, }.") |
368 | 368 | ||
369 | ;; Hiding the super and subscript markers is extremely annoying | 369 | ;; Hiding the super and subscript markers is extremely annoying |
@@ -403,7 +403,7 @@ the deletion might narrow the column." | |||
403 | ;; (nth (if table-p 2 0) org-script-display) | 403 | ;; (nth (if table-p 2 0) org-script-display) |
404 | (nth 2 org-script-display))) | 404 | (nth 2 org-script-display))) |
405 | (put-text-property (match-beginning 2) (match-end 2) | 405 | (put-text-property (match-beginning 2) (match-end 2) |
406 | 'face 'vz/org-script-markers) | 406 | 'face '+org-script-markers) |
407 | (when (and (eq (char-after (match-beginning 3)) ?{) | 407 | (when (and (eq (char-after (match-beginning 3)) ?{) |
408 | (eq (char-before (match-end 3)) ?})) | 408 | (eq (char-before (match-end 3)) ?})) |
409 | (put-text-property (match-beginning 3) (1+ (match-beginning 3)) | 409 | (put-text-property (match-beginning 3) (1+ (match-beginning 3)) |
@@ -457,7 +457,8 @@ the deletion might narrow the column." | |||
457 | ;; I really just want to open the list of URLs /most of the time/, I'm | 457 | ;; I really just want to open the list of URLs /most of the time/, I'm |
458 | ;; fixing it like this instead. | 458 | ;; fixing it like this instead. |
459 | (unless (and (memq type types) | 459 | (unless (and (memq type types) |
460 | (ignore-errors (org-open-at-point arg))) | 460 | (ignore-errors (org-open-at-point arg) |
461 | t)) | ||
461 | (while (not | 462 | (while (not |
462 | (progn | 463 | (progn |
463 | (org-back-to-heading) | 464 | (org-back-to-heading) |