[Emacs-diffs] Changes to emacs/lisp/info.el

[Andreas Schwab]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.357 emacs/lisp/info.el:1.358
*** emacs/lisp/info.el:1.357    Tue Jun 17 23:03:23 2003
--- emacs/lisp/info.el  Thu Jun 19 16:53:06 2003
***************
*** 2872,2884 ****
                (goto-char start)
                (skip-syntax-backward " ")
                (setq other-tag
!                     (cond
!                      ((<= (point) (point-min))
!                       "See ")
!                      ((memq (char-before) '(nil ?\. ?! ))
!                       "See ")
!                      ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
!                       "see ")))
                (goto-char next))
              (if hide-tag
                  (add-text-properties (match-beginning 1) (match-end 1)
--- 2872,2890 ----
                (goto-char start)
                (skip-syntax-backward " ")
                (setq other-tag
!                     (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)