mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(Info-fontify-node): Don't compute other-tag if Info-hide-note-references=hide.

Browse Source
This commit is contained in:
Juri Linkov 2004-09-02 16:36:18 +00:00
parent 277df08871
commit fc11ddc8d7
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lisp/info.el
View File

@ -3525,23 +3525,24 @@ Preserve text properties."
other-tag)
(when not-fontified-p
(when Info-hide-note-references
;; *Note is often used where *note should have been
(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 ")))
(when (not (eq Info-hide-note-references 'hide))
;; *Note is often used where *note should have been
(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)
(add-text-properties
(match-beginning 1)
@ -3551,7 +3552,7 @@ Preserve text properties."
(if (string-match "\n" (match-string 1))
(+ start1 (match-beginning 0)))))
(match-end 1))
(if (and other-tag (not (eq Info-hide-note-references 'hide)))
(if other-tag
`(display ,other-tag front-sticky nil rear-nonsticky t)
'(invisible t front-sticky nil rear-nonsticky t))))
(add-text-properties