[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c5a81fd: Make eww rendering default to `window-widt
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master c5a81fd: Make eww rendering default to `window-width' again |
Date: |
Mon, 29 Dec 2014 12:48:51 +0000 |
branch: master
commit c5a81fdb6fc2422807674c2d7b27f8333a3b9e12
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make eww rendering default to `window-width' again
* lisp/gnus/mm-decode.el (mm-shr): Bind `shr-width' to `fill-column'
so that lines don't get overlong when responding.
* lisp/net/eww.el (eww-mode): Truncate overlong lines for prettier
display when resizing.
* lisp/net/shr.el (shr-width): Default to using the window width when
rendering.
---
lisp/ChangeLog | 8 ++++++++
lisp/gnus/ChangeLog | 5 +++++
lisp/gnus/mm-decode.el | 1 +
lisp/net/eww.el | 1 +
lisp/net/shr.el | 3 ++-
5 files changed, 17 insertions(+), 1 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d2aa9b..82608b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2014-12-29 Lars Ingebrigtsen <address@hidden>
+
+ * net/eww.el (eww-mode): Truncate overlong lines for prettier
+ display when resizing.
+
+ * net/shr.el (shr-width): Default to using the window width when
+ rendering.
+
2014-12-29 Dmitry Gutov <address@hidden>
Unbreak jumping to an alias's definition.
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6f0ea0f..0007b15 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-29 Lars Ingebrigtsen <address@hidden>
+
+ * mm-decode.el (mm-shr): Bind `shr-width' to `fill-column' so that
+ lines don't get overlong when responding.
+
2014-12-18 Paul Eggert <address@hidden>
* registry.el (registry-db): Set default slot later.
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index f5b4d7c..3913ecc 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1814,6 +1814,7 @@ If RECURSIVE, search recursively."
;; Require since we bind its variables.
(require 'shr)
(let ((article-buffer (current-buffer))
+ (shr-width fill-column)
(shr-content-function (lambda (id)
(let ((handle (mm-get-content-id id)))
(when handle
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 9d787d3..b43dba5 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -705,6 +705,7 @@ the like."
(setq-local tool-bar-map eww-tool-bar-map))
;; desktop support
(setq-local desktop-save-buffer 'eww-desktop-misc-data)
+ (setq truncate-lines t)
(buffer-disable-undo)
(setq buffer-read-only t))
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 26bb292..6553fd3 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -78,11 +78,12 @@ If nil, don't draw horizontal table lines."
:group 'shr
:type 'character)
-(defcustom shr-width fill-column
+(defcustom shr-width nil
"Frame width to use for rendering.
May either be an integer specifying a fixed width in characters,
or nil, meaning that the full width of the window should be
used."
+ :version "25.1"
:type '(choice (integer :tag "Fixed width in characters")
(const :tag "Use the width of the window" nil))
:group 'shr)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c5a81fd: Make eww rendering default to `window-width' again,
Lars Ingebrigtsen <=