From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 18 Jun 2003 03:03:23 +0000 (+0000)
Subject: (Info-fontify-node): Give only the last whitespace character after the
X-Git-Tag: ttn-vms-21-2-B4~9613
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e49e8e8503f70b1a511245a295f3a0bce1f25bc;p=emacs.git

(Info-fontify-node): Give only the last whitespace character after the
node name the display property.  Give all other such whitespace the
invisibility property.
---

diff --git a/lisp/info.el b/lisp/info.el
index 919a548c552..54e6f6d1f02 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2946,11 +2946,11 @@ the variable `Info-file-list-for-emacs'."
 		      '(font-lock-face info-xref
 			mouse-face highlight))))
 	      (when (eq Info-hide-note-references t)
-		(put-text-property (match-beginning 2) (match-beginning 4)
+		(put-text-property (match-beginning 2) (1- (match-end 4))
 				   'invisible t)
 		;; We need a stretchable space like :align-to but with
 		;; a minimum value.
-		(put-text-property (match-beginning 4) (match-end 4) 'display
+		(put-text-property (1- (match-end 4)) (match-end 4) 'display
 				   (if (>= 22 (- (match-end 1)
 						 (match-beginning 0)))
 				       '(space :align-to 24)
@@ -2958,7 +2958,10 @@ the variable `Info-file-list-for-emacs'."
 		(setq cont (looking-at "."))
 		(while (and (= (forward-line 1) 0)
 			    (looking-at "\\([ \t]+\\)[^*\n]"))
-		  (put-text-property (match-beginning 1) (match-end 1) 'display
+		  (put-text-property (match-beginning 1) (1- (match-end 1))
+				     'invisible t)
+		  (put-text-property (1- (match-end 1)) (match-end 1)
+				     'display
 				     (if cont
 					 '(space :align-to 26)
 				       '(space :align-to 24)))