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

[Juri Linkov]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.399 emacs/lisp/info.el:1.400
*** emacs/lisp/info.el:1.399    Wed Sep  1 19:29:28 2004
--- emacs/lisp/info.el  Thu Sep  2 16:36:18 2004
***************
*** 3525,3547 ****
                  other-tag)
              (when not-fontified-p
                (when Info-hide-note-references
!                 ;; *Note is often used where *note should have been
!                 (goto-char start)
!                 (skip-syntax-backward " ")
!                 (setq other-tag
!                       (cond ((memq (char-before) '(nil ?\. ?! ??))
!                              "See ")
!                             ((memq (char-before) '(?\, ?\; ?\: ?-))
!                              "see ")
!                             ((memq (char-before) '(?\( ?\[ ?\{))
!                              ;; Check whether the paren is preceded by
!                              ;; an end of sentence
!                              (skip-syntax-backward " (")
!                              (if (memq (char-before) '(nil ?\. ?! ??))
!                                  "See "
!                                "see "))
!                             ((save-match-data (looking-at "\n\n"))
!                              "See ")))
                  (goto-char next)
                  (add-text-properties
                   (match-beginning 1)
--- 3525,3548 ----
                  other-tag)
              (when not-fontified-p
                (when Info-hide-note-references
!                 (when (not (eq Info-hide-note-references 'hide))
!                   ;; *Note is often used where *note should have been
!                   (goto-char start)
!                   (skip-syntax-backward " ")
!                   (setq other-tag
!                         (cond ((memq (char-before) '(nil ?\. ?! ??))
!                                "See ")
!                               ((memq (char-before) '(?\, ?\; ?\: ?-))
!                                "see ")
!                               ((memq (char-before) '(?\( ?\[ ?\{))
!                                ;; Check whether the paren is preceded by
!                                ;; an end of sentence
!                                (skip-syntax-backward " (")
!                                (if (memq (char-before) '(nil ?\. ?! ??))
!                                    "See "
!                                  "see "))
!                               ((save-match-data (looking-at "\n\n"))
!                                "See "))))
                  (goto-char next)
                  (add-text-properties
                   (match-beginning 1)
***************
*** 3551,3557 ****
                           (if (string-match "\n" (match-string 1))
                               (+ start1 (match-beginning 0)))))
                       (match-end 1))
!                  (if (and other-tag (not (eq Info-hide-note-references 
'hide)))
                       `(display ,other-tag front-sticky nil rear-nonsticky t)
                     '(invisible t front-sticky nil rear-nonsticky t))))
                (add-text-properties
--- 3552,3558 ----
                           (if (string-match "\n" (match-string 1))
                               (+ start1 (match-beginning 0)))))
                       (match-end 1))
!                  (if other-tag
                       `(display ,other-tag front-sticky nil rear-nonsticky t)
                     '(invisible t front-sticky nil rear-nonsticky t))))
                (add-text-properties