mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 09:16:02 -08:00
Code Issues Projects Releases Wiki Activity

(Info-fontify-node): Improve calculation of other-tag.

Browse source
This commit is contained in:
Andreas Schwab 2003-06-19 20:56:49 +00:00
parent a67ae60e4a
commit fb020fe894
2 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2003-06-19 Andreas Schwab <schwab@suse.de>
* info.el (Info-fontify-node): Improve calculation of other-tag.
2003-06-19 Stefan Monnier <monnier@cs.yale.edu>
* progmodes/cc-mode.el (c-mode): Reverting last change.

20
lisp/info.el
View file

@ -2872,13 +2872,19 @@ the variable `Info-file-list-for-emacs'."
(goto-char start)
(skip-syntax-backward " ")
(setq other-tag
(cond
((<= (point) (point-min))
"See ")
((memq (char-before) '(nil ?\. ?! ))
"See ")
((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
"see ")))
(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)