[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/info.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/info.el |
Date: |
Tue, 03 Jun 2003 16:57:00 -0400 |
Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.348 emacs/lisp/info.el:1.349
*** emacs/lisp/info.el:1.348 Tue Jun 3 16:28:21 2003
--- emacs/lisp/info.el Tue Jun 3 16:56:59 2003
***************
*** 2866,2885 ****
(skip-syntax-backward " ")
(setq other-tag
(cond
! ((or (<= (point) (point-min))
! (memq (char-after (1- (point))) '( ?\. ?! )))
! "See ")
! ((memq (char-after (1- (point))) '( ?\( ?\[ ?\{ ?\, ?\;
?\: ))
! "see ")
! (t nil)))
(goto-char next))
(if hide-tag
(add-text-properties (match-beginning 1) (match-end 1)
'(invisible t)))
! (add-text-properties (match-beginning 2) (match-end 2)
! '(font-lock-face info-xref
! mouse-face highlight
! help-echo "mouse-2: go to
this node"))
(when (eq Info-hide-note-references t)
(add-text-properties (match-beginning 3) (match-end 3)
'(invisible t)))
--- 2866,2887 ----
(skip-syntax-backward " ")
(setq other-tag
(cond
! ((memq (char-before) '(nil ?\. ?! ))
! "See "
! ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
! "see ")))
(goto-char next))
(if hide-tag
(add-text-properties (match-beginning 1) (match-end 1)
'(invisible t)))
! (add-text-properties
! (match-beginning 2) (match-end 2)
! (cons 'help-echo
! (cons (if (match-end 4)
! (concat "mouse-2: go to " (match-string 4))
! "mouse-2: go to this node")
! '(font-lock-face info-xref
! mouse-face highlight))))
(when (eq Info-hide-note-references t)
(add-text-properties (match-beginning 3) (match-end 3)
'(invisible t)))
***************
*** 2915,2924 ****
(put-text-property (match-beginning 0)
(1+ (match-beginning 0))
'font-lock-face 'info-menu-5))
! (add-text-properties (match-beginning 1) (match-end 1)
! '(font-lock-face info-xref
! mouse-face highlight
! help-echo "mouse-2: go to this node"))
(when (eq Info-hide-note-references t)
(put-text-property (match-beginning 2) (match-beginning 4)
'invisible t)
--- 2917,2931 ----
(put-text-property (match-beginning 0)
(1+ (match-beginning 0))
'font-lock-face 'info-menu-5))
! (add-text-properties
! (match-beginning 1) (match-end 1)
! (cons 'help-echo
! (cons
! (if (match-end 3)
! (concat "mouse-2: go to " (match-string 3))
! "mouse-2: go to this node")
! '(font-lock-face info-xref
! mouse-face highlight))))
(when (eq Info-hide-note-references t)
(put-text-property (match-beginning 2) (match-beginning 4)
'invisible t)
- [Emacs-diffs] Changes to emacs/lisp/info.el, Stefan Monnier, 2003/06/03
- [Emacs-diffs] Changes to emacs/lisp/info.el, Stefan Monnier, 2003/06/03
- [Emacs-diffs] Changes to emacs/lisp/info.el,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/info.el, Stefan Monnier, 2003/06/03
- [Emacs-diffs] Changes to emacs/lisp/info.el, Kim F. Storm, 2003/06/04
- [Emacs-diffs] Changes to emacs/lisp/info.el, Luc Teirlinck, 2003/06/05
- [Emacs-diffs] Changes to emacs/lisp/info.el, Kim F. Storm, 2003/06/05
- [Emacs-diffs] Changes to emacs/lisp/info.el, Andreas Schwab, 2003/06/06
- [Emacs-diffs] Changes to emacs/lisp/info.el, Lute Kamstra, 2003/06/06
- [Emacs-diffs] Changes to emacs/lisp/info.el, Kim F. Storm, 2003/06/09
- [Emacs-diffs] Changes to emacs/lisp/info.el, Luc Teirlinck, 2003/06/17
- [Emacs-diffs] Changes to emacs/lisp/info.el, Andreas Schwab, 2003/06/19