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

(Info-fontify-node): Fix detection of sentence-break before *Note.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-10-26 16:39:23 +00:00
parent 9700a45fa2
commit d75baf1221
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,6 +1,11 @@
2005-10-26 Richard M. Stallman <rms@gnu.org>
* info.el (Info-fontify-node): Fix detection of sentence-break
before *Note.
2005-10-26 Romain Francoise <romain@orebokech.com>
* smerge-mode.el: Add 'tools' to file keywords.
* smerge-mode.el: Add `tools' to file keywords.
2005-10-26 Nick Roberts <nickrob@snap.net.nz>

20
lisp/info.el
View File

@ -3736,20 +3736,18 @@ the variable `Info-file-list-for-emacs'."
;; *Note is often used where *note should have been
(goto-char start)
(skip-syntax-backward " ")
(when (memq (char-before) '(?\( ?\[ ?\{))
;; Check whether the paren is preceded by
;; an end of sentence
(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 "))))
((save-match-data
(save-excursion
(search-forward "\n\n" start t)))
"See ")
(t "see "))))
(goto-char next)
(add-text-properties
(match-beginning 1)