diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index c28e0b8..47f7f9c 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1103,12 +1103,9 @@ shr-previous-newline-padding-width
 ;;; Tag-specific rendering rules.
 
 (defun shr-tag-html (dom)
-  (let ((dir (dom-attr dom 'dir)))
-    (cond
-     ((equal dir "ltr")
-      (setq bidi-paragraph-direction 'left-to-right))
-     ((equal dir "rtl")
-      (setq bidi-paragraph-direction 'right-to-left))))
+  (if (equal dir(dom-attr dom 'dir) "rtl")
+      (setq bidi-paragraph-direction 'right-to-left)
+    (setq bidi-paragraph-direction 'left-to-right))
   (shr-generic dom))
 
 (defun shr-tag-body (dom)