From: teranisi <teranisi>
Date: Tue, 4 Jul 2000 12:12:35 +0000 (+0000)
Subject: (mime-image-insert) [XEmacs]: Insert `string' only if it is non-nil.
X-Git-Tag: emy-1_13_8~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e9a0bee7dc3d8a83275c49c6dacb1a967f5b623;p=elisp%2Fsemi.git

(mime-image-insert) [XEmacs]: Insert `string' only if it is non-nil.
---

diff --git a/mime-image.el b/mime-image.el
index 48e1230..76c2335 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -96,7 +96,10 @@
 	    glyph)))
 
       (defun mime-image-insert (image &optional string area)
-	(let ((extent (make-extent (point) (progn (insert string)(point)))))
+	(let ((extent (make-extent (point)
+				   (progn (and string
+					       (insert string))
+					  (point)))))
 	  (set-extent-property extent 'invisible t)
 	  (set-extent-end-glyph extent image))))
   (condition-case nil