diff options
| author | Richard M. Stallman | 2005-11-03 21:38:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-11-03 21:38:35 +0000 |
| commit | e8e6694b124e20bae0769d49d7a6fa7a04a6937c (patch) | |
| tree | 6a9e4a43ab175cf76a0a5970fc1fedb4e4f4cb11 | |
| parent | c3bb6d703f0448f24112579ff51917d137812f7f (diff) | |
| download | emacs-e8e6694b124e20bae0769d49d7a6fa7a04a6937c.tar.gz emacs-e8e6694b124e20bae0769d49d7a6fa7a04a6937c.zip | |
(Info-fontify-node): Don't display extra "see" if there already is one here.
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index 1b408f2077e..cbb8ec57e31 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -3757,7 +3757,9 @@ the variable `Info-file-list-for-emacs'." | |||
| 3757 | ;; an end of sentence | 3757 | ;; an end of sentence |
| 3758 | (skip-syntax-backward " (")) | 3758 | (skip-syntax-backward " (")) |
| 3759 | (setq other-tag | 3759 | (setq other-tag |
| 3760 | (cond ((memq (char-before) '(nil ?\. ?! ??)) | 3760 | (cond ((save-match-data (looking-back "\\<see")) |
| 3761 | "") | ||
| 3762 | ((memq (char-before) '(nil ?\. ?! ??)) | ||
| 3761 | "See ") | 3763 | "See ") |
| 3762 | ((save-match-data | 3764 | ((save-match-data |
| 3763 | (save-excursion | 3765 | (save-excursion |