From d3de1c8e9c8646d1c8bb4905f55147b444b98fe6 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 14 Dec 2009 05:09:08 +0000 Subject: [PATCH] * info.el (Info-hide-cookies-node): Before hiding a cookie, check if it already has the `display' property added by `Info-display-images-node', and not put the `invisible' property in this case. --- lisp/ChangeLog | 7 +++++++ lisp/info.el | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d4c117e43b6..2015c5356cf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-12-14 David Kastrup + + * info.el (Info-hide-cookies-node): Before hiding a cookie, + check if it already has the `display' property added by + `Info-display-images-node', and not put the `invisible' property + in this case. + 2009-12-14 Chong Yidong * cedet/semantic/mru-bookmark.el (global-semantic-mru-bookmark-mode) diff --git a/lisp/info.el b/lisp/info.el index 1bd82efdf2a..0d7686d7585 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1446,7 +1446,8 @@ any double quotes or backslashes must be escaped (\\\",\\\\)." "\\(\0[\0-\37][[][^\0]*\0[\0-\37][]]\n?\\)" nil t) (let* ((start (match-beginning 1))) - (if (not (get-text-property start 'invisible)) + (if (and (not (get-text-property start 'invisible)) + (not (get-text-property start 'display))) (put-text-property start (point) 'invisible t))))) (set-buffer-modified-p nil))) -- 2.39.2