/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.399 by jurta, Wed Sep 1 19:29:28 2004 UTC revision 1.400 by jurta, Thu Sep 2 16:36:18 2004 UTC
# Line 3525  Preserve text properties." Line 3525  Preserve text properties."
3525                  other-tag)                  other-tag)
3526              (when not-fontified-p              (when not-fontified-p
3527                (when Info-hide-note-references                (when Info-hide-note-references
3528                  ;; *Note is often used where *note should have been                  (when (not (eq Info-hide-note-references 'hide))
3529                  (goto-char start)                    ;; *Note is often used where *note should have been
3530                  (skip-syntax-backward " ")                    (goto-char start)
3531                  (setq other-tag                    (skip-syntax-backward " ")
3532                        (cond ((memq (char-before) '(nil ?\. ?! ??))                    (setq other-tag
3533                               "See ")                          (cond ((memq (char-before) '(nil ?\. ?! ??))
3534                              ((memq (char-before) '(?\, ?\; ?\: ?-))                                 "See ")
3535                               "see ")                                ((memq (char-before) '(?\, ?\; ?\: ?-))
3536                              ((memq (char-before) '(?\( ?\[ ?\{))                                 "see ")
3537                               ;; Check whether the paren is preceded by                                ((memq (char-before) '(?\( ?\[ ?\{))
3538                               ;; an end of sentence                                 ;; Check whether the paren is preceded by
3539                               (skip-syntax-backward " (")                                 ;; an end of sentence
3540                               (if (memq (char-before) '(nil ?\. ?! ??))                                 (skip-syntax-backward " (")
3541                                   "See "                                 (if (memq (char-before) '(nil ?\. ?! ??))
3542                                 "see "))                                     "See "
3543                              ((save-match-data (looking-at "\n\n"))                                   "see "))
3544                               "See ")))                                ((save-match-data (looking-at "\n\n"))
3545                                   "See "))))
3546                  (goto-char next)                  (goto-char next)
3547                  (add-text-properties                  (add-text-properties
3548                   (match-beginning 1)                   (match-beginning 1)
# Line 3551  Preserve text properties." Line 3552  Preserve text properties."
3552                           (if (string-match "\n" (match-string 1))                           (if (string-match "\n" (match-string 1))
3553                               (+ start1 (match-beginning 0)))))                               (+ start1 (match-beginning 0)))))
3554                       (match-end 1))                       (match-end 1))
3555                   (if (and other-tag (not (eq Info-hide-note-references 'hide)))                   (if other-tag
3556                       `(display ,other-tag front-sticky nil rear-nonsticky t)                       `(display ,other-tag front-sticky nil rear-nonsticky t)
3557                     '(invisible t front-sticky nil rear-nonsticky t))))                     '(invisible t front-sticky nil rear-nonsticky t))))
3558                (add-text-properties                (add-text-properties

Legend:
Removed from v.1.399  
changed lines
  Added in v.1.400

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26