# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 960918850 0
# Node ID 7c53a907cce4154dfd7984c38e7581f483cc23fc
# Parent  5cc6c13b53762f89c85949ac04ec174c84e1faf6
(put-image): Default STRING to a space.

diff -r 5cc6c13b5376 -r 7c53a907cce4 lisp/image.el
--- a/lisp/image.el	Tue Jun 13 16:25:11 2000 +0000
+++ b/lisp/image.el	Tue Jun 13 17:54:10 2000 +0000
@@ -122,7 +122,9 @@
 display it in the text area, a value of `left-margin' means
 display it in the left marginal area, a value of `right-margin'
 means display it in the right marginal area."
-  (unless string (setq string "x"))
+  ;; Use a space as least likely to cause trouble when it's a hidden
+  ;; character in the buffer.
+  (unless string (setq string " "))
   (let ((buffer (current-buffer)))
     (unless (eq (car-safe image) 'image)
       (error "Not an image: %s" image))