mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Dave Love 2000-06-13 17:55:59 +00:00
parent 97aa9c1d5a
commit f290ca08fa
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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.

4
lisp/image.el
View file

@ -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))