Fix info display of images

[David Kastrup <dak@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 223 bytes --]


Hi,

the info images in the Lilypond documentation have a rather messed-up
display.  That's more or less due to Emacs putting "invisible"
properties over image code indiscriminately.

I find that the following does help.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 550 bytes --]

diff --git a/lisp/info.el b/lisp/info.el
index 1bd82ef..0d7686d 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)))
 

[-- Attachment #3: Type: text/plain, Size: 20 bytes --]



-- 
David Kastrup