From bbe8a899ac91f93bcdb14fec8c200cd3f2256987 Mon Sep 17 00:00:00 2001 From: Anders Lindgren Date: Mon, 29 Feb 2016 21:54:15 +0100 Subject: [PATCH 1/2] Made the new OS X visible bell more visible. * src/nsterm.m: (EmacsBell:init:) Scaled up the visible bell "caution" image five times, as the image in its original size was hard to see. --- src/nsterm.m | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/nsterm.m b/src/nsterm.m index 43d1377f8a7..185753d8f2b 100644 --- a/src/nsterm.m +++ b/src/nsterm.m @@ -1197,13 +1197,16 @@ ns_clip_to_row (struct window *w, struct glyph_row *row, // 2011, see https://savannah.gnu.org/bugs/?33396 // // As a drop in replacement, a semitransparent gray square is used. - self.image = [[NSImage alloc] initWithSize:NSMakeSize(32, 32)]; + self.image = [[NSImage alloc] initWithSize:NSMakeSize(32 * 5, 32 * 5)]; [self.image lockFocus]; [[NSColor colorForEmacsRed:0.5 green:0.5 blue:0.5 alpha:0.5] set]; NSRectFill(NSMakeRect(0, 0, 32, 32)); [self.image unlockFocus]; #else self.image = [NSImage imageNamed:NSImageNameCaution]; + [self.image setScalesWhenResized:YES]; + [self.image setSize:NSMakeSize(self.image.size.width * 5, + self.image.size.height * 5)]; #endif } return self; From cb1e3da12eb1fcacbf9933ca49a85b6f4116878c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 1 Mar 2016 11:31:37 +1100 Subject: [PATCH 2/2] 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.