bug#19587: shr: produces an extra newline before a block element in <li />

[Ivan Shmakov]

Package:  emacs
Severity: minor

        As of ec7605b4b137 (2015-01-10 16:54:24 +0000), shr produces an
        extra newline before a “block” element which is the first child
        to a <li /> element.  Consider, e. g.:

(with-temp-buffer
  (let ((r
         (shr-tag-ul
          '(ul nil
               (li nil (div nil "One item."))
               (li nil (div nil "Another item."))))))
    (cons r (buffer-string))))
(nil . "\
• 
  One item.
• 
  Another item.\n\n")

        There, I’d rather expect no newline between the bullet and the
        div elements’ contents, like:

(nil . "\
• One item.
• Another item.\n\n")

        Somewhat surprisingly, this produces a still less consistent
        result when the p elements are used:

(with-temp-buffer
  (let ((r
         (shr-tag-ul
          '(ul nil
               (li nil (p nil "One item."))
               (li nil (p nil "Another item."))
               (li nil
                   (p nil "One more item.")
                   (p nil "And one more paragraph to the same item."))))))
    (cons r (buffer-string))))
(nil . "\
* 
  One item.

*   Another item.

*   One more item.

  And one more paragraph to the same item.\n\n")

        I’d rather expect it to be formatted as follows:

(nil . "\
* One item.

* Another item.

* One more item.

  And one more paragraph to the same item.\n\n")

-- 
FSF associate member #7257  http://boycottsystemd.org/  … 3013 B6A0 230E 334A