diff options
| author | John Wiegley | 2016-03-03 23:53:27 -0800 |
|---|---|---|
| committer | John Wiegley | 2016-03-03 23:53:27 -0800 |
| commit | de3fa655de8a1f9a1e23ed67ec70700ab8f5a591 (patch) | |
| tree | c72faea21b08f038064aa6ac642083d40d1d862a /lisp/net | |
| parent | eab3f9e76b8188b5f99139b220a272fe3f2debaf (diff) | |
| parent | cb1e3da12eb1fcacbf9933ca49a85b6f4116878c (diff) | |
| download | emacs-de3fa655de8a1f9a1e23ed67ec70700ab8f5a591.tar.gz emacs-de3fa655de8a1f9a1e23ed67ec70700ab8f5a591.zip | |
Merge from origin/emacs-25
cb1e3da Also allow setting the paragraph direction to nil
bbe8a89 Made the new OS X visible bell more visible.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/eww.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index d37b1b3261b..34cb02c24ac 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -618,13 +618,19 @@ Currently this means either text/html or application/xhtml+xml." | |||
| 618 | (view-buffer buf))) | 618 | (view-buffer buf))) |
| 619 | 619 | ||
| 620 | (defun eww-toggle-paragraph-direction () | 620 | (defun eww-toggle-paragraph-direction () |
| 621 | "Toggle the paragraphs direction between left-to-right and right-to-left." | 621 | "Cycle the paragraph direction between left-to-right, right-to-left and auto." |
| 622 | (interactive) | 622 | (interactive) |
| 623 | (setq bidi-paragraph-direction | 623 | (setq bidi-paragraph-direction |
| 624 | (if (eq bidi-paragraph-direction 'left-to-right) | 624 | (cond ((eq bidi-paragraph-direction 'left-to-right) |
| 625 | 'right-to-left | 625 | nil) |
| 626 | 'left-to-right)) | 626 | ((eq bidi-paragraph-direction 'right-to-left) |
| 627 | (message "The paragraph direction is now %s" bidi-paragraph-direction)) | 627 | 'left-to-right) |
| 628 | (t | ||
| 629 | 'right-to-left))) | ||
| 630 | (message "The paragraph direction is now %s" | ||
| 631 | (if (null bidi-paragraph-direction) | ||
| 632 | "automatic" | ||
| 633 | bidi-paragraph-direction))) | ||
| 628 | 634 | ||
| 629 | (defun eww-readable () | 635 | (defun eww-readable () |
| 630 | "View the main \"readable\" parts of the current web page. | 636 | "View the main \"readable\" parts of the current web page. |