mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 02:50:26 -08:00
Code Issues Projects Releases Wiki Activity

Also allow setting the paragraph direction to nil

Browse source 
* lisp/net/eww.el (eww-toggle-paragraph-direction): Also allow
setting the paragraph direction to nil ("auto").
This commit is contained in:
Lars Ingebrigtsen 2016-03-01 11:31:37 +11:00
parent bbe8a899ac
commit cb1e3da12e
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/net/eww.el
View file

@ -608,13 +608,19 @@ Currently this means either text/html or application/xhtml+xml."
(view-buffer buf))) (view-buffer buf)))
(defun eww-toggle-paragraph-direction () (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) (interactive)
(setq bidi-paragraph-direction (setq bidi-paragraph-direction
(if (eq bidi-paragraph-direction 'left-to-right) (cond ((eq bidi-paragraph-direction 'left-to-right)
'right-to-left nil)
'left-to-right)) ((eq bidi-paragraph-direction 'right-to-left)
(message "The paragraph direction is now %s" bidi-paragraph-direction)) '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 () (defun eww-readable ()
"View the main \"readable\" parts of the current web page. "View the main \"readable\" parts of the current web page.