[gnus git] branch master updated: m0-7-127-g9aab394 =1= Allow not inserting horizontal space into a table

       via  9aab394efb7f206efb86bf485dd099db6e7fa35e (commit)
      from  567be3599871e5760a21e6f30f4e21f03692104d (commit)


- Log -----------------------------------------------------------------
commit 9aab394efb7f206efb86bf485dd099db6e7fa35e
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue Jun 18 18:17:57 2013 +0200

    Allow not inserting horizontal space into a table
    
    (shr-insert-table-ruler): Respect the nil value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01448df..ea5e3a7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,9 @@
 2013-06-18  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* shr.el (shr-make-table-1): Implement <td rowspan>.
+	(shr-table-horizontal-line): Allow nil as a value, and change the
+	default.
+	(shr-insert-table-ruler): Respect the nil value.
 
 2013-06-18  Tom Tromey  <tromey@barimba>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 060f3f5..49fe9c9 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -55,8 +55,9 @@ fit these criteria."
   :group 'shr
   :type '(choice (const nil) regexp))
 
-(defcustom shr-table-horizontal-line ?\s
-  "Character used to draw horizontal table lines."
+(defcustom shr-table-horizontal-line nil
+  "Character used to draw horizontal table lines.
+If nil, don't draw horizontal table lines."
   :group 'shr
   :type 'character)
 
@@ -1383,6 +1384,7 @@ ones, in case fg and bg are nil."
 	(shr-insert-table-ruler widths)))))
 
 (defun shr-insert-table-ruler (widths)
+  (when shr-table-horizontal-line
   (when (and (bolp)
 	     (> shr-indentation 0))
     (shr-indent))
@@ -1390,7 +1392,7 @@ ones, in case fg and bg are nil."
   (dotimes (i (length widths))
     (insert (make-string (aref widths i) shr-table-horizontal-line)
 	    shr-table-corner))
-  (insert "\n"))
+    (insert "\n")))
 
 (defun shr-table-widths (table natural-table suggested-widths)
   (let* ((length (length suggested-widths))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    3 +++
 lisp/shr.el    |   22 ++++++++++++----------
 2 files changed, 15 insertions(+), 10 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project