diff options
Diffstat (limited to 'lisp/org/org-entities.el')
| -rw-r--r-- | lisp/org/org-entities.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org/org-entities.el b/lisp/org/org-entities.el index 66837f3eb0b..a5c05eaa21b 100644 --- a/lisp/org/org-entities.el +++ b/lisp/org/org-entities.el @@ -543,11 +543,11 @@ This first checks the user list, then the built-in list." (dolist (e org-entities) (pcase e (`(,name ,latex ,mathp ,html ,ascii ,latin ,utf8) - (if (equal ascii "|") (setq ascii "\\vert")) - (if (equal latin "|") (setq latin "\\vert")) - (if (equal utf8 "|") (setq utf8 "\\vert")) - (if (equal ascii "=>") (setq ascii "= >")) - (if (equal latin "=>") (setq latin "= >")) + (when (equal ascii "|") (setq ascii "\\vert")) + (when (equal latin "|") (setq latin "\\vert")) + (when (equal utf8 "|") (setq utf8 "\\vert")) + (when (equal ascii "=>") (setq ascii "= >")) + (when (equal latin "=>") (setq latin "= >")) (insert "|" name "|" (format "=%s=" latex) "|" (format (if mathp "$%s$" "$\\mbox{%s}$") latex) |