aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/info.el
diff options
context:
space:
mode:
authorJuri Linkov2012-08-28 12:01:54 +0300
committerJuri Linkov2012-08-28 12:01:54 +0300
commitd44688e450495fd3b723c0f2cbdcd047c59e7384 (patch)
tree3d3f079fbce258393c4f90d68d63bced508b4c92 /lisp/info.el
parent66322887059e1f2711e07def5eff661281cee855 (diff)
downloademacs-d44688e450495fd3b723c0f2cbdcd047c59e7384.tar.gz
emacs-d44688e450495fd3b723c0f2cbdcd047c59e7384.zip
* lisp/info.el (Info-fontify-node): Hide empty lines at the end of the node.
Fixes: debbugs:12272
Diffstat (limited to 'lisp/info.el')
-rw-r--r--lisp/info.el6
1 files changed, 6 insertions, 0 deletions
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.")
4825 mouse-face highlight 4825 mouse-face highlight
4826 help-echo "mouse-2: go to this URL")))) 4826 help-echo "mouse-2: go to this URL"))))
4827 4827
4828 ;; Hide empty lines at the end of the node.
4829 (goto-char (point-max))
4830 (skip-chars-backward "\n")
4831 (when (< (1+ (point)) (point-max))
4832 (put-text-property (1+ (point)) (point-max) 'invisible t))
4833
4828 (set-buffer-modified-p nil)))) 4834 (set-buffer-modified-p nil))))
4829 4835
4830;;; Speedbar support: 4836;;; Speedbar support: