From: Dave Love Date: Tue, 13 Jun 2000 18:18:02 +0000 (+0000) Subject: Fix last change to be in insert-image as intended. X-Git-Tag: emacs-pretest-21.0.90~3342 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ad550ba63b104d5983c54255b37eba3906e1321;p=emacs.git Fix last change to be in insert-image as intended. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4536d21038e..5fa1e5376dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,6 @@ 2000-06-13 Dave Love - * 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 fe9dd5bfe55..0e507d2ed3c 100644 --- 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)))