[Emacs-diffs] master c5a81fd: Make eww rendering default to `window-width' again

[Lars Ingebrigtsen]

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)