[Emacs-diffs] Changes to emacs/lisp/info.el

[Luc Teirlinck]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.356 emacs/lisp/info.el:1.357
*** emacs/lisp/info.el:1.356    Mon Jun  9 18:00:34 2003
--- emacs/lisp/info.el  Tue Jun 17 23:03:23 2003
***************
*** 2946,2956 ****
                      '(font-lock-face info-xref
                        mouse-face highlight))))
              (when (eq Info-hide-note-references t)
!               (put-text-property (match-beginning 2) (match-beginning 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
                                   (if (>= 22 (- (match-end 1)
                                                 (match-beginning 0)))
                                       '(space :align-to 24)
--- 2946,2956 ----
                      '(font-lock-face info-xref
                        mouse-face highlight))))
              (when (eq Info-hide-note-references t)
!               (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 (1- (match-end 4)) (match-end 4) 'display
                                   (if (>= 22 (- (match-end 1)
                                                 (match-beginning 0)))
                                       '(space :align-to 24)
***************
*** 2958,2964 ****
                (setq cont (looking-at "."))
                (while (and (= (forward-line 1) 0)
                            (looking-at "\\([ \t]+\\)[^*\n]"))
!                 (put-text-property (match-beginning 1) (match-end 1) 'display
                                     (if cont
                                         '(space :align-to 26)
                                       '(space :align-to 24)))
--- 2958,2967 ----
                (setq cont (looking-at "."))
                (while (and (= (forward-line 1) 0)
                            (looking-at "\\([ \t]+\\)[^*\n]"))
!                 (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)))