Fix last change to be in insert-image as intended.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4536d21038e4cddfcb00b6658f3e3f3bea28b772..5fa1e5376dcc08a548c460cf3c75aa7929bba355 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,6 @@
 2000-06-13  Dave Love  <fx@gnu.org>
 
-       * image.el (put-image): Default STRING to a space.
+       * image.el (insert-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 fe9dd5bfe55278509b01631600b074d3c8092409..0e507d2ed3cbe94165e6a06f85101f063b667013 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -122,9 +122,7 @@ 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."
-  ;; Use a space as least likely to cause trouble when it's a hidden
-  ;; character in the buffer.
-  (unless string (setq string " "))
+  (unless string (setq string "x"))
   (let ((buffer (current-buffer)))
     (unless (eq (car-safe image) 'image)
       (error "Not an image: %s" image))
@@ -148,7 +146,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 " "))
   (unless (eq (car-safe image) 'image)
     (error "Not an image: %s" image))
   (unless (or (null area) (memq area '(left-margin right-margin)))