[nongnu] elpa/org-present 1af324f54f 13/47: hide emphasis markers when presenting

[ELPA Syncer]

branch: elpa/org-present
commit 1af324f54f8b0ede9f060069111c7c0e7487dc5e
Author: Fredrik Appelberg <fredrik.appelberg@gmail.com>
Commit: Fredrik Appelberg <fredrik.appelberg@gmail.com>

    hide emphasis markers when presenting
---
 org-present.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/org-present.el b/org-present.el
index 0afd3e66f5..ae462cdc07 100644
--- a/org-present.el
+++ b/org-present.el
@@ -153,7 +153,12 @@
     ;; hide stars in headings
     (goto-char (point-min))
     (while (re-search-forward "^\\(*+\\)" nil t)
-      (org-present-add-overlay (match-beginning 1) (match-end 1)))))
+      (org-present-add-overlay (match-beginning 1) (match-end 1)))
+    ;; hide emphasis markers
+    (goto-char (point-min))
+    (while (re-search-forward org-emph-re nil t)
+      (org-present-add-overlay (match-beginning 2) (1+ (match-beginning 2)))
+      (org-present-add-overlay (1- (match-end 2)) (match-end 2)))))
 
 (defun org-present-rm-overlays ()
   "Remove overlays for this mode."