Mercurial > emacs
comparison lisp/info.el @ 51623:48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 19 Jun 2003 20:53:06 +0000 |
| parents | 08d1ae28e568 |
| children | 02d430615dd4 |
comparison
equal
deleted
inserted
replaced
| 51622:c85b00553f5e | 51623:48bd8b78e37b |
|---|---|
| 2870 (when hide-tag | 2870 (when hide-tag |
| 2871 ;; *Note is often used where *note should have been | 2871 ;; *Note is often used where *note should have been |
| 2872 (goto-char start) | 2872 (goto-char start) |
| 2873 (skip-syntax-backward " ") | 2873 (skip-syntax-backward " ") |
| 2874 (setq other-tag | 2874 (setq other-tag |
| 2875 (cond | 2875 (cond ((memq (char-before) '(nil ?\. ?! ??)) |
| 2876 ((<= (point) (point-min)) | 2876 "See ") |
| 2877 "See ") | 2877 ((memq (char-before) '(?\, ?\; ?\: ?-)) |
| 2878 ((memq (char-before) '(nil ?\. ?! )) | 2878 "see ") |
| 2879 "See ") | 2879 ((memq (char-before) '(?\( ?\[ ?\{)) |
| 2880 ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: )) | 2880 ;; Check whether the paren is preceded by |
| 2881 "see "))) | 2881 ;; an end of sentence |
| 2882 (skip-syntax-backward " (") | |
| 2883 (if (memq (char-before) '(nil ?\. ?! ??)) | |
| 2884 "See " | |
| 2885 "see ")) | |
| 2886 ((save-match-data (looking-at "\n\n")) | |
| 2887 "See "))) | |
| 2882 (goto-char next)) | 2888 (goto-char next)) |
| 2883 (if hide-tag | 2889 (if hide-tag |
| 2884 (add-text-properties (match-beginning 1) (match-end 1) | 2890 (add-text-properties (match-beginning 1) (match-end 1) |
| 2885 '(invisible t front-sticky nil rear-nonsticky t))) | 2891 '(invisible t front-sticky nil rear-nonsticky t))) |
| 2886 (add-text-properties | 2892 (add-text-properties |