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

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72dc27ae943..4536d21038e 100644
--- 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 339e176c223..fe9dd5bfe55 100644
--- 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))