(put-image): Default STRING to a space.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72dc27ae9435083bba72d2f17a1e0254ae82874d..4536d21038e4cddfcb00b6658f3e3f3bea28b772 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-06-13  Dave Love  <fx@gnu.org>
 
+       * image.el (put-image): Default STRING to a space.
+
        * info.el Doc fixes.
        (Info-build-node-completions): Match Ref tags. 
 

diff --git a/lisp/image.el b/lisp/image.el
index 339e176c223df899c0b02a9e7db5e7b72046b069..fe9dd5bfe55278509b01631600b074d3c8092409 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -122,7 +122,9 @@ AREA is where to display the image.  AREA nil or omitted means
 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))