diff options
| author | Andreas Schwab <schwab@suse.de> | 2003-06-19 20:56:49 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2003-06-19 20:56:49 +0000 |
| commit | fb020fe894db0dfa6d6d2b180a1cf8b489bfccba (patch) | |
| tree | ecb8947d96c86cbe6ac64cbc3bdad8b19fef7167 /lisp/info.el | |
| parent | a67ae60e4aec6f04fc64fd0f54403250c315a985 (diff) | |
| download | emacs-fb020fe894db0dfa6d6d2b180a1cf8b489bfccba.tar.gz | |
(Info-fontify-node): Improve calculation of other-tag.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/lisp/info.el b/lisp/info.el index 54e6f6d1f02..ce013c7c844 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2872,13 +2872,19 @@ the variable `Info-file-list-for-emacs'." (goto-char start) (skip-syntax-backward " ") (setq other-tag - (cond - ((<= (point) (point-min)) - "See ") - ((memq (char-before) '(nil ?\. ?! )) - "See ") - ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: )) - "see "))) + (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)) (if hide-tag (add-text-properties (match-beginning 1) (match-end 1) |