From cb1e3da12eb1fcacbf9933ca49a85b6f4116878c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 1 Mar 2016 11:31:37 +1100 Subject: [PATCH] Also allow setting the paragraph direction to nil * lisp/net/eww.el (eww-toggle-paragraph-direction): Also allow setting the paragraph direction to nil ("auto"). --- lisp/net/eww.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 886b4b9a503..620a8a5f9ac 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -608,13 +608,19 @@ Currently this means either text/html or application/xhtml+xml." (view-buffer buf))) (defun eww-toggle-paragraph-direction () - "Toggle the paragraphs direction between left-to-right and right-to-left." + "Cycle the paragraph direction between left-to-right, right-to-left and auto." (interactive) (setq bidi-paragraph-direction - (if (eq bidi-paragraph-direction 'left-to-right) - 'right-to-left - 'left-to-right)) - (message "The paragraph direction is now %s" bidi-paragraph-direction)) + (cond ((eq bidi-paragraph-direction 'left-to-right) + nil) + ((eq bidi-paragraph-direction 'right-to-left) + 'left-to-right) + (t + 'right-to-left))) + (message "The paragraph direction is now %s" + (if (null bidi-paragraph-direction) + "automatic" + bidi-paragraph-direction))) (defun eww-readable () "View the main \"readable\" parts of the current web page. -- 2.39.2