3525 |
other-tag) |
other-tag) |
3526 |
(when not-fontified-p |
(when not-fontified-p |
3527 |
(when Info-hide-note-references |
(when Info-hide-note-references |
3528 |
;; *Note is often used where *note should have been |
(when (not (eq Info-hide-note-references 'hide)) |
3529 |
(goto-char start) |
;; *Note is often used where *note should have been |
3530 |
(skip-syntax-backward " ") |
(goto-char start) |
3531 |
(setq other-tag |
(skip-syntax-backward " ") |
3532 |
(cond ((memq (char-before) '(nil ?\. ?! ??)) |
(setq other-tag |
3533 |
"See ") |
(cond ((memq (char-before) '(nil ?\. ?! ??)) |
3534 |
((memq (char-before) '(?\, ?\; ?\: ?-)) |
"See ") |
3535 |
"see ") |
((memq (char-before) '(?\, ?\; ?\: ?-)) |
3536 |
((memq (char-before) '(?\( ?\[ ?\{)) |
"see ") |
3537 |
;; Check whether the paren is preceded by |
((memq (char-before) '(?\( ?\[ ?\{)) |
3538 |
;; an end of sentence |
;; Check whether the paren is preceded by |
3539 |
(skip-syntax-backward " (") |
;; an end of sentence |
3540 |
(if (memq (char-before) '(nil ?\. ?! ??)) |
(skip-syntax-backward " (") |
3541 |
"See " |
(if (memq (char-before) '(nil ?\. ?! ??)) |
3542 |
"see ")) |
"See " |
3543 |
((save-match-data (looking-at "\n\n")) |
"see ")) |
3544 |
"See "))) |
((save-match-data (looking-at "\n\n")) |
3545 |
|
"See ")))) |
3546 |
(goto-char next) |
(goto-char next) |
3547 |
(add-text-properties |
(add-text-properties |
3548 |
(match-beginning 1) |
(match-beginning 1) |
3552 |
(if (string-match "\n" (match-string 1)) |
(if (string-match "\n" (match-string 1)) |
3553 |
(+ start1 (match-beginning 0))))) |
(+ start1 (match-beginning 0))))) |
3554 |
(match-end 1)) |
(match-end 1)) |
3555 |
(if (and other-tag (not (eq Info-hide-note-references 'hide))) |
(if other-tag |
3556 |
`(display ,other-tag front-sticky nil rear-nonsticky t) |
`(display ,other-tag front-sticky nil rear-nonsticky t) |
3557 |
'(invisible t front-sticky nil rear-nonsticky t)))) |
'(invisible t front-sticky nil rear-nonsticky t)))) |
3558 |
(add-text-properties |
(add-text-properties |