From f290ca08fa36d152ee2c3bda959e4f4fdf40d8c1 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 13 Jun 2000 17:55:59 +0000 Subject: [PATCH] (put-image): Default STRING to a space. --- lisp/ChangeLog | 2 ++ lisp/image.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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)) -- 2.39.2