diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10b8c8297a1..8c460dc5b9f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,10 @@ +2001-01-05 Gerd Moellmann + + * info.el (Info-fontify-node): Mark one more char as intangible. + 2000-01-05 Kenichi Handa - * composite.el (compose-last-chars): New argument COMPONENTS. It + * composite.el (compose-last-chars): New argument COMPONENTS. If it is non-nil, compose preceding characters by compose-region with COMPONENTS. diff --git a/lisp/info.el b/lisp/info.el index 21e32e76a4b..39f4c5df64a 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2510,9 +2510,11 @@ the variable `Info-file-list-for-emacs'." ;; This is a serious problem for trying to handle multiple ;; frame types at once. We want this text to be invisible ;; on frames that can display the font above. - (if (memq (framep (selected-frame)) '(x pc w32 mac)) - (add-text-properties (match-end 1) (match-end 2) - '(invisible t intangible t)))) + (when (memq (framep (selected-frame)) '(x pc w32 mac)) + (add-text-properties (match-end 1) (match-end 2) + '(invisible t intangible t)) + (add-text-properties (1- (match-end 1)) (match-end 2) + '(intangible t)))) (goto-char (point-min)) (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t) (if (= (char-after (1- (match-beginning 0))) ?\") ; hack diff --git a/src/ChangeLog b/src/ChangeLog index b933994b6b8..3f059ca6af3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2001-01-05 Gerd Moellmann + + * sysdep.c: Don't prototype srandom; it takes an unsigned argument + on some systems, and an unsigned long on others, like FreeBSD 4.1. + 2001-01-04 Gerd Moellmann * xterm.c (clear_mouse_face): Don't return if tip_frame is