Mercurial > emacs
changeset 51610:08d1ae28e568
(Info-fontify-node): Give only the last whitespace character after the
node name the display property. Give all other such whitespace the
invisibility property.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 18 Jun 2003 03:03:23 +0000 |
| parents | ff5ee3a81a6e |
| children | d201fdadadce |
| files | lisp/info.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Wed Jun 18 02:58:36 2003 +0000 +++ b/lisp/info.el Wed Jun 18 03:03:23 2003 +0000 @@ -2946,11 +2946,11 @@ '(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 @@ (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)))