# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1055196034 0
# Node ID 4e4427be69f925b3cd7be8dc281fa5ffb66c3a6e
# Parent  e9384e0534372696f7fb13914ac1bb841480b32c
(Info-fontify-node): Make `invisible' property
non-sticky so that whitespace added by filling stays visible.
Make refilling less agressive by starting at beginning of current
line rather than beginning of current paragraph.

diff -r e9384e053437 -r 4e4427be69f9 lisp/info.el
--- a/lisp/info.el	Mon Jun 09 21:59:54 2003 +0000
+++ b/lisp/info.el	Mon Jun 09 22:00:34 2003 +0000
@@ -2859,7 +2859,7 @@
 	  ;; on frames that can display the font above.
 	  (when (memq (framep (selected-frame)) '(x pc w32 mac))
 	    (add-text-properties (1- (match-beginning 2)) (match-end 2)
-				 '(invisible t))))
+				 '(invisible t front-sticky nil rear-nonsticky t))))
 	(goto-char (point-min))
 	(while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)
 	  (unless (= (char-after (1- (match-beginning 0))) ?\") ; hack
@@ -2882,7 +2882,7 @@
 		(goto-char next))
 	      (if hide-tag
 		  (add-text-properties (match-beginning 1) (match-end 1)
-				       '(invisible t)))
+				       '(invisible t front-sticky nil rear-nonsticky t)))
 	      (add-text-properties
 	       (match-beginning 2) (match-end 2)
 	       (cons 'help-echo
@@ -2893,7 +2893,7 @@
 			     mouse-face highlight))))
 	      (when (eq Info-hide-note-references t)
 		(add-text-properties (match-beginning 3) (match-end 3)
-				     '(invisible t)))
+				     '(invisible t front-sticky nil rear-nonsticky t)))
 	      (when other-tag
 		(save-excursion
 		  (goto-char (match-beginning 1))
@@ -2913,11 +2913,10 @@
 	      (setq paragraph-markers (cdr paragraph-markers))
 	      (when (< m (point))
 		(goto-char m)
-		(move-to-left-margin)
-		(when (zerop (forward-paragraph))
-		  (let ((end (point))
-			(beg (progn (backward-paragraph) (point))))
-		    (fill-individual-paragraphs beg end nil nil)
+		(beginning-of-line)
+		(let ((beg (point)))
+		  (when (zerop (forward-paragraph))
+		    (fill-individual-paragraphs beg (point) nil nil)
 		    (goto-char beg))))
 	      (set-marker m nil))))