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

Fixes: debbugs:12272

2 files changed, 11 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25d0716ee5b..3dd2b7b1272 100644
--- 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 7365b0efcfd..fe4afd72163 100644
--- 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))))
 
 ;;; Speedbar support: