diff options
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/lisp/info.el b/lisp/info.el index c94e4121dc8..ec74160188a 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -3736,20 +3736,18 @@ the variable `Info-file-list-for-emacs'." | |||
| 3736 | ;; *Note is often used where *note should have been | 3736 | ;; *Note is often used where *note should have been |
| 3737 | (goto-char start) | 3737 | (goto-char start) |
| 3738 | (skip-syntax-backward " ") | 3738 | (skip-syntax-backward " ") |
| 3739 | (when (memq (char-before) '(?\( ?\[ ?\{)) | ||
| 3740 | ;; Check whether the paren is preceded by | ||
| 3741 | ;; an end of sentence | ||
| 3742 | (skip-syntax-backward " (")) | ||
| 3739 | (setq other-tag | 3743 | (setq other-tag |
| 3740 | (cond ((memq (char-before) '(nil ?\. ?! ??)) | 3744 | (cond ((memq (char-before) '(nil ?\. ?! ??)) |
| 3741 | "See ") | 3745 | "See ") |
| 3742 | ((memq (char-before) '(?\, ?\; ?\: ?-)) | 3746 | ((save-match-data |
| 3743 | "see ") | 3747 | (save-excursion |
| 3744 | ((memq (char-before) '(?\( ?\[ ?\{)) | 3748 | (search-forward "\n\n" start t))) |
| 3745 | ;; Check whether the paren is preceded by | 3749 | "See ") |
| 3746 | ;; an end of sentence | 3750 | (t "see ")))) |
| 3747 | (skip-syntax-backward " (") | ||
| 3748 | (if (memq (char-before) '(nil ?\. ?! ??)) | ||
| 3749 | "See " | ||
| 3750 | "see ")) | ||
| 3751 | ((save-match-data (looking-at "\n\n")) | ||
| 3752 | "See ")))) | ||
| 3753 | (goto-char next) | 3751 | (goto-char next) |
| 3754 | (add-text-properties | 3752 | (add-text-properties |
| 3755 | (match-beginning 1) | 3753 | (match-beginning 1) |