summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+org.el7
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)