Commit 0ad550ba authored by Dave Love's avatar Dave Love

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

parent f290ca08
2000-06-13 Dave Love <fx@gnu.org> 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.el Doc fixes.
(Info-build-node-completions): Match Ref tags. (Info-build-node-completions): Match Ref tags.
......
...@@ -122,9 +122,7 @@ AREA is where to display the image. AREA nil or omitted means ...@@ -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 text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin' display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area." means display it in the right marginal area."
;; Use a space as least likely to cause trouble when it's a hidden (unless string (setq string "x"))
;; character in the buffer.
(unless string (setq string " "))
(let ((buffer (current-buffer))) (let ((buffer (current-buffer)))
(unless (eq (car-safe image) 'image) (unless (eq (car-safe image) 'image)
(error "Not an image: %s" image)) (error "Not an image: %s" image))
...@@ -148,7 +146,9 @@ AREA is where to display the image. AREA nil or omitted means ...@@ -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 text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin' display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area." 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) (unless (eq (car-safe image) 'image)
(error "Not an image: %s" image)) (error "Not an image: %s" image))
(unless (or (null area) (memq area '(left-margin right-margin))) (unless (or (null area) (memq area '(left-margin right-margin)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment