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

Fixes: debbugs:12272
This commit is contained in:
Juri Linkov 2012-08-28 12:01:54 +03:00
parent 6632288705
commit d44688e450
2 changed files with 11 additions and 0 deletions

View file

@ -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

View file

@ -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: