* lisp/info.el (Info-fontify-node): Hide empty lines at the end of the node.

Fixes: debbugs:12272

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25d0716ee5b16e981bf6ada5ace77d31b7014a85..3dd2b7b12720a704e0a6d3855706cd19b5a0a688 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-28  Juri Linkov  <juri@jurta.org>
+
+       * info.el (Info-fontify-node): Hide empty lines at the end of
+       the node.  (Bug#12272)
+
 2012-08-27  Drew Adams  <drew.adams@oracle.com>
 
        * dired.el (dired-pop-to-buffer): Make window start at beginning

diff --git a/lisp/info.el b/lisp/info.el
index 7365b0efcfde079492c47cc9e1c3e2cf0c60335f..fe4afd7216321db226012007511665be7b7cf960 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4825,6 +4825,12 @@ first line or header line, and for breadcrumb links.")
                                  mouse-face highlight
                                  help-echo "mouse-2: go to this URL"))))
 
+      ;; Hide empty lines at the end of the node.
+      (goto-char (point-max))
+      (skip-chars-backward "\n")
+      (when (< (1+ (point)) (point-max))
+       (put-text-property (1+ (point)) (point-max) 'invisible t))
+
       (set-buffer-modified-p nil))))
 \f
 ;;; Speedbar support: