[Emacs-diffs] /srv/bzr/emacs/trunk r109799: * lisp/info.el (Info-fontify-node): Hide empty lines at the end of the node.

[Juri Linkov]

------------------------------------------------------------
revno: 109799
fixes bug: http://debbugs.gnu.org/12272
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-28 12:01:54 +0300
message:
  * lisp/info.el (Info-fontify-node): Hide empty lines at the end of the node.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-27 09:05:55 +0000
+++ b/lisp/ChangeLog    2012-08-28 09:01:54 +0000
@@ -1,3 +1,8 @@
+2012-08-28  Juri Linkov  <address@hidden>
+
+       * info.el (Info-fontify-node): Hide empty lines at the end of
+       the node.  (Bug#12272)
+
 2012-08-27  Drew Adams  <address@hidden>
 
        * dired.el (dired-pop-to-buffer): Make window start at beginning

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-08-22 23:30:47 +0000
+++ b/lisp/info.el      2012-08-28 09:01:54 +0000
@@ -4825,6 +4825,12 @@
                                  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: